如何使用OleDbDataReader对象从SQL SELECT语句获取结果？

Question

我正在尝试使用以下代码从数据库表中检索记录：

 Dim getParentID = "SELECT Parent_ID FROM ParentandGuardian WHERE First_Name = @fname AND Middle_Name = @mname AND Last_Name = @lname"
 comm = New OleDbCommand(getParentID, MyConn)

 comm.Parameters.AddWithValue("@fname", txtPGFirstName.Text)
 comm.Parameters.AddWithValue("@mname", txtPGMiddleName.Text)
 comm.Parameters.AddWithValue("@lname", txtPGLastName.Text)

 Reader = comm.ExecuteReader

 MsgBox(Reader.GetValue(0))

我收到此错误，指出MsgBox(Reader.Getvalue(0))语句：

System.Data.dll中发生了类型为'System.InvalidOperationException'的未处理异常

附加信息：行/列的数据不存在。

我很确定查询应该至少有一个结果。 我已经检查了查询所指向的特定数据库表，并且值在那里。 我只是不知道为什么我总是收到此错误。 我是VB.NET的新手。 请多多包涵。

Answer 1

“行/列中没有数据”表明执行查询时缺少的是使用OleDbDataReader.Read()方法。 While...End While块使用的方法如下：

Dim message As String
Using MyConn As OleDbConnection(connectionString)

    MyConn.Open()
    Dim getParentID As String = "SELECT Parent_ID FROM ParentandGuardian WHERE First_Name = @fname AND Middle_Name = @mname AND Last_Name = @lname"
    Using comm As OleDbCommand = New OleDbCommand(getParentID, MyConn)
        comm.Parameters.AddWithValue("@fname", txtPGFirstName.Text)
        comm.Parameters.AddWithValue("@mname", txtPGMiddleName.Text)
        comm.Parameters.AddWithValue("@lname", txtPGLastName.Text)

        Using reader As OleDbDataReader = comm.ExecuteReader()

           While reader.Read()
               message = reader.GetValue(0).ToString()
           End While

           MsgBox(message)
        End Using
    End Using

    MyConn.Close()
End Using

在从相应行检索数据之前， Read方法用于将数据读取器前进到第一条记录（或多条记录的下一条记录）。

注意： OleDbCommand.Parameters.Add比OleDbCommand.Parameters.AddWithValue更可取，因为它可以声明自定义数据类型以与数据库中使用的每个列数据类型匹配（取决于您使用的数据库）。

类似问题：

错误：行/列没有数据

当我有数据时，为什么会出现“行/列没有数据”错误？