Question

I have been trying to assign value to an object array that is defined as follows…

Dim englishTextAry As Object(,) = New Object(,) {}

I am looping through a dataReader and trying to assign the values to this array with the following code….

While rdr.Read()
    Dim recID As String = rdr.Item(0)
    Dim dataVal As String = rdr.Item(1)

    ReDim Preserve englishTextAry(recID, dataVal)

End While

But the ReDim is throwing an error on dataVal not being an Integer.

What am I doing wrong here? Can anyone point me in the right direction?

Thanks,

Answer 1

You’ll be doing a horrible number of ReDims for a non-small numbers of rows. You could use a Class to hold the id-value pairs and a list to hold them:

Module Module1

    Class IdValPair
        Property RecId As String
        Property DataVal As String
    End Class

    Sub Main()
        Dim myItems As New List(Of IdValPair)
        '...
        While rdr.Read
            myItems.Add(New IdValPair With {.RecId = rdr.Item(0), .DataVal = rdr.Item(1)})
        End While

    End Sub

End Module

…and to answer your question, the ReDim statement takes numbers for the sizes to ReDim to.