数据阅读器与连接必须关闭错误

Question

我有这个奇怪的错误，我还找不到解决方案。每当我必须在数据库中插入数据时，我都有一个函数。它的实际工作，因为当我检查数据库条目，他们实际上在那里。

但是我有这个烦人的错误“已经有一个打开的数据阅读器与连接必须关闭”。我找不到一个方法来阅读它。

这是函数：

Sub InputDataValues(ByVal StrQwery As String) 
    Try 
     myconn.Open() 
     Dim stquery As String = StrQwery 
     Dim smd As MySqlCommand 
     smd = New MySqlCommand(stquery, myconn) 
     smd.ExecuteReader() 

     smd.ExecuteReader().Close()//I added this when I wanted to get rid if the mistake 
     myconn.Close() 

    Catch ex As Exception 
     Dim ErrorMessage As String = "alert('" & ex.Message.ToString() & "');" 
     Page.ClientScript.RegisterStartupScript(Me.GetType(), "ErrorAlert", ErrorMessage, True) 
     myconn.Close() 
    End Try 
    myconn.Close() 
End Sub 

这是我怎么称呼它几次下来代码：

InputDataValues(StrQwery) 

如果有人凸轮给我一个提示，我将不胜感激。

这是怎么看当我把它改成的ExecuteNonQuery

Sub InputDataValues(ByVal StrQwery As String) 
    Try 
     myconn.Open() 
     Dim stquery As String = StrQwery 
     Dim retValue As Integer 
     Dim smd As MySqlCommand 
     smd = New MySqlCommand(stquery, myconn) 
     retValue = smd.EndExecuteNonQuery() 

     myconn.Close() 

    Catch ex As Exception 
     Dim ErrorMessage As String = "alert('" & ex.Message.ToString() & "');" 
     Page.ClientScript.RegisterStartupScript(Me.GetType(), "ErrorAlert", ErrorMessage, True) 
     myconn.Close() 
    End Try 
    myconn.Close() 
End Sub 

Answer 1

你可以使用的ExecuteNonQuery取代的ExecuteReader因为你只是插入数据。 在你coede，我的猜测是每次你调用ExecuteReader你得到一个新的阅读器，所以你应该打电话给你创建的第一个关闭。