how to copy data from recordset to an array

[xq]

just want to copy recordset to an multi-dimension array.
thanks a lot!

 

[xq]

what's wrong with that? it doesnt' work

i = 0
r = rs.RecordCount
f = rs.Fields.Count
ReDim arr(r, f)

Do While Not rs.EOF
On Error Resume Next
For j = 0 To f - 1
arr(i, j) = rs.Fields(j).Value
Next j
On Error GoTo 0
rs.MoveNext
i = i + 1
Loop

 

[ThinLizzy]

The problem is the the record/fields .count don't work.

You must add following code:

rs.MoveLast
rs.MoveFirst

and then:

r = rs.RecordCount
f = rs.Fields.Count

.....

Hope this will help you,

ThinLizzy

 

[mikewoodhouse]

ALternatively, try looking at the GetRows method.

e.g.

Dim arr As Variant ' needs to be a variant
arr=rs.GetRows ' in ADO that's all you need to do!

 

[xq]

thanks a lot!