Hallo Leute,
ich komme gerade absolut nicht weiter, ich versuche den Sourcecode so umzubauen,
das er auch überprüft, ob die E-Mail Adresse bereits vorhanden ist und das er zu jedem
Benutzer auch die Hardwareid Speichert.
Zum Testen habe ich eine Windows Forms Anwendung erstellt mit 6 Textboxen und 1 Button erstellt.
-Benutzername
-Passwort
-Passwort wiederhohlen
-E-Mail
-E-Mail wiederhohlen
-Hardware ID
Der Code von Button1
Spoiler anzeigen
Hier kommt der Error:
undzwar das:
Ich hoffe ihr könnt mit den Informationen was anfangen,
und könnt mich unterstützen.
ich komme gerade absolut nicht weiter, ich versuche den Sourcecode so umzubauen,
das er auch überprüft, ob die E-Mail Adresse bereits vorhanden ist und das er zu jedem
Benutzer auch die Hardwareid Speichert.
Zum Testen habe ich eine Windows Forms Anwendung erstellt mit 6 Textboxen und 1 Button erstellt.
-Benutzername
-Passwort
-Passwort wiederhohlen
-E-Mail wiederhohlen
-Hardware ID
Der Code von Button1
VB.NET-Quellcode
- Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
- If TextBox2.Text = TextBox3.Text Then ' Prüft ob die Passwörter übereinstimmen
- If TextBox4.Text.Contains("@") And TextBox5.Text.Contains("@") Then ' Prüft ob die E-Mails ein @ enthalten.Damit wird geschaut ob die Email gültig ist
- If TextBox4.Text = TextBox5.Text Then ' Wennn die Emails übereinstimmen dann Trage ein
- Dim conn As MySqlConnection
- conn = New MySqlConnection
- conn.ConnectionString = "server=ipadresse;" & "user id=username;" & "password=passwort;" & "database=database" 'Hier gibt ihr die Datenbank ein auf der die Tabelle benutzer liegt
- Try
- conn.Open() ' Verbindung öffnen
- Catch myerror As MySqlException
- MsgBox("Keine Verbindung zur Datenbank : " & myerror.Message.ToString)
- End Try
- Dim myAdapter As New MySqlDataAdapter
- Dim SQLAbfrage As String = "SELECT * FROM benutzer WHERE Benutzername='" + TextBox1.Text + "'" ' Erstmal eine SQL Abfrage die überprüft ob es den Benutzernamen schon gibt
- Dim SQLAbfrage3 As String = "SELECT * FROM benutzer WHERE Email'" + TextBox4.Text + "'" ' Erstmal eine SQL Abfrage die überprüft ob es den Benutzernamen schon gibt
- Dim myCommand As New MySqlCommand
- myCommand.Connection = conn
- myCommand.CommandText = SQLAbfrage
- myAdapter.SelectCommand = myCommand
- Dim myData As MySqlDataReader
- myData = myCommand.ExecuteReader() ' Abfrage starten
- If myData.HasRows = 0 Then ' Wenn dieser Benutzername nicht existiert dann fang mit der Registrierung an
- conn.Close()
- conn.Open()
- Dim registerfinal As New MySqlDataAdapter
- Dim benutzer As String = MD5StringHash(TextBox1.Text)
- Dim passwort As String = MD5StringHash(TextBox2.Text)
- myCommand.CommandText = "INSERT INTO benutzer(Benutzername, Passwort, Email, Hardware ID)" _
- & "VALUES('" & benutzer & "','" & passwort & "','" & TextBox4.Text & "','" & TextBox6.Text & "')"
- myCommand.ExecuteNonQuery() ' SQL Abfrage starten und eintragen
- MsgBox("Der Account mit dem Namen : " & TextBox1.Text & " wurde erfolgreich erstellt")
- conn.Close()
- Else
- MsgBox("Dieser Benutzername, diese E-Mail, wird bereits verwendet.")
- End If
- Else
- MsgBox("Die eingegebenen Emails stimmen nicht über ein !")
- End If
- Else
- MsgBox("Die eingegebenen E-Mails sind ungültig !")
- End If
- Else
- MsgBox("Die eingegebenen Passwörter stimmen nicht überein")
- End If
- End Sub
Hier kommt der Error:
undzwar das:
Ich hoffe ihr könnt mit den Informationen was anfangen,
und könnt mich unterstützen.