Schwerwiegendes Problem mit VB & MySQL

  • VB.NET

Es gibt 4 Antworten in diesem Thema. Der letzte Beitrag () ist von ErfinderDesRades.

    Schwerwiegendes Problem mit VB & MySQL

    Guten morgen Liebe VBler,

    ich habe vor kurzem mein Programm einem Langzeittest unterzogen, jetzt ist mir folgendes Problem aufgefallen.

    Hier ein kurzes Beispiel meines Quellcodes

    Spoiler anzeigen

    VB.NET-Quellcode

    1. Public Sub oeffnungszeitPrüf()
    3. confRead()
    5. Try '' Öffnungszeiten überprüfen
    6. ''Öffnet die verbindung
    7. myConn = New OdbcConnection("Driver={MySQL ODBC 5.1 driver};Server=" & IP _
    8. & ";Database=" & DATENBANK & ";Uid=" & DBUSER _
    9. & ";Pwd=" & DBPASS & ";")
    11. myConn.Open()
    12. strsql = "SELECT oe_von, oe_bis " _
    13. & "FROM oeffnungszeiten " _
    14. & "where oeffnungszeiten.oe_tag = '" & HeutigerTag & "';"
    16. objAdapter = New Odbc.OdbcDataAdapter(strsql, myConn)
    17. objAdapter.Fill(objDataSet, "oeffnungszeiten")
    19. If objDataSet.Tables("oeffnungszeiten").Rows.Count() > 0 Then
    20. With objDataSet.Tables("oeffnungszeiten")
    21. If .Rows.Count() > 0 Then
    22. oeVon = .Rows(0).Item("oe_von").ToString
    23. oeBis = .Rows(0).Item("oe_bis").ToString
    24. End If
    25. End With
    26. End If
    28. If zeitJetzt < oeVon Or zeitJetzt > oeBis Then
    29. alarmok = True
    30. Else
    31. alarmok = False
    32. End If
    34. ExecuteParams()
    36. Catch ex As Exception
    37. ''Schreibt die Fehlermeldung in eine .txt
    38. Fehlerbericht("Ein Fehler ist aufgetretten in Zeile: " & Err.Erl & ex.Message)
    39. End Try
    40. ''Schliesst die Verbindung
    41. myconn.close
    43. End Sub


    Mein Problem ist jetzt das die Verbindung nicht richtig geschlossen wird.



    Frage ist also
    Wie schaffe ich es in VB2010 die verbindungen Kommplett zu schliessen sodass nicht die ganzen Verbindungen Blockiert werden ?

    Danke im vorraus schonmal für die Hilfe

    Sorry ich hab den Fehler gefunden er ist mir grade zu wie eine Erleuchtung zugeflogen.

    Der Fehler liegt in diesem Abschnitt

    VB.NET-Quellcode

    1. ''Zugangsdaten der Connection zuweisen
    2. myConn = New OdbcConnection("Driver={MySQL ODBC 5.1 driver};Server=" & IP _
    3. & ";Database=" & DATENBANK & ";Uid=" & DBUSER _
    4. & ";Pwd=" & DBPASS & ";")
    5. ''Verbindung öffnen
    6. myConn.Open()
    7. ''Die SQL Abfrage einer String Variablen zuweisen
    8. strsql = "SELECT oe_von, oe_bis " _
    9. & "FROM oeffnungszeiten " _
    10. & "where oeffnungszeiten.oe_tag = '" & HeutigerTag & "';"
    11. ''''''''''Jetzt kommt der Fehler
    12. ''An Dieser stelle wird die Verbindung erneut geöffnet vom ODBC Adapter Quasi Doppelt geöffnet aber nur einmal geschlossen
    13. objAdapter = New Odbc.OdbcDataAdapter(strsql, myConn)
    14. objAdapter.Fill(objDataSet, "oeffnungszeiten")


    Trotzdem vielen Dank für eure Hilfe

    symphonie89 schrieb:

    'An Dieser stelle wird die Verbindung erneut geöffnet vom ODBC Adapter Quasi Doppelt geöffnet aber nur einmal geschlossen

    sicher?

    Nach meinen Recherchen verlässt ein DataAdapter die Connection, wie er sie vorfund: War sie geschlossen, so öffnet er sie zur Befüllung und schließt sie nachher, anderenfalls tastet er sie garnet an.

    Ob das ein Bug in Odbc ist? weil meine Recherchen waren OleDb, und habich angenommen, dass sei das Standard-Verhalten aller DataAdapter.

Facebook
Telefonspende