Hallo zusammen,
ich arbeite gerade an einem selbst geschriebenden Programm von mir und ich finde einfach keine Lösung.
Imports MySql.Data.MySqlClient
Imports MySql.Data
Public Class OptionDDM
Dim con As New MySqlConnection("Server=localhost;Database=ddm;Uid=ddmProg;Pwd=label")
Dim cmd As MySqlCommand
Dim reader As MySqlDataReader
Dim adapter As New MySqlDataAdapter
Dim sQuery As String
Private Sub btOnline_Click(sender As System.Object, e As System.EventArgs) Handles btOnline.Click
Try
sQuery = "UPDATE ddm_support SET supportOnline=1 WHERE username='" & lbSupport.SelectedItem & "'"
cmd = New MySqlCommand(sQuery, con)
con.Open()
cmd.ExecuteNonQuery()
adapter.SelectCommand = cmd
reader = cmd.ExecuteReader()
con.Close()
Catch ex As Exception
MsgBox("Error: " & vbCrLf & vbCrLf & ex.Message)
End Try
End Sub
Private Sub btOffline_Click(sender As System.Object, e As System.EventArgs) Handles btOffline.Click
Try
sQuery = "UPDATE ddm_support SET supportOnline=0 WHERE username='" & lbSupport.SelectedItem & "'"
cmd = New MySqlCommand(sQuery, con)
con.Open()
cmd.ExecuteNonQuery()
adapter.SelectCommand = cmd
reader = cmd.ExecuteReader()
con.Close()
Catch ex As Exception
MsgBox("Error: " & vbCrLf & vbCrLf & ex.Message)
End Try
End Sub
End Class
Ich möchte mit hilfe eines UPDATE befehl den Datensatz in der Tabelle ddm_support ändern. Es kommt zwar keine Fehlermeldung, aber es tut sich auch nix. Der Datensatz bleibt unverändert.
Ich danke euch schon mal im Voraus :)
Gruß lycos415