VBScript create a multi-dimensional array and add to it?

Question

This is a doozy for me haha, I\'ve pretty much checked nearly every page on Google Search and I still don\'t quiet understand how to do it.

I want to create a multi

Answer 1

This may be off-topic, but after seeing your exact code, why aren't you using the built-in ADO function: GetRows() ?

    sub grabdata
        SQL_query = "SELECT * FROM MSAccess_table"
        Set rsData = conn.Execute(SQL_query)
        If Not rsData.EOF Then aData = rsData.GetRows()         
    end sub

This returns all your column # as the first index, and the rows (data) in the second.

So to loop through it, you would:

If IsArray(aData) Then
    For x = lBound(aData,2) to uBound(aData,2) 'loops through the rows
        Col1 = aData(0,x)
        Col2 = aData(1,x)
        Col3 = aData(2,x)
        Response.Write "Row #" & x+1 & "
"
        Response.Write "This is the data in Column1: " & Col1 & "
"
        Response.Write "This is the data in Column2: " & Col2 & "
"
        Response.Write "This is the data in Column3: " & Col3 & "
"
    Next
End If

*NOTE: Rows (and columns) start on 0 in the array by default.