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