Hallo zusammen,
seit Stunden versuche ich Daten die ich aus einer Datenbank (Access) in einer CheckedListBox geschrieben habe einzeln zu Löschen.
Leider werden die ausgewählten Einträge in der Datenbank nicht gelöscht und ich bekomme auch keine Fehlermeldung !
Hier erst mal der Code mit dem ich die Daten in die CheckedListBox einlese:
Nach dem ich die Einträge Makiert habe möchte ich die mit diesem Code aus der DB Löschen.
Ich weiß jetzt leider nicht genau wo der Fehler liegt oder ich sehe mal wieder den Wald vor lauter Bäumen nicht
Danke schon einmal für eure Hilfe !
Gruß Mario
seit Stunden versuche ich Daten die ich aus einer Datenbank (Access) in einer CheckedListBox geschrieben habe einzeln zu Löschen.
Leider werden die ausgewählten Einträge in der Datenbank nicht gelöscht und ich bekomme auch keine Fehlermeldung !
Hier erst mal der Code mit dem ich die Daten in die CheckedListBox einlese:
VB.NET-Quellcode
- Private Sub UserLoeschen_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
- Try
- con.Open()
- cmd.CommandText = "SELECT * FROM Faenger"
- Reader = HauptForm.cmd.ExecuteReader()
- CheckedListBox1.Items.Clear()
- Do While HauptForm.Reader.Read
- CheckedListBox1.Items.Add (Reader("FName"))
- Loop
- Reader.Close()
- Catch ex As Exception
- MsgBox(ex.Message)
- End Try
- con.Close()
- End Sub
Nach dem ich die Einträge Makiert habe möchte ich die mit diesem Code aus der DB Löschen.
VB.NET-Quellcode
- Private Sub ButtonLoeschen_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonLoeschen.Click
- Try
- con.Open()
- cmd.CommandText = "DELETE FROM Faenger " & "WHERE FName = " & CheckedListBox1.SelectedItem.ToString
- cmd.ExecuteNonQuery()
- Catch ex As Exception
- MsgBox(ex.Message)
- End Try
- con.Close()
- Close()
- End Sub
Ich weiß jetzt leider nicht genau wo der Fehler liegt oder ich sehe mal wieder den Wald vor lauter Bäumen nicht
Danke schon einmal für eure Hilfe !
Gruß Mario