"Insert into" - Syntaxfehler

  • VB.NET

Es gibt 8 Antworten in diesem Thema. Der letzte Beitrag () ist von Homer_Simpson.

    "Insert into" - Syntaxfehler

    Hallo zusammen,
    ich habe hier ein kleines Problem.

    Ich habe eine ListView (lvea) und ich möchte deren Items und Subitems in eine Datenbank schreiben.
    (Tabelle = EinmaligeAusgaben)

    Soweit so gut.
    Ich habe folgenden Code:

    Spoiler anzeigen

    VB.NET-Quellcode

    1. Dim anzahl As Integer
    2. Dim x As Integer = -1
    4. Dim con As New OleDb.OleDbConnection
    5. Dim cmd As New OleDb.OleDbCommand
    7. con.ConnectionString = _
    8. "Provider=Microsoft.Jet.OLEDB.4.0;" & _
    9. "Data Source=" & Application.StartupPath & "\Datenbank\Haushaltsbuch.mdb"
    10. cmd.Connection = con
    13. Try
    14. con.Open()
    15. For Each item In LVEA.Items
    16. x = x + 1
    17. LVEA.Items(x).Selected = True
    19. cmd.CommandText = _
    20. "insert into EinmaligeAusgaben " & _
    21. "(Kategorie, Bezeichnung, Datum, " & _
    22. "Betrag) " & _
    23. "values ('" & _
    24. LVEA.SelectedItems(0).Text & "', '" & _
    25. LVEA.SelectedItems(0).SubItems(1).Text & "', " & _
    26. LVEA.SelectedItems(0).SubItems(2).Text & ", " & _
    27. LVEA.SelectedItems(0).SubItems(3).Text & "')"
    28. LVEA.Items(x).Selected = False
    31. anzahl = cmd.ExecuteNonQuery()
    32. If anzahl > 0 Then
    33. MsgBox("Es wurde ein Datensatz eingefügt")
    34. End If
    35. Next
    36. Catch ex As Exception
    37. MsgBox(ex.Message)
    38. End Try
    40. con.Close()



    Allerdings erhalte ich folgenden Fehler, wenn ich die Daten in der Datenbank speichern möchte:
    ("50" ist der Wert des 3. Subitems.)
    "Syntaxfehler in Zeichenfolge in Abfrageausdruck '50')'.

    Vielleich kann mir ja jemand helfen.
    Vielen Danke schonmal.
    Grüße, Homer. :)

    Versuchs mal so

    VB.NET-Quellcode

    1. LVEA.SelectedItems(0).Text & "', '" & _
    2. LVEA.SelectedItems(0).SubItems(0).Text & "', " & _
    3. LVEA.SelectedItems(0).SubItems(1).Text & ", " & _
    4. LVEA.SelectedItems(0).SubItems(2).Text & "')"


    Listen sind 0 Bassierend

    Danke für den Hinweis, das war aber leider nicht des Fehlers Lösung.
    Habe den Code mal etwas umgewandelt.
    Sieht jetzt so aus:

    Spoiler anzeigen

    VB.NET-Quellcode

    1. Dim x As Integer = -1
    3. Dim con As New OleDb.OleDbConnection
    4. Dim cmd As New OleDb.OleDbCommand
    6. con.ConnectionString = _
    7. "Provider=Microsoft.Jet.OLEDB.4.0;" & _
    8. "Data Source=" & Application.StartupPath & "\Datenbank\Haushaltsbuch.mdb"
    9. cmd.Connection = con
    12. Try
    13. con.Open()
    14. For Each item In LVEA.Items
    15. x = x + 1
    16. LVEA.Items(x).Selected = True
    17. cmd.CommandText = "insert into EinmaligeAusgaben " & "(Kategorie, Bezeichnung, Datum, Betrag) " & "values ('" & LVEA.SelectedItems(0).Text & "', '" & LVEA.SelectedItems(0).SubItems(1).Text & "', " & LVEA.SelectedItems(0).SubItems(2).Text & ", " & Val(LVEA.SelectedItems(0).SubItems(3).Text) & ")"
    18. LVEA.Items(x).Selected = False
    19. Next
    21. Catch ex As Exception
    22. MsgBox(ex.Message)
    23. End Try
    25. con.Close()



    Jetzt kommt auch keine Fehlermeldung mehr, allerdings wird auch nichts in die Datenbank eingetragen. :S

    Versuchs mal so

    VB.NET-Quellcode

    1. cmd.CommandText = "insert into EinmaligeAusgaben (Kategorie, Bezeichnung, Datum, Betrag) values ('" & LVEA.SelectedItems(0).Text & "', '" & LVEA.SelectedItems(0).SubItems(1).Text & "', '" & LVEA.SelectedItems(0).SubItems(2).Text & "', '" & LVEA.SelectedItems(0).SubItems(3).Text & "')"

    Wenn das auch nicht geht dann mach mal ein Bild von der Fehlermeldung