0

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

 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.
4

1 回答 1

2

在第二个循环中，您尝试使用第一个 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

结束使用

于 2013-05-29T13:35:12.420 回答