数据阅读器已打开

Question

已经看过与我类似的问题，但它们都不适合我这是我的代码

dbconn = New SqlConnection
    dbconn.ConnectionString = ("Data Source=JENELIE\SQLEXPRESS;Initial Catalog=feeding_monitoring_system;User ID=sa;Password=Jenelie19; MultipleActiveResultSets = true")
    Dim reader As SqlDataReader
    Dim sda As New SqlDataAdapter
    Dim ds As New DataSet()
    Try
        dbconn.Open()
        Dim sql As String
        sql = "select Count (Gender) as NumberofStudent, Gender from Student_Info Group by Gender"
        dbcomm = New SqlCommand(sql, dbconn)
        reader = dbcomm.ExecuteReader
        sda.SelectCommand = dbcomm
        sda.Fill(ds, "Student_Info")
    Catch ex As SqlException
        MessageBox.Show(ex.Message)
    Finally
        dbconn.Dispose()
    End Try

然后在 sda.Fill(ds, "Student_Info") 发生错误

Answer 1

我会尝试确保所有一次性物品都在此函数中正确放置。我推荐Using 语句，以帮助确保任何一次性对象在超出范围时得到正确处理。我相信SqlConnection、SqlDataReader、SqlDataAdapter和DataSet都是一次性的。

编辑：虽然我认为蒂姆的回答更针对您的问题（SqlDataReader 未使用且不必要），但您也应该确保清理所有一次性物品。如果您确实使用了 SqlDataReader，则需要在执行任何其他操作之前将其处理掉，除非您只是想证明您可以打开多个结果集一次，在这种情况下，可能是对同一连接的多次访问中缺乏清理（如果其中一个不包括 MultipleActiveResultSets）。

Answer 2

你根本不使用那个阅读器，所以我不明白你的代码。您想用DataAdapter 填充DataSet，那么这是必需的（始终使用Using）：

Dim ds As New DataSet()

Using dbconn As New SqlConnection("Data Source=JENELIE\SQLEXPRESS;Initial Catalog=feeding_monitoring_system;User ID=sa;Password=Jenelie19;MultipleActiveResultSets = true")
    Dim sda = New SqlDataAdapter("select Count (Gender) as NumberofStudent, Gender from Student_Info Group by Gender", dbconn)
    Try
        sda.Fill(ds, "Student_Info") ' you dont need to open/close the connection
    Catch ex As SqlException
       MessageBox.Show(ex.Message)
    End Try
End Using

Answer 3

首先，在这种情况下，你不需要使用 reader，你只需要 SQLDataAdapter。

其次，你应该使用 Conn.Close() 来关闭你的 SQL 连接，而不是 Conn.Dispose()。该错误意味着在您的代码中的某些地方，您事先打开了连接，但从未关闭它。