Hallo,
bin neu hier im Forum und hoffe auf Eure Unterstützung.
Ich arbeite mich gerade in VB 2012 Express ein und probiere verschiedene Sachen durch um mir einen ersten überblick zu verschaffen.
Zum Test habe ich mir eine Access-2010-Datenbank "Database3.accdb angelegt und über den Assistenten ein "Database3DataSet" angelegt. In der Datenbank befindet sich eine Tabelle "TempDat".
Nun versuche ich unter Verwendung des TableAdapters alle Zeilen in der Datenbank zu löschen. Leider will mir das nicht gelingen. Der Code wird fehlerfrei durchlaufen, aber die Datensätze werden nicht aus der Datenbank gelöscht.
Vielleicht kann mir jemand sagen was ich da falsch mache. Aber bitte postet nur Lösungen, wie es mit dem TableAdapter gemacht. Denn ich möchte verstehen wie dieses Ding funktioniert.
Hier der Code:
Viele Grüße
Jörg
bin neu hier im Forum und hoffe auf Eure Unterstützung.
Ich arbeite mich gerade in VB 2012 Express ein und probiere verschiedene Sachen durch um mir einen ersten überblick zu verschaffen.
Zum Test habe ich mir eine Access-2010-Datenbank "Database3.accdb angelegt und über den Assistenten ein "Database3DataSet" angelegt. In der Datenbank befindet sich eine Tabelle "TempDat".
Nun versuche ich unter Verwendung des TableAdapters alle Zeilen in der Datenbank zu löschen. Leider will mir das nicht gelingen. Der Code wird fehlerfrei durchlaufen, aber die Datensätze werden nicht aus der Datenbank gelöscht.
Vielleicht kann mir jemand sagen was ich da falsch mache. Aber bitte postet nur Lösungen, wie es mit dem TableAdapter gemacht. Denn ich möchte verstehen wie dieses Ding funktioniert.
Hier der Code:
VB.NET-Quellcode
- Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
- Dim Zeile As Database3DataSet.TempDatRow
- Dim Tabelle As DataRowCollection = Database3DataSet.TempDat.Rows
- Dim TempDatTableAdapter As New Database3DataSetTableAdapters.TempDatTableAdapter()
- TempDatTableAdapter.Fill(Database3DataSet.TempDat)
- For Each Zeile In Tabelle
- Zeile.Delete()
- Next
- Try
- Validate()
- TempDatTableAdapter.Update(Database3DataSet.TempDat)
- MsgBox("OK")
- Catch ex As Exception
- MsgBox("Fehler")
- End Try
- End Sub
Viele Grüße
Jörg
Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „jgrieb“ ()