Error bei Regestrirung

  • VB.NET

Es gibt 46 Antworten in diesem Thema. Der letzte Beitrag () ist von programmer71.

    Error bei Regestrirung

    Hallo ich habe ein problem bei der regestrirungsform von
    Spoiler anzeigen


    es kommt immer der fehler Der Index war außerhalb des Arraybereichs.

    Spoiler anzeigen

    VB.NET-Quellcode

    1. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    2. If TextBox2.Text = TextBox7.Text Then ' Prüft ob die Passwörter übereinstimmen
    3. 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
    4. If TextBox2.Text = TextBox7.Text Then ' Wennn die Emails übereinstimmen dann Trage ein
    5. 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
    6. If result.Row.Count = 0 Then ' Wenn dieser Benutzername nicht existiert dann fang mit der Registrierung an
    8. Dim benutzer As String = TextBox1.Text
    9. Dim passwort As String = MD5StringHash(TextBox2.Text)
    10. db.Query("INSERT INTO yt(user, pw, email, abos, kat, partner, admin)" _
    11. & "VALUES('" & TextBox1.Text & "','" & TextBox2.Text & "','" & TextBox3.Text & "','" & TextBox4.Text & "','" & TextBox5.Text & "','" & TextBox6.Text & "','" & admin & "')")
    13. MsgBox("Der Account mit dem Namen : " & TextBox1.Text & " wurde erfolgreich erstellt")
    14. Else
    15. MsgBox("Dieser Benutzername existiert bereits")
    16. End If
    17. Else
    18. MsgBox("Die eingegebenen Emails stimmen nicht über ein !")
    19. End If
    20. Else
    21. MsgBox("Die eingegebenen E-Mails sind ungültig !")
    22. End If
    23. Else
    24. MsgBox("Die eingegebenen Passwörter stimmen nicht überein")
    25. 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

    In welcher Programmzeile kommt denn der Fehler?
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    Das wäre dann der Release-Modus.
    Nein, das musst Du nicht.
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    Welchen Inhalt hat TextBox1.Text?
    1. der String,
    2. die Bedeutung dieses Strings
    (z.B. "5", Anzahl iwelcher Elemente).
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    RodFromGermany schrieb:

    Welchen Inhalt hat TextBox1.Text?
    1. der String,
    2. die Bedeutung dieses Strings
    (z.B. "5", Anzahl iwelcher Elemente).

    VB.NET-Quellcode

    1. Imports MySqlLib3
    3. Public Class Form4
    4. Dim admin As Integer
    5. Public db As New MySqlLib("http://**********", True)
    6. Private Sub TextBox1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.Click
    7. TextBox1.Text = ""
    8. End Sub
    10. Private Sub TextBox2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox2.Click
    11. TextBox2.Text = ""
    12. End Sub
    14. Private Sub TextBox3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox3.Click
    15. TextBox3.Text = ""
    16. End Sub
    18. Private Sub TextBox4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox4.Click
    19. TextBox4.Text = ""
    20. End Sub
    22. Private Sub TextBox5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox5.Click
    23. TextBox5.Text = ""
    24. End Sub
    26. Private Sub TextBox6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox6.Click
    27. TextBox6.Text = ""
    28. End Sub
    30. Private Sub TextBox7_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox7.Click
    31. TextBox7.Text = ""
    32. End Sub
    34. Private Sub TextBox8_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox8.Click
    35. TextBox8.Text = ""
    36. End Sub
    37. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    38. If TextBox2.Text = TextBox7.Text Then ' Prüft ob die Passwörter übereinstimmen
    39. 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
    40. If TextBox2.Text = TextBox7.Text Then ' Wennn die Emails übereinstimmen dann Trage ein
    41. Dim result As MySqlLib.ResultCollection = db.Query("SELECT * FROM yt WHERE user='" + TextBox1.Text + "'") ' Erstmal eine SQL Abfrage die überprüft ob es den Benutzernamen schon gibt
    42. If result.Row.Count = 0 Then ' Wenn dieser Benutzername nicht existiert dann fang mit der Registrierung an
    44. Dim benutzer As String = TextBox1.Text
    45. Dim passwort As String = MD5StringHash(TextBox2.Text)
    46. db.Query("INSERT INTO yt(user, pw, email, abos, kat, partner, admin)" _
    47. & "VALUES('" & TextBox1.Text & "','" & TextBox2.Text & "','" & TextBox3.Text & "','" & TextBox4.Text & "','" & TextBox5.Text & "','" & TextBox6.Text & "','" & admin & "')")
    49. MsgBox("Der Account mit dem Namen : " & TextBox1.Text & " wurde erfolgreich erstellt")
    50. Else
    51. MsgBox("Dieser Benutzername existiert bereits")
    52. End If
    53. Else
    54. MsgBox("Die eingegebenen Emails stimmen nicht über ein !")
    55. End If
    56. Else
    57. MsgBox("Die eingegebenen E-Mails sind ungültig !")
    58. End If
    59. Else
    60. MsgBox("Die eingegebenen Passwörter stimmen nicht überein")
    61. End If
    62. End Sub
    64. Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged
    65. If ComboBox1.Text = "Admin" Then
    66. admin = 1
    67. Else
    68. admin = 0
    69. End If
    70. End Sub
    71. End Class



    da steht der User drine hab nochma den ganzen coad gepostet

    VB.NET-Quellcode

    1. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    2. If TextBox2.Text = TextBox7.Text Then ' Prüft ob die Passwörter übereinstimmen
    3. 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
    4. If TextBox2.Text = TextBox7.Text Then ' Wennn die Emails übereinstimmen dann Trage ein
    5. try
    6. 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
    7. If result.Row.Count = 0 Then ' Wenn dieser Benutzername nicht existiert dann fang mit der Registrierung an
    9. Dim benutzer As String = TextBox1.Text
    10. Dim passwort As String = MD5StringHash(TextBox2.Text)
    11. db.Query("INSERT INTO yt(user, pw, email, abos, kat, partner, admin)" _
    12. & "VALUES('" & TextBox1.Text & "','" & TextBox2.Text & "','" & TextBox3.Text & "','" & TextBox4.Text & "','" & TextBox5.Text & "','" & TextBox6.Text & "','" & admin & "')")
    14. MsgBox("Der Account mit dem Namen : " & TextBox1.Text & " wurde erfolgreich erstellt")
    15. Else
    16. MsgBox("Dieser Benutzername existiert bereits")
    17. End If
    18. catch ex as exception
    19. msgbox(ex.message)
    20. end try
    21. Else
    22. MsgBox("Die eingegebenen Emails stimmen nicht über ein !")
    23. End If
    24. Else
    25. MsgBox("Die eingegebenen E-Mails sind ungültig !")
    26. End If
    27. Else
    28. MsgBox("Die eingegebenen Passwörter stimmen nicht überein")
    29. End If

    Lass den Try-Block mal raus. Es kommt ja der gleiche Fehler. Denn man sollte diese immer stehen lassen und nie zu unterdrücken versuchen... Das heißt der Fehler liegt irgendwo darin, dass du zu wenig Elemente im Array hast.

    Du könntest die maximale Länge mit der Length-Eigenschaft festlegen.
    Denn du hast hier zu viele Variablen in der Array und der Index ist zu klein. Das ist so wie wenn ich sage 4 von 3. Verstehste? Darum denke ich mal liegt es daran. Sagt nämlich die Fehlermeldung normalerweise aus.