Hi Comm,
ich habe eine Tabelle namens accounts, in der die Spalten ID, Username, Password, EMail, Serial und Banned existieren.
Wenn ich diesen Befehl ausführen will, kommt immer "Der Benutzer konnte nicht gefunden werden!"
Hoffe jemand kann mir helfen.
ich habe eine Tabelle namens accounts, in der die Spalten ID, Username, Password, EMail, Serial und Banned existieren.
Wenn ich diesen Befehl ausführen will, kommt immer "Der Benutzer konnte nicht gefunden werden!"
VB.NET-Quellcode
- Public Sub BanAccount(ByVal username As String)
- Try
- conn = New MySqlConnection(String.Format("Server='{0}';Uid='{1}';Pwd='{2}';Database='{3}';Port='{4}';", ToolStripTextBox5.Text, ToolStripTextBox4.Text, ToolStripTextBox3.Text, _
- ToolStripTextBox2.Text, ToolStripTextBox1.Text))
- Catch ex As Exception
- MsgBox("Fehler:" & vbNewLine & ex.Message.ToString, MsgBoxStyle.Critical)
- End Try
- If conn.State = ConnectionState.Open Then
- conn.Close()
- End If
- Try
- conn.Open()
- Catch myerror As MySqlException
- MsgBox("Keine Verbindung zur Datenbank!", MsgBoxStyle.Exclamation)
- conn.Close()
- Exit Sub
- End Try
- Try
- Dim myAdapter As New MySqlDataAdapter
- Dim SQLAbfrage As String = String.Format("SELECT * FROM accounts WHERE Username='{0}';", username)
- Dim myCommand As New MySqlCommand
- myCommand.Connection = conn
- myCommand.CommandText = SQLAbfrage
- myAdapter.SelectCommand = myCommand
- Dim myData As MySqlDataReader
- myData = myCommand.ExecuteReader()
- If myData.HasRows = 1 Then
- conn.Close()
- conn.Open()
- Dim registerfinal As New MySqlDataAdapter
- myCommand.CommandText = "UPDATE accounts SET Banned = 1 WHERE Username = " & username & ";"
- myCommand.ExecuteNonQuery()
- MsgBox("Der Account " & username & " wurde gebannt.", MsgBoxStyle.Information)
- Else
- MsgBox("Der Benutzer konnte nicht gefunden werden!", MsgBoxStyle.Exclamation)
- End If
- conn.Close()
- Catch mysqlex As MySqlException
- MsgBox(mysqlex.Message.ToString, MsgBoxStyle.Exclamation)
- Catch ex As Exception
- MsgBox(ex.Message.ToString, MsgBoxStyle.Exclamation)
- End Try
- End Sub
Hoffe jemand kann mir helfen.
LG
Merio
Merio