Populating an array with a recordset 1

Dim i As Integer
Dim j As Long
rst.Open "Select WhateverFields from WhateverTable;", CurrentProject.Connection, adOpenForwardOnly
ReDim ArrayName(rst.Fields.Count - 1, 0)
While Not rst.Eof
For i = 0 To rst.Fields.Count - 1)
ArrayName(i, j) = rst.Fields(i)
Next i
j = j + 1
Redim Preserve ArrayName(UBound(ArrayName,1), j)
rst.MoveNext
Wend

That's all...

Good luck




Daniel Vlas
Systems Consultant

or you could try GetRows.

dim rs as DAO.Recordset
dim vArray as variant

'set your recordset....


vArray=rs.getrows(1000)

will put 1000 rows into the array. If you want all the rows, then either put a number bigger than all the rows in or use vArray=rs.getrows(rs.recordcount)

hth

Ben

----------------------------------------------
Ben O'Hara

"Where are all the stupid people from...
...And how'd they get so dumb?"
NoFX-The Decline
----------------------------------------------

Ben, what can I say? Except...

Would you believe me if I told you I knew that?

Anyway, have one from me...




Daniel Vlas
Systems Consultant

I believe you Dan!
Don't you just hate it when you miss something simple!!

Cheers mate

Ben

----------------------------------------------
Ben O'Hara

"Where are all the stupid people from...
...And how'd they get so dumb?"
NoFX-The Decline
----------------------------------------------

One little thing though...
vArray=rs.getrows(rs.recordcount)
will work only if you do a MoveNext, MoveLast or MoveWhatever on the rs.





Daniel Vlas
Systems Consultant