Hallo,
Ich habe mir mit diesen Tut [VB 2008] Login + Registrierung ins Programm einbauen
ein mysql login für mein programm gemacht
Connection funktioniert zur db (database).
Habe in die tabele ein username und pw eingetragen im programm reingeschreiben...
bekomme aber trzodem dem die msgbox wo sthet falsche daten? :O
Aber warum?
Wen jemand zufaul ist aufs theard zugehn hier der code:
Sorry hat sich erledigt
Ich habe mir mit diesen Tut [VB 2008] Login + Registrierung ins Programm einbauen
ein mysql login für mein programm gemacht
Connection funktioniert zur db (database).
Habe in die tabele ein username und pw eingetragen im programm reingeschreiben...
bekomme aber trzodem dem die msgbox wo sthet falsche daten? :O
Aber warum?
Wen jemand zufaul ist aufs theard zugehn hier der code:
VB.NET-Quellcode
- Private Sub Panel2_MouseClick(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Panel2.MouseClick
- Panel2.BackgroundImage = My.Resources.press
- 'mysql Login
- Dim conn As MySqlConnection
- conn = New MySqlConnection
- conn.ConnectionString = "server=db4free.net;" _
- & "user id=sinlyu;" _
- & "password=******;" _
- & "database=login"
- 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(benutzer, " ", "") + "' AND Passwort='" & Replace(passwort, " ", "") & "'" ' 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 erfolgreich !")
- conn.Close()
- conn.Open()
- Else 'Sonst wird angezeigt das die Daten falsch sind
- MsgBox("Fehler Code 2 : Falsche Daten")
- End If
Sorry hat sich erledigt
Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „Sinlyu“ ()