[RESOLVED] FILL ARRAY problem

[luca90]

pseudo code:

DIM MIO_ARRAY() AS VARIANT

...
C = 0
Do While Not RS.EOF

C = C + 1
COLA = RS.Fields("COD").Value
MIO_ARRAY(C) = COLA
C=C+1
COLB = RS.Fields("COD1").Value
MIO_ARRAY(C) = COLB
....

COLZ = RS.Fields("COD78").Value
MIO_ARRAY(C) = COLZ



rs.movenext

loop
....


have error: Subscript out of range

NOTE:
The numbers of recordset are variable

[Zvoni]

Aircode

rs.movelast
ReDim MIO_ARRAY(1 To 2*rs.Recordcount)
rs.movefirst
Do While Not rs.eof
'blablablabla

[dz32]

Building the array dynamically is an easy cheat

Sub push(ary, value) 'this modifies parent ary object
    On Error GoTo init
    Dim x As Long
    x = UBound(ary) 'Error If Not initalized
    ReDim Preserve ary(UBound(ary) + 1)
    ary(UBound(ary)) = value
    Exit Sub
init: ReDim ary(0): ary(0) = value
End Sub

Private Sub Form_Load()
    Dim x() As Variant
    push x, 1
    push x, 2
    Debug.Print UBound(x) & " x(1) = " & x(1)
End Sub

I would probably build a class to hold the columns with public properties for each field so you had intellisense.
Hold each class instance in a collection
and then have a class.Init(rs) method to have it load itself from the current record.

Dim records as new collection
dim record as CRecord

while not rs.eof
  set record = new CRecord
  record.init(rs)
  records.add record
  rs.movenext
wend

'class CRecord
'------------------------
public COD as Variant

friend Sub Init(rs as recordset)
    me.COD = rs("COD").value
    ...
end sub

[dilettante]

"Do While Not End" is a silly double-negative. Use "Do Until End" instead.

[luca90]

"Do While Not End" is a silly double-negative. Use "Do Until End" instead.

Never used...
Example please.

[dilettante]

Just replace "While" with "Until" and then drop the "Not" from the expression which follows.

[luca90]

Just replace "While" with "Until" and then drop the "Not" from the expression which follows.

Do Until RS.EOF

...

loop