通过循环记录集访问 vba 数组

Question

I have a loop which I want to create an array then use the array to insert into another table.

Band     Country 
AIR       FR 
Bon Jovi  US 
Oasis     UK 
Blur      UK 
Green Day US 
Metalica  US

I want to loop through this recordset, so I want to create arrays, for example, arrayFR = "AIR"; arrayUK = "Blur vbCrLf Oasis" and arrayUS = "Bon Jovi vbCrLf Green Day vbCrLf Metalica".

At the same time, based on this recordset, I have created a temp table with columns FR, UK & US. I hope to use the arrays created, then insert into the temp table like the view below.

FR        UK        US 
AIR       Blur      Bon Jovi 
          Oasis     Green Day 
                    Metalica

I don't know how to start with as I have searched a lot of arrays related pages but doesn't help, please help me gurus! Thanks in advance!

Answer 1

Since your end result (per country) is a single field with bands delimited by CRLF, you can make it simple. Add the following Dims;

Dim aArray(10, 2) As String
Dim iC      As Integer
Dim i       As Integer
IC = 0

Then add this inside your loop (change field names as required):

Debug.Print rs1!country & vbTab & rs1!band
If aArray(iC, 1) <> rs1!country Then
    iC = iC + 1
    If iC > 10 Then MsgBox "There are more than 10 countries! Change the code...", vbOKOnly, "Too many countries"
    aArray(iC, 1) = rs1!country
    aArray(iC, 2) = rs1!band
Else
    aArray(iC, 2) = aArray(iC, 2) & vbCrLf & rs1!band
End If

To see results:

For i = 1 To iC
    MsgBox aArray(i, 1) & vbCrLf & aArray(i, 2)
Next i

Answer 2

Why not creating your temp table by using a simple CrossTab query ? If that suits your needs, it will be much easier.