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
Allerdings erhalte ich folgenden Fehler, wenn ich die Daten in der Datenbank speichern möchte:
("50" ist der Wert des 3. Subitems.)
Vielleich kann mir ja jemand helfen.
Vielen Danke schonmal.
Grüße, Homer.
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:
VB.NET-Quellcode
- Dim anzahl As Integer
- Dim x As Integer = -1
- Dim con As New OleDb.OleDbConnection
- Dim cmd As New OleDb.OleDbCommand
- con.ConnectionString = _
- "Provider=Microsoft.Jet.OLEDB.4.0;" & _
- "Data Source=" & Application.StartupPath & "\Datenbank\Haushaltsbuch.mdb"
- cmd.Connection = con
- Try
- con.Open()
- For Each item In LVEA.Items
- x = x + 1
- LVEA.Items(x).Selected = True
- 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 & "')"
- LVEA.Items(x).Selected = False
- anzahl = cmd.ExecuteNonQuery()
- If anzahl > 0 Then
- MsgBox("Es wurde ein Datensatz eingefügt")
- End If
- Next
- Catch ex As Exception
- MsgBox(ex.Message)
- End Try
- 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.