|
|
Recordsets dalam suatu array multi-dimensi
Langkah-langkah:
1. Eksekusi sql tersebut
2. Lakukan looping terhadap seluruh recordset
3. Lakukan ReDim array dengan kata kunci preserve
4. Masukkan RS dalam array item per item
sql = "select * from myTable"
Set RS = Conn.Execute(sql)
'Masukkan recordset dalam array
Dim myArray()
numRows = 0
Do While NOT RS.EOF
numRows = numRows + 1
ReDim Preserve myArray(3, numRows)
myArray(0, numRows - 1) = RS(0)
myArray(1, numRows - 1) = RS(1)
myArray(2, numRows - 1) = RS(2)
myArray(3, numRows - 1) = RS(3)
RS.MoveNext
Loop
Akhirnya didapatkan suatu array 4 dimensi (4 kolom dan ssejumlah baris dinamis, tergantung pada jumlah record dalam db).