Mysql Login

  • VB.NET

    Mysql Login

    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:

    VB.NET-Quellcode

    1. Private Sub Panel2_MouseClick(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Panel2.MouseClick
    2. Panel2.BackgroundImage = My.Resources.press
    3. 'mysql Login
    4. Dim conn As MySqlConnection
    5. conn = New MySqlConnection
    6. conn.ConnectionString = "server=db4free.net;" _
    7. & "user id=sinlyu;" _
    8. & "password=******;" _
    9. & "database=login"
    11. Try
    12. conn.Open() ' Verbindung öffnen
    13. Catch myerror As MySqlException
    14. MsgBox("Keine Verbindung zur Datenbank : " & myerror.Message.ToString) ' Falls Fehler : Fehler anzeigen
    15. End Try
    17. Dim benutzer As String = MD5StringHash(TextBox1.Text)
    18. Dim passwort As String = MD5StringHash(TextBox2.Text)
    20. Dim myAdapter As New MySqlDataAdapter
    21. 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
    22. Dim myCommand As New MySqlCommand
    23. myCommand.Connection = conn
    24. myCommand.CommandText = SQLAbfrage
    26. myAdapter.SelectCommand = myCommand
    27. Dim myData As MySqlDataReader
    28. myData = myCommand.ExecuteReader() ' Hier startet man die SQL Abfrage
    29. If myData.HasRows Then ' Wenn die Abfrage Einträge enthält / also der Benutzer und das Passwort stimmen überein
    30. MsgBox("Einloggen erfolgreich !")
    31. conn.Close()
    32. conn.Open()
    34. Else 'Sonst wird angezeigt das die Daten falsch sind
    35. MsgBox("Fehler Code 2 : Falsche Daten")
    36. End If



    Sorry hat sich erledigt

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „Sinlyu“ ()