当数据不存在时尝试读取无效错误

Question

我有一个函数，其唯一目的是当按钮被按下并且被多次调用时获取一些数据。这是函数代码：

Function GetData2(ByVal clientNo As Integer) As List(Of SocioInfo) 


    Dim theResults2 = New List(Of SocioInfo) 
    Dim connStr = "Data Source=localhost;Initial Catalog=testdb;Integrated Security=True;MultipleActiveResultSets=true" 


    Using conn = New SqlConnection(connStr) 

     Dim sql = "SELECT [FirstName], [LastName] FROM [CustInfo] Where ([NumCuenta] = @SocioNum)" 
     Dim sql2 = "SELECT [AcctName], [AcctNum], [NewAcct], [Balance] From [ACCT_NEW] Where ([AcctNum] = @SocioNum)" 
     Dim sqlCmd = New SqlCommand(sql, conn) 
     Dim sqlCmd2 = New SqlCommand(sql2, conn) 
     sqlCmd.Parameters.AddWithValue("@SocioNum", CDbl(txtInput.Text)) 
     sqlCmd2.Parameters.AddWithValue("@SocioNum", CDbl(txtInput.Text)) 



     conn.Open() 

     Dim rdr = sqlCmd.ExecuteReader 
     Dim rdr2 = sqlCmd2.ExecuteReader 

     While rdr.Read 
      theResults2.Add(New SocioInfo With { 
          .Nombre = rdr.GetString(0), 
          .LastName = rdr.GetString(1) 
}) 

     End While 
     While rdr2.Read 
      theResults2.Add(New SocioInfo With { 
             .CuentaName = rdr.GetString(0), 
              .AcctNum = rdr.GetValue(1), 
              .AcctFull = rdr2.GetValue(2), 
             .Balance = rdr2.GetValue(3) 
         }) 


     End While 

    End Using 

    Return theResults2 

End Function 

我不是100％肯定，如果这是要做到这一点（基本上需要从两个不同的表中获取数据）的最佳方式。事情是，而Rdr显示我没有错误，Rdr2只是在脸上吹。例外情况是这样的：

Invalid attempt to read when no data is present. 

Answer 1

在你试图使用第一SqlDataReader的第二循环，但，这是不可能的，因为第一循环已经达到了输入数据的末尾。

如果您需要在两个表之间加入数据，更好的方法是使用JOIN运算符只使用一个查询。此查询的工作假设在CustInfo表中的每个客户有一个帐户在ACCT_NEW表

Dim sql = "SELECT c.FirstName, c.LastName, a.AcctName, a.AcctNum, a.NewAcct, a.Balance " & _ 
      "FROM CustInfo c INNER JOIN ACCT_NEW a ON a.AcctNum = c.NumCuenta " & _ 
      "WHERE NumCuenta = @SocioNum " 


Using conn = New SqlConnection(connStr) 

    Dim sqlCmd = New SqlCommand(sql, conn) 
    sqlCmd.Parameters.AddWithValue("@SocioNum", CDbl(txtInput.Text)) 
    conn.Open() 
    Dim rdr = sqlCmd.ExecuteReader 

    While rdr.Read 
     theResults2.Add(New SocioInfo 
     With { 
         .Nombre = rdr.GetString(0), 
         .LastName = rdr.GetString(1) 
         .CuentaName = rdr.GetString(2), 
         .AcctNum = rdr.GetValue(3), 
         .AcctFull = rdr.GetValue(4), 
         .Balance = rdr.GetValue(5) 

     }) 
    End While 

末使用