Dynamic variables when looping through recordset.

[andrebarn]

Hi guys I what to create Dynamic variables when I loop through and recordset, I have read this forum : http://bytes.com/forum/thread436288.html

But see my problem is that so af the variables need to be an array.

Example:

 
Dim ObjParmArr
Dim ArrayCounter
Dim i
Dim ParmList
Dim ParmFields
Set ObjParmArr = New DynamicArray
 
ArrayCounter = 0
 
SQLQuery.CommandText = "Select * from CallNatParms CNP " & _
                        "INNER join Callnats CN on (CNP.CallNatID = CN.CallNatID) " & _
                        "where CNP.CallNatID = 'e99be135-757a-4c22-9a59-cd3e52c47508' order by CallnateParmOrder"
 
OpenRecordset Recordset1,SQLQuery,3,1
 
If Recordset1.EOF = False Then
    Do while Recordset1.EOF = False
    ObjParmArr.Data(ArrayCounter) = Recordset1("ParmName") & "_" & Recordset1("ParmType") & "_" & Recordset1("ArrayLength") & "_" & Recordset1("Length")
 
    ArrayCounter = ArrayCounter + 1
    Recordset1.MoveNext
    Loop
End If
 

*************** *************** *************** *************** *************** ***************
Now what I need to do is if the Recordset1("Par mType") = A then the variables must be declared as an array with an lenght of the Recordset1("Arr ayLength") . exp Dim ParmName(ArrayL ength). and if the Recordset1("Par mType") = N the it is an normal dim exp. Dim ParmName.
*************** *************** *************** *************** *************** **************

 
For i = 0 to ArrayCounter - 1
    ParmFields = Split(ObjParmArr.Data(i),"_")
    If ParmFields(1) = A Then
        **Here I need to declare an Varibale that is an array with the size of the ArrayLength "ParmFields(3)" exp: Dim ParmFields(0) (ParmFields(3)" )
    Else
        **Here I need to declare an normal Varibale exp: Dim ParmFields(0) 
    End IF
Next
 

Anyone got any idea if it is posible to do something like this?
Any help will be apriciated, or if there is an what that a can uses an two-dimencial array.

[jhardman]

easiest way would be to put them in a string and use the split() function to make an array on the fly. Let me know if you need any help on the actual implementation, or if this doesn't make sense.

Jared