关闭读取器时调用读取的尝试无效.执行读取器以获取多个表结果

Question

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

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()并抛出错误，而不仅仅是正确退出循环。任何见解，我将不胜感激，谢谢。

编辑：也尝试了这个博士。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 处收到错误。读取（）...

            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

Answer 1

如果没有

NextResut 你不需要测试 HasRows

在 C#
中最后一段时间将导致它立即离开。

using (IDataReader reader = ...) 
{ 
  do 
  {
    if (reader.HasRows())
    {
       while (reader.Read()) 
       { 
           ....
       }
    }
  } while (reader.NextResult())
}