How to use Array of Array in QTP

[dineshb]

Hi, I am new in QTP. In MsAccess table , Column Name & data of each coulmn present. Eg. SrNo = 1, Name = Test etc..

How to use array of array to get column name & value .
Here is a code I have written.

Code:

Dim  arrRowVal() , arrColName()
FieldsCount =  rs.Fields.Count-1    'MsAccess table field count

' stored all column names in array arrColName()
For intColumn = 0 To FieldsCount
    ReDim  Preserve arrColName(intColumn)
             strColumnName =  rs.Fields(intColumn).Name
    arrColName(intColumn) = Cstr(strColumnName)
    MsgBox(  "strColumnName    : " & arrColName(intColumn))
Next
' store value of column name in arrRowVal
For intColumn = 0 To  FieldsCount
    ReDim Preserve  arrRowVal(intColumn)  
    strColumnValue = rs.Fields(intColumn).Value
    arrRowVal( arrColName(intColumn))=    strColumnValue  '**Here is problem
    
Next

**Here is problem : Displayed following error

Type mismatch: 'SrNo'
Function file: C:\DF.qfl
Line (152): " arrRowVal( arrColName(intColumn))= strColumnValue".

Please let me know how to solve the problem.

Thanks in Advance.
Dinesh

[rdemers25]

First of all to save some time not sure how much.

instead of

Code:

For intColumn = 0 To FieldsCount
ReDim Preserve arrColName(intColumn)

I would do

Code:

ReDim arrColName(FieldsCount)
For intColumn = 0 To FieldsCount

Second have arrColName(intColumn) as a string instead of a number.

So if I knew this was a number this is what I suggest doing, though I'm really not sure what you are trying to accomplish. Note, if this value happens to not be a number this will still fail.

Code:

arrRowVal( CInt(arrColName(intColumn)))= strColumnValue