' ============================
' .NET-Code-Beispiel in Visual Basic .NET
' Löschen von Datensätzen in einem DataSet
' (C) Holger@Schwichtenberg.de
' ============================
Sub ADONET_DS_loeschen()
Dim DS As System.Data.DataSet
Dim Com As System.Data.OleDb.OleDbCommand
Dim SQL As String
Dim DT As System.Data.DataTable
Dim DR As System.Data.DataRow
Dim DA As System.Data.OleDb.OleDbDataAdapter
Dim CB As System.Data.OleDb.OleDbCommandBuilder
 
outtitle("Datensätze löschen")
 
' --- Zusammensetzung des SQL-Befehls
Dim heute As DateTime = DateTime.Today() ' aktuelles Datum
Dim heuteus As String = _
heute.ToString( _
New System.Globalization.CultureInfo("en-us")) ' umformatieren
SQL = "SELECT * FROM Bestellungen WHERE Datum = #" & heuteus & "#"
 
' --- DataSet erzeugen
DS = New System.Data.DataSet()
' --- Adapter definieren
DA = New OleDbDataAdapter(SQL, CONNSTRING)
' --- SQL-DML-Befehle erzeugen
CB = New OleDbCommandBuilder(DA)
' --- Tabelle einlesen
DA.Fill(DS, "heutige_Bestellungen")
 
' --- Zugriff auf Tabelle
DT = DS.Tables("heutige_Bestellungen")
 
' --- Ausgabe der Tabelle
out("--- Bisheriger Inhalt der Tabelle:")
out(table_to_csv(DS.Tables("heutige_Bestellungen")))
 
' --- Löschen aller Datensätze
For Each DR In DT.Rows
out("Bestellung von " & _
DR!KundenID.ToString() & _
" von " & DR!PID.ToString() & _
" wird gelöscht!")
DR.Delete()
Next
 
' --- Änderungen zurückliefern
DA.Update(DS, "heutige_Bestellungen")
 
' --- Ausgabe der Tabelle
out("--- Neuer Inhalt der Tabelle:")
out(table_to_csv(DS.Tables("heutige_Bestellungen")))
 
End Sub