Ihr benötigt MySQl als Verweis
Datenbank bitte so einstellen:
[Blockierte Grafik: http://img98.imageshack.us/img98/5599/image7kz.png]
Alles anzeigen
Das war der Login
jetzt zur registrierung
Alles anzeigen
Das ist alles, was man dazu wissen muss.
Datenbank bitte so einstellen:
[Blockierte Grafik: http://img98.imageshack.us/img98/5599/image7kz.png]
Quellcode
- 'Die verschiedenen Imports-Befehle
- Imports System.Data.SqlClient
- Imports MySql.Data.MySqlClient
- Public Class Login
- Dim MySqlConnection As MySqlConnection
- Private Sub Login_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OK.Click
- 'Label, dass anzeigt, dass die Verbindung aufgebaut wird
- lbVerbindung.Text = "Verbindung wird aufgebaut"
- 'Neue MySQL Connection
- MySqlConnection = New MySqlConnection
- 'ergänze deine Daten (der standart-Port ist 3306
- MySqlConnection.ConnectionString = "server=localhost;port=3306; user ID=Root; password=test; database=Datenbankname"
- MySqlConnection.Open()
- Dim Myadapter As New MySqlDataAdapter
- 'heraussuchen der Datenbank Tabelle und überprüfen deiner Daten
- Dim sqlquary = "SELECT * From Users WHERE Username='" & UsernameTextBox.Text & "'AND Password='" & PasswordTextBox.Text & "';"
- Dim command As New MySqlCommand
- command.Connection = MySqlConnection
- command.CommandText = sqlquary
- Myadapter.SelectCommand = command
- Dim mydata As MySqlDataReader
- mydata = command.ExecuteReader
- 'überprüfen, ob deine Eingaben richtig waren
- If mydata.HasRows = 0 Then
- lbVerbindung.Text = "Fehlerhafte verbindung"
- Else
- lbVerbindung.Text = "erfolgreiche Verbindung"
- 'Aktion, die ausgeführt wird, nachdem du verbunden wurdest
- fmHaupt.Show()
- Me.Close()
- End If
- End Sub
Das war der Login
jetzt zur registrierung
Quellcode
- Private Sub bnregistrieren_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bnFetigstellen.Click
- Dim conn As MySqlConnection
- 'Verbindung zur Datenbank
- conn = New MySqlConnection()
- conn.ConnectionString = "server=db4free.net;port=3306; user ID=fabian131295; password=bb4cbbb4cb; database=klassentreffdb"
- 'falls die Verbindung fehlschlägt
- Try
- conn.Open()
- Catch myerror As MySqlException
- lbVerbindung.Text = "Error connecting to database"
- End Try
- 'SQl querry herrstellen
- Dim myAdapter As New MySqlDataAdapter
- Dim sqlquery = "SELECT * From Users WHERE Username= '" + username.Text & "'"
- Dim myCommand As New MySqlCommand()
- myCommand.Connection = conn
- myCommand.CommandText = sqlquery
- 'querry starten
- myAdapter.SelectCommand = myCommand
- Dim myData As MySqlDataReader
- myData = myCommand.ExecuteReader()
- 'Schauen, ob der User existiert
- If myData.HasRows = 0 Then
- If password.Text = "" Then
- lbVerbindung.Text = "Bitte geben sie ein Password ein!"
- Else
- conn.Close()
- conn.Open()
- Dim registerfinal As New MySqlDataAdapter
- 'Eintrag in der Datenbank erzeugen
- Dim query = "INSERT INTO Users (Username, Password, email) VALUES ('" + username.Text + "','" + password.Text + "','" + email.Text + "')"
- myCommand.Connection = conn
- myCommand.CommandText = query
- registerfinal.SelectCommand = myCommand
- myData = myCommand.ExecuteReader()
- lbVerbindung.Text = "Der Account wurde angelegt"
- End If
- Else
- lbVerbindung.Text = "Der Benutzer existiert bereits"
- End If
- End Sub
Das ist alles, was man dazu wissen muss.
9.441 mal gelesen