Fehler zeigen, Es ist bereits ein geöffneter DataReader zugeordnet diesen Befehl, der zuerst geschlossen werden

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

    Dim n As Integer = 0
    str = "select Vote from vote where party='Green'"
    cmd = New SqlCommand(str, con)
    con.Open()
    dr = cmd.ExecuteReader()
    if dr.HasRows Then
      dr.Read()
      n = dr("Vote").ToString()
      n = n + 1
      Label8.Text = n.ToString()
    End If

    str = "update Vote set vote='" + n.ToString() + "' where party='Green'"
    cmd = New SqlCommand(str, con)
    cmd.ExecuteNonQuery()
    dr.Read()
    cmd.Dispose()
    con.Close()

End Sub

Entsorgen dr auch am Ende.

InformationsquelleAutor user2655643 | 2013-09-26

vb.net

1

Die Botschaft scheint zu sein, ziemlich klar. Haben Sie zum schließen des DataReader, bevor Sie versuchen zu verwenden, die Anschluss für eine weitere operation

MSDN sagt

Während der SqlDataReader verwendet wird, das zugeordnete SqlConnection ist
beschäftigt, dienen die SqlDataReader und keine anderen Operationen können sein
durchgeführt wird auf der SqlConnection-andere, als Sie es schließen. Dies ist der Fall,
bis Sie die Close-Methode des SqlDataReader-genannt wird. Zum Beispiel,
Sie können nicht Ausgabeparameter abrufen, bis, nachdem Sie in der Nähe nennen.
```
....
dr.Close()
str = "update Vote set vote='" + n.ToString() + "' where party='Green'"
cmd = New SqlCommand(str, con)
cmd.ExecuteNonQuery()
' ??? dr.Read()
cmd.Dispose()
con.Close()
```
Durch die Art und Weise, den ganzen code kann vereinfacht werden, mithilfe einer ExecuteScalar um die Letzte Abstimmung Wert und Abladen der DataReader
```
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

    Dim n As Integer = 0
    str = "select Vote from vote where party='Green'"
    Using cmd = New SqlCommand(str, con)
        con.Open()
        Dim n as Integer
        Dim result = cmd.ExecuteScalar()
        if result IsNot Nothing Then
            n = Convert.ToInt32(result) + 1
        else
            n = 1
        End If
        Label8.Text = n.ToString()
        str = "update Vote set vote='" + n.ToString() + "' where party='Green'"
        cmd.CommandText = str
        cmd.ExecuteNonQuery()
        con.Close()
    End Using
End Sub
```
In diesem Szenario verwenden Sie eine Globale connection-Objekt, und dies vermieden werden sollte. Denken Sie daran, dass es immer besser ist, zu erstellen, zu öffnen, verwenden und vernichten die Verbindung, wenn Sie brauchen, um es zu benutzen. Der SqlClient-Klassen nutzen könnte, die Verbindungs-Pooling Infrastruktur, die könnte helfen, eine Menge in der Verwaltung wertvolle Ressourcen wie eine Verbindung

InformationsquelleAutor Steve

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

  try

    Dim n As Integer = 0

    str = "select Vote from vote where party='Green'"
    cmd = New SqlCommand(str, con)
    con.Open()

    dr.Close()
    dr = cmd.ExecuteReader()
    if dr.HasRows Then
      dr.Read()
      n = dr("Vote").ToString()
      n = n + 1
      Label8.Text = n.ToString()
    End If

    str = "update Vote set vote='" + n.ToString() + "' where party='Green'"
    cmd = New SqlCommand(str, con)
    cmd.ExecuteNonQuery()
    dr.Read()

   Finally

    cmd.Dispose()
    con.Close()

  End Try

End Sub

InformationsquelleAutor Nadeem_MK

0

Add multiple active Resultsets, die zu Ihrem Verbindungs-string, wie unten gezeigt

Beispiel:
```
"Server=Server;Database=MyDatabase;Trusted_Connection=True;MultipleActiveResultSets=true;"
```
InformationsquelleAutor Steven Rotelli

Schreibe einen Kommentar

Du musst angemeldet sein, um einen Kommentar abzugeben.