2

我正在尝试使用 SqlDataReader 返回 List(Of DataTable) 而不是填充数据集。在正确检索 4 个表后，我收到“读取器关闭时调用读取的尝试无效”错误。这是我正在使用的功能

Private Function ExecuteDS(ByVal SPName As String, ByVal ParamList As List(Of System.Data.SqlClient.SqlParameter)) As List(Of System.Data.DataTable)
    Dim ds As New List(Of System.Data.DataTable)
    Dim dbConStr As Database  
    dbConStr = New Database()
    Using con As New System.Data.SqlClient.SqlConnection(dbConStr.ReturnString)
        Dim cmd As New System.Data.SqlClient.SqlCommand(CStr(SPName), con)
        cmd.CommandType = System.Data.CommandType.StoredProcedure
        cmd.CommandTimeout = 30
        For Each p As System.Data.SqlClient.SqlParameter In ParamList
            cmd.Parameters.Add(p)
        Next

        con.Open()
        Using dr As System.Data.SqlClient.SqlDataReader = cmd.ExecuteReader
            If dr.HasRows Then
                Do While dr.Read()
                    Dim dt As New System.Data.DataTable
                    dt.Load(dr)
                    ds.Add(dt)
                Loop
            End If
        End Using

        con.Close()
    End Using
    Return ds
End Function

错误发生在dr.Read()。它应该返回 4 个表，但在获得第 4 个表之后，它仍然会尝试执行dr.Read()并抛出错误，而不是正确退出循环。任何见解，我将不胜感激，谢谢。

编辑：还尝试了 dr.NextResult() 并且仍然在同一行出现错误。

            Using dr As System.Data.SqlClient.SqlDataReader = cmd.ExecuteReader
                Do While dr.HasRows
                    Do While dr.Read()
                        Dim dt As New System.Data.DataTable
                        dt.Load(dr)
                        ds.Add(dt)
                    Loop
                    dr.NextResult()
                Loop
            End Using

编辑 2：在 IF 语句中尝试使用 dr.HasRows，但在 dr.Read() 处仍然出现错误...

            Using dr As System.Data.SqlClient.SqlDataReader = cmd.ExecuteReader
                Do
                    If dr.HasRows Then
                        While dr.Read()
                            Dim dt As New System.Data.DataTable
                            dt.Load(dr)
                            ds.Add(dt)
                        End While
                    End If
                Loop While dr.NextResult()
            End Using
4

1 回答 1

0

如果没有 NextResut，则无需测试 HasRows

在 C#
中，最后一个 While 将导致它立即离开。 

using (IDataReader reader = ...) 
{ 
  do 
  {
    if (reader.HasRows())
    {
       while (reader.Read()) 
       { 
           ....
       }
    }
  } while (reader.NextResult())
}
于 2013-09-23T18:34:32.143 回答