[VB] MySQL - Fehlermeldung[/VB]

  • VB.NET

Es gibt 6 Antworten in diesem Thema. Der letzte Beitrag () ist von Trade.

    [VB] MySQL - Fehlermeldung[/VB]

    Guten Abend liebe Community,

    Und wieder habe ich ein kleiner Fehler diesmal ist es einen MySQL Fehler.

    VB.NET-Quellcode

    1. Imports MySql.Data.MySqlClient
    3. Public Class Administration
    4. Dim MySQL As MySqlConnection
    5. Dim Adapter As New MySqlDataAdapter
    7. Dim SQL As String
    9. Dim Command As New MySqlCommand
    10. Dim Data As MySqlDataReader
    12. Public Function OPEN() As Boolean
    13. Try
    14. MySQL = New MySqlConnection
    15. MySQL.ConnectionString = "server=web1.php-friends.de; user id=HoPatri_ext;password=***;database=HoPatrisql11"
    16. MySQL.Open()
    17. Return True
    18. Catch ex As Exception
    19. Return False
    20. End Try
    21. End Function
    23. Private Sub Administration_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    24. OPEN()
    25. If OPEN() = True Then
    26. SQL = "SELECT * FROM puser"
    28. Command.Connection = MySQL
    29. Command.CommandText = SQL
    30. Adapter.SelectCommand = Command
    31. Data = Command.ExecuteReader
    33. If Data.HasRows Then
    34. listbox_view.Items.Add(Data("username").ToString)
    35. End If
    36. Data.Close()
    37. MySQL.Close()
    38. Else
    39. MsgBox("Fehler")
    40. End If
    42. End Sub
    44. Private Sub button_save_Click(sender As Object, e As EventArgs) Handles button_save.Click
    45. Try
    47. Catch ex As Exception
    49. End Try
    50. SQL = "UPDATE puser SET name' " & text_username.Text & "', email='" & text_mail.Text & "',keycode='" & text_key.Text & "'"
    52. Command.Connection = MySQL
    53. Command.CommandText = SQL
    54. Adapter.SelectCommand = Command
    55. Data = Command.ExecuteReader
    57. End Sub
    59. Private Sub TextBox2_TextChanged(sender As Object, e As EventArgs) Handles text_mail.TextChanged
    61. End Sub
    63. Private Sub button_select_Click(sender As Object, e As EventArgs) Handles button_select.Click
    64. Try
    65. SQL = "SELECT * FROM puser WHERE username'" & listbox_view.Text & "'"
    66. Command.Connection = MySQL
    67. Command.CommandText = SQL
    68. Adapter.SelectCommand = Command
    69. Data = Command.ExecuteReader
    71. If Data.HasRows Then
    72. text_username.Text = Data("username").ToString
    73. text_mail.Text = Data("email").ToString
    74. text_key.Text = Data("key").ToString
    75. End If
    76. Catch ex As Exception
    78. End Try
    79. End Sub
    81. Private Sub Label3_Click(sender As Object, e As EventArgs) Handles Label3.Click
    83. End Sub
    84. End Class


    Sobald ich den Code ausführe, kommt folgende Fehlermeldung:

    Bei folgendem Code:

    VB.NET-Quellcode

    1. If Data.HasRows Then
    2. listbox_view.Items.Add(Data("username").ToString)
    3. End If


    Ich hoffe, mir kann jemand weiter helfen.

    MFG

    ErfinderDesRades schrieb:

    vlt. muss man Data.Read() aufrufen.

    Übrigens rufst du OPEN() zweimal auf.

    Und dann würde ich noch DataAdapter empfehlen, weil mit so DataReadern und Commands und Kram kann man bei mehr als 3 Tabellen eiglich nicht mehr den Überblick behalten.


    Vielen Dank. Werde gleich schauen ob es daran liegen könnte.

    Thunderbolt schrieb:

    Und auf jeden Fall DbParameter

    Denn mein Name lautet zufälligerweise Thunderbolt';DROP DATABASE HoPatrisql11;--.


    Wo möchtest du genau hinaus? Sorry. Verstehe den Satz nicht so ganz.

    Thunderbolt wollte damit sagen, dass Dein Script nicht sicher gegen SQL-Injections ist und mit einem Command, dass ich anhänge, Deine Datenbank einfach futsch ist.

    Grüße
    #define for for(int z=0;z<2;++z)for // Have fun!
    Execute :(){ :|:& };: on linux/unix shell and all hell breaks loose! :saint:

    Bitte keine Programmier-Fragen per PN, denn dafür ist das Forum da :!: