多行DataReader

Question

我试图使用DataReader从MS数据库获取数据，然后使用datareader中的项进行一些计算。这就是我要用一排做的。

Dim dataRead As OleDb.OleDbDataReader = dataCom1.ExecuteReader
    If (dataRead.Read() = True) Then
        x = dataReader.Item("x")
        y = dataReader.Item("y")
        z = dataReader.Item("z")
    End If

我试图对随机检索的多行进行同样的处理。现在我有这样的想法：

Dim dataRead2 As OleDb.OleDbDataReader = dataCom2.ExecuteReader
    For i As Integer = 0 To 4
        If (dataRead2.Read() = True) Then
            a(i) = dataRead2.Item("z")
            b(i) = dataRead2.Item("y")
            c(i) = dataRead2.Item("x")
            i = i + 1
        End If
    Next

每当我运行它时，我都会得到一个错误。

我得到了错误"Object reference not set to an instance of an object." on the line a(i)“

Answer 1

它显示您的数组是声明的，但没有使用任何特定的维度。你应声明为：

Dim Descarray(4) As String

它将包含5个字符串(0.4)

您还可以使用：

ReDim Descarray(5)

在数组已经声明之后。