[ExecuteNonQuery] MySQLException wurde nicht behandelt ??

  • VB.NET

Es gibt 3 Antworten in diesem Thema. Der letzte Beitrag () ist von picoflop.

    [ExecuteNonQuery] MySQLException wurde nicht behandelt ??

    Hallo Leute,
    Ich habe ein Problem mit meinem Registrier Button.

    Ich bekomme eine Fehlermeldung bei folgendem Code

    VB.NET-Quellcode

    1. Imports MySql
    2. Imports MySql.Data
    3. Imports MySql.Data.MySqlClient
    4. Public Class Form2
    6. ''' <summary>
    7. ''' Hier wird der Loginbutton bescrieben
    8. ''' </summary>
    9. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    10. If TextBox2.Text = TextBox3.Text Then
    11. Dim conn As New MySqlConnection
    12. Dim cmd As New MySqlCommand
    13. Dim anzahl As Integer
    14. conn.ConnectionString = "Server=funkspiel-bos-funk.de; Uid=benutzer; Password=juergen; Database=benutzer;"
    15. 'Verbindung Öffnen
    17. cmd.Connection = conn
    18. conn.Open()
    20. Dim myAdapter As New MySqlDataAdapter
    21. Dim SQLAbfrage As String = "SELECT * FROM benutzer Where Benutzername=" + TextBox1.Text + "'"
    23. cmd.CommandText = SQLAbfrage
    24. anzahl = cmd.ExecuteNonQuery
    25. myAdapter.SelectCommand = cmd
    27. Dim reader As MySqlDataReader
    28. reader = cmd.ExecuteReader
    30. If reader.HasRows = 0 Then
    31. conn.Close()
    32. conn.Open()
    33. Dim registerfinal As New MySqlDataAdapter
    34. Dim benutzer As String = MD5StringHash(TextBox1.Text)
    35. Dim passwort As String = MD5StringHash(TextBox2.Text)
    37. cmd.CommandText = "INSERT INTO benutzer (Benutzername,Passwort,EMail) VALUES ('" & benutzer & "','" & passwort & "','" & "')"
    38. cmd.ExecuteNonQuery()
    39. MessageBox.Show("Der Account mit dem Namen: " & TextBox1.Text & " wurde erfolgreich erstellt")
    40. conn.Close()
    41. Else
    42. MessageBox.Show("Benutzer bereits Vorhanden")
    43. End If
    44. Else
    45. MessageBox.Show("Passwörter stimmen nicht überein")
    46. End If
    47. End Sub
    48. End Class

    Bei ExecuteNonQuery bekomme ich den Fehler MySQLException wurde nicht behandelt.

    Genauer Fehler in Bild im Anhang

    Ich grabe diesen Thread noch einmal aus, da ich das gleiche Problem habe.. Hier mein Code, falls es hilft..


    VB.NET-Quellcode

    1. If register.txt_email.Text.Contains("@") Then ' Prüft ob die E-Mail ein @ enthält. Damit wird geschaut ob die Email gültig ist
    3. Dim conn As MySqlConnection
    4. conn = New MySqlConnection
    5. conn.ConnectionString = "server=localhost;" _
    6. & "user id=root;" _
    7. & "password=123456;" _
    8. & "database=herocc"
    9. Try
    10. conn.Open() ' Verbindung öffnen
    12. Catch myerror As MySqlException
    13. MsgBox("Keine Verbindung zur Datenbank : " & myerror.Message.ToString)
    14. End Try
    16. Dim myAdapter As New MySqlDataAdapter
    17. Dim SQLAbfrage As String = "SELECT * FROM benutzer WHERE Benutzername='" + register.txt_benutzer.Text + "'" ' Erstmal eine SQL Abfrage die überprüft ob es den Benutzernamen schon gibt
    18. Dim myCommand As New MySqlCommand
    19. myCommand.Connection = conn
    20. myCommand.CommandText = SQLAbfrage
    22. myAdapter.SelectCommand = myCommand
    23. Dim myData As MySqlDataReader
    24. myData = myCommand.ExecuteReader() ' Abfrage starten
    27. If myData.HasRows = 0 Then ' Wenn dieser Benutzername nicht existiert dann fang mit der Registrierung an
    28. conn.Close()
    29. conn.Open()
    31. Dim registerfinal As New MySqlDataAdapter
    32. Dim benutzer As String = register.txt_benutzer.Text
    33. Dim passwort As String = register.txt_passwort.Text
    34. Dim email As String = register.txt_email.Text
    35. Dim level As String = "1"
    36. Dim klasse As String = klasse_box.Text
    37. Dim gold As String = "2000"
    38. Dim motivation As String = "100"
    39. Dim freieskills As String = "2"
    40. Dim erfahrung As String = "0"
    41. Dim erfahrungmax As String = "100"
    42. Dim schaden As String = numeric_schaden.Value
    43. Dim verteidigung As String = numeric_verteidigung.Value
    44. Dim magie As String = numeric_magie.Value
    45. Dim fähigkeit As String = numeric_fähigkeit.Value
    46. Dim glück As String = numeric_glück.Value
    48. myCommand.CommandText = "INSERT INTO benutzer(Benutzername, Passwort, Level, Klasse, Gold, Motivation, Freie Skills, Erfahrung, Erfahrung Max, Schaden, Verteidigung, Magie, Fähigkeit, Glück)" _
    49. & "VALUES('" & benutzer & "','" & passwort & "','" & level & "','" & klasse & "' , '" & gold & "' , '" & motivation & "' , '" & freieskills & "' , '" & erfahrung & "' , '" & erfahrungmax & "' , '" & schaden & "' , '" & verteidigung & "' , '" & magie & "' , '" & fähigkeit & "' , '" & glück & "')"
    50. myCommand.ExecuteNonQuery() ' SQL Abfrage starten und eintragen
    51. MsgBox("Der Account mit dem Namen : " & register.txt_benutzer.Text & " wurde erfolgreich erstellt")
    52. conn.Close()
    53. Else
    54. MsgBox("Dieser Benutzername existiert bereits")
    55. End If
    56. End If
    58. End Sub


    Genau gleiche Fehlermeldung wie der TE

    Hoffe ihr könnt mir helfen :)

    lg

    VB.NET-Quellcode

    1. myCommand.CommandText = "INSERT INTO benutzer(Benutzername, Passwort, Level, Klasse, Gold, Motivation, Freie Skills, Erfahrung, Erfahrung Max, Schaden, Verteidigung, Magie, Fähigkeit, Glück)" _
    2. & "VALUES('" & benutzer & "','" & passwort & "','" & level & "','" & klasse & "' , '" & gold & "' , '" & motivation & "' , '" & freieskills & "' , '" & erfahrung & "' , '" & erfahrungmax & "' , '" & schaden & "' , '" & verteidigung & "' , '" & magie & "' , '" & fähigkeit & "' , '" & glück & "')"


    Kann es sein, dass einem da leicht schwummerig vor den Augen wird?
    Du möchtest doch bestimmt DBParameter verwenden!