Hey Leute ich habe folgendes Problem:
und zwar hab ich ein Programm geschrieben, dass relativ oft auf eine MySql DB zugreift. Aber ich habe irgendwie das Gefühl, dass die Verbindung nach der Aktion nicht richtig geschlossen wird.
Das habe ich mir dann auch mit der netstat.exe bestätigen lassen, die Verbindung ist geöffnet, solange das Programm offen ist.
Das nervige daran ist dass ich max. 25 Verbindungen gleichzeitig offen lassen kann, d.h. es können max. 25 Clienten gleichzeitig offen sein.
Hier mein Code, den ich für eine Verbindung nutze:
Spoiler anzeigen
bzw.
wäre sehr dankbar, wenn ihr mir helfen könntet..
Danke im Vorraus!
und zwar hab ich ein Programm geschrieben, dass relativ oft auf eine MySql DB zugreift. Aber ich habe irgendwie das Gefühl, dass die Verbindung nach der Aktion nicht richtig geschlossen wird.
Das habe ich mir dann auch mit der netstat.exe bestätigen lassen, die Verbindung ist geöffnet, solange das Programm offen ist.
Das nervige daran ist dass ich max. 25 Verbindungen gleichzeitig offen lassen kann, d.h. es können max. 25 Clienten gleichzeitig offen sein.
Hier mein Code, den ich für eine Verbindung nutze:
VB.NET-Quellcode
- Dim conzaehler As New MySqlConnection
- Dim cmdzaehler As New MySqlCommand
- Dim myAdapterzaehler As New MySqlDataAdapter
- conzaehler.ConnectionString = "Data Source=***;Database=****;UID=****;pwd=****"
- cmdzaehler.Connection = conzaehler
- cmdzaehler.CommandText = "UPDATE informationen SET zaehler = zaehler+1"
- Try
- conzaehler.Open()
- myAdapterzaehler.SelectCommand = cmdzaehler
- cmdzaehler.ExecuteNonQuery()
- conzaehler.Close()
- Catch ex As Exception
- MsgBox("ERROR: Cant connect to our Server", ex.Message)
- End Try
bzw.
VB.NET-Quellcode
- Dim con As New MySqlConnection
- Dim cmd As New MySqlCommand
- Dim dreader As MySqlDataReader
- con.ConnectionString = "Data Source=***;Database=****;UID=****;pwd=****"
- cmd.Connection = con
- cmd.CommandText = "SELECT * FROM informationen"
- Try
- con.Open()
- dreader = cmd.ExecuteReader()
- Do While dreader.Read()
- infofeld.Text = "Info: " & (dreader("Info"))
- infofeld.ForeColor = Color.White
- Loop
- dreader.Close()
- con.Close()
- Catch ex As Exception
- MsgBox("An error has occurred. The application will be shut down.")
- Application.Exit()
- End Try
wäre sehr dankbar, wenn ihr mir helfen könntet..
Danke im Vorraus!
Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „fammin“ ()