Hallo ich habe ein problem bei der regestrirungsform von
es kommt immer der fehler Der Index war außerhalb des Arraybereichs.
Spoiler anzeigen
komisch is nur wen der benutzer gibt zeigt er es an das es ihn schon gibt aber wen ich z.b user a anlegen will klappt das nicht
es kommt immer der fehler Der Index war außerhalb des Arraybereichs.
VB.NET-Quellcode
- Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
- If TextBox2.Text = TextBox7.Text Then ' Prüft ob die Passwörter übereinstimmen
- If TextBox3.Text.Contains("@") And TextBox8.Text.Contains("@") Then ' Prüft ob die E-Mails ein @ enthalten.Damit wird geschaut ob die Email gültig ist
- If TextBox2.Text = TextBox7.Text Then ' Wennn die Emails übereinstimmen dann Trage ein
- Dim result As MySqlLib.ResultCollection = db.Query("SELECT * FROM yt WHERE user='" + TextBox1.Text + "'") ' Erstmal eine SQL Abfrage die überprüft ob er den Benutzernamen schon gibt <------- Hier is der fehler
- If result.Row.Count = 0 Then ' Wenn dieser Benutzername nicht existiert dann fang mit der Registrierung an
- Dim benutzer As String = TextBox1.Text
- Dim passwort As String = MD5StringHash(TextBox2.Text)
- db.Query("INSERT INTO yt(user, pw, email, abos, kat, partner, admin)" _
- & "VALUES('" & TextBox1.Text & "','" & TextBox2.Text & "','" & TextBox3.Text & "','" & TextBox4.Text & "','" & TextBox5.Text & "','" & TextBox6.Text & "','" & admin & "')")
- MsgBox("Der Account mit dem Namen : " & TextBox1.Text & " wurde erfolgreich erstellt")
- Else
- MsgBox("Dieser Benutzername existiert bereits")
- 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
komisch is nur wen der benutzer gibt zeigt er es an das es ihn schon gibt aber wen ich z.b user a anlegen will klappt das nicht