Hallo liebe Communix.
Visual Company arbeitet gerade mit hoch Turen an einem neuen Chat, der auf einen Rootserver gehostet wird.
Nun sind wir an einer Gränze gestoßen, wo wir eure Hilfe benötigen.
Und zwar wollen wir in den Code eine Sqlabfrage reinbauen, die abfragt, ob in der Datenbank in der Spalte "banned" eine 1 ist.
Wenn in der Spalte eine 1 vorhanden ist, soll eine msgbox mit dem Text "Dein Account wurde gebannt!" kommen.
Der Code der beim Login benutzt wird ist dieser:
Ich hoffe das hier jemand helfen kann.
mfG.
Sacred
Visual Company arbeitet gerade mit hoch Turen an einem neuen Chat, der auf einen Rootserver gehostet wird.
Nun sind wir an einer Gränze gestoßen, wo wir eure Hilfe benötigen.
Und zwar wollen wir in den Code eine Sqlabfrage reinbauen, die abfragt, ob in der Datenbank in der Spalte "banned" eine 1 ist.
Wenn in der Spalte eine 1 vorhanden ist, soll eine msgbox mit dem Text "Dein Account wurde gebannt!" kommen.
Der Code der beim Login benutzt wird ist dieser:
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim conn As MySqlConnection
conn = New MySqlConnection
conn.ConnectionString = "server=localhost;" & "user id=root;" & "password=1234;" & "database=chat;" 'Hier gibt ihr die Server IP ein
Try
conn.Open() ' Verbindung öffnen
Catch myerror As MySqlException
MsgBox("Keine Verbindung zur Datenbank : " & myerror.Message.ToString) ' Falls Fehler : Fehler anzeigen
End Try
'Dim benutzer As String = MD5StringHash(TextBox1.Text)
'Dim passwort As String = MD5StringHash(TextBox2.Text)
Dim myAdapter As New MySqlDataAdapter
Dim SQLAbfrage As String = "SELECT * FROM benutzer WHERE Benutzername='" + Replace(TextBox2.Text, " ", "") + "' AND Passwort='" & Replace(TextBox1.Text, " ", "") & "'" ' Das ist die Abfrage welche Prüft ob der Account existiert.Die txt_benutzer ist die Textbox in der der Benutzername eingeben wird und txt_passwort bekommt das Passwort
Dim myCommand As New MySqlCommand
myCommand.Connection = conn
myCommand.CommandText = SQLAbfrage
myAdapter.SelectCommand = myCommand
Dim myData As MySqlDataReader
myData = myCommand.ExecuteReader() ' Hier startet man die SQL Abfrage
If myData.HasRows Then ' Wenn die Abfrage Einträge enthält / also der Benutzer und das Passwort stimmen überein
MsgBox("Einloggen war erfolgreich!")
Form2.Show()
Me.Hide()
conn.Close()
conn.Open()
Else 'Sonst wird angezeigt das die Daten falsch sind
MsgBox("Fehler Code 2 : Du hast da wohl etwas Falsch gemacht.")
End If
End Sub
Ich hoffe das hier jemand helfen kann.
mfG.
Sacred