MySQL Datenbank-Login mit registrierung

Diese Seite verwendet Cookies. Durch die Nutzung unserer Seite erklären Sie sich damit einverstanden, dass wir Cookies setzen. Weitere Informationen

  • Ein kleiner Wiki-Eintrag, der den Login mit der Hilfe einer Datenbank beschreibt. Außerdem werde ich hier auch noch die registrierung ergänzen.
    Ihr benötigt MySQl als Verweis
    Datenbank bitte so einstellen:
    [Blockierte Grafik: http://img98.imageshack.us/img98/5599/image7kz.png]


    Quellcode

    1. 'Die verschiedenen Imports-Befehle
    2. Imports System.Data.SqlClient
    3. Imports MySql.Data.MySqlClient
    4. Public Class Login
    6. Dim MySqlConnection As MySqlConnection
    7. Private Sub Login_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OK.Click
    8. 'Label, dass anzeigt, dass die Verbindung aufgebaut wird
    9. lbVerbindung.Text = "Verbindung wird aufgebaut"
    10. 'Neue MySQL Connection
    11. MySqlConnection = New MySqlConnection
    12. 'ergänze deine Daten (der standart-Port ist 3306
    13. MySqlConnection.ConnectionString = "server=localhost;port=3306; user ID=Root; password=test; database=Datenbankname"
    14. MySqlConnection.Open()
    16. Dim Myadapter As New MySqlDataAdapter
    17. 'heraussuchen der Datenbank Tabelle und überprüfen deiner Daten
    18. Dim sqlquary = "SELECT * From Users WHERE Username='" & UsernameTextBox.Text & "'AND Password='" & PasswordTextBox.Text & "';"
    19. Dim command As New MySqlCommand
    20. command.Connection = MySqlConnection
    21. command.CommandText = sqlquary
    22. Myadapter.SelectCommand = command
    23. Dim mydata As MySqlDataReader
    24. mydata = command.ExecuteReader
    25. 'überprüfen, ob deine Eingaben richtig waren
    26. If mydata.HasRows = 0 Then
    27. lbVerbindung.Text = "Fehlerhafte verbindung"
    28. Else
    29. lbVerbindung.Text = "erfolgreiche Verbindung"
    30. 'Aktion, die ausgeführt wird, nachdem du verbunden wurdest
    31. fmHaupt.Show()
    32. Me.Close()
    33. End If
    34. End Sub
    Alles anzeigen


    Das war der Login
    jetzt zur registrierung

    Quellcode

    1. Private Sub bnregistrieren_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bnFetigstellen.Click
    2. Dim conn As MySqlConnection
    3. 'Verbindung zur Datenbank
    4. conn = New MySqlConnection()
    5. conn.ConnectionString = "server=db4free.net;port=3306; user ID=fabian131295; password=bb4cbbb4cb; database=klassentreffdb"
    6. 'falls die Verbindung fehlschlägt
    7. Try
    8. conn.Open()
    9. Catch myerror As MySqlException
    10. lbVerbindung.Text = "Error connecting to database"
    11. End Try
    12. 'SQl querry herrstellen
    13. Dim myAdapter As New MySqlDataAdapter
    15. Dim sqlquery = "SELECT * From Users WHERE Username= '" + username.Text & "'"
    16. Dim myCommand As New MySqlCommand()
    17. myCommand.Connection = conn
    18. myCommand.CommandText = sqlquery
    19. 'querry starten
    20. myAdapter.SelectCommand = myCommand
    21. Dim myData As MySqlDataReader
    22. myData = myCommand.ExecuteReader()
    23. 'Schauen, ob der User existiert
    24. If myData.HasRows = 0 Then
    25. If password.Text = "" Then
    26. lbVerbindung.Text = "Bitte geben sie ein Password ein!"
    27. Else
    28. conn.Close()
    29. conn.Open()
    31. Dim registerfinal As New MySqlDataAdapter
    32. 'Eintrag in der Datenbank erzeugen
    33. Dim query = "INSERT INTO Users (Username, Password, email) VALUES ('" + username.Text + "','" + password.Text + "','" + email.Text + "')"
    34. myCommand.Connection = conn
    35. myCommand.CommandText = query
    36. registerfinal.SelectCommand = myCommand
    37. myData = myCommand.ExecuteReader()
    38. lbVerbindung.Text = "Der Account wurde angelegt"
    39. End If
    42. Else
    43. lbVerbindung.Text = "Der Benutzer existiert bereits"
    44. End If
    45. End Sub
    Alles anzeigen


    Das ist alles, was man dazu wissen muss.

    9.490 mal gelesen