datagrid values into an array

[trin]

how wood i get the results of my qeury into an array.
Example.. my query returned the field "order". thgere are 130 records that werer returned in that field. i want those values to be put into an array.
Oder
1
2
3
4
5
etc.... array wood contain 1,2,3,4,5 etc..
thax
trin

[DerFarm]

easiest way would be to ReDim an array of the appropriate type to the number of records.

Assume rs is the recordset:

    Dim NumAry()
    ...
    ...
    redim NumAry(rs.recordcount)
    while not rs.eof
        NumAry(rs.absoluteposition)=rs.fields("fieldname").value
        rs.movenext
    wend


...

ReDim will set the lowerlimit to 0 and the upper limit to the
number of records in the dataset. You, however, DO NOT have to
use the zeroth element.

HTH

[trin]

that worked great thanx, but i have one question..its silly question but here goes..this is my code..

Private Sub cmdArray_Click()
Dim elements As Integer
Dim Numarray() As String

elements = Adodc1.Recordset.RecordCount
ReDim Numarray(elements)
While Not Adodc1.Recordset.EOF
    Numarray(Adodc1.Recordset.AbsolutePosition) = Adodc1.Recordset.Fields("Exam_order").Value
    Adodc1.Recordset.MoveNext
    Wend
lblArray = Numarray(1)

how do u declare "rs" in your example. I dont want to have to tpye out adodc1.recordset.blah blah. everytime in my code.I want to use rs. eof for example like you have in your example.
thanx
trin

[Alain]

Here is an example of what I do:

Dim rc as recordset
 
     Set rc = adodc1.recordset
 
     'then...
     a = rc.fields("yourfield")
     b = rc.recordcount
     'etc....