Datensätze hinzufügen/aktualisieren - in Kurzform (ADO) Eine eher unbekannte Methode: Datenübergabe direkt beim Aufruf der AddNew-Methode des ADO-Recordset-Objekts
Autor:   Dieter Otter	Bewertung:     [ Jetzt bewerten ]	Views:  21.536
https://www.tools4vb.com	System:  Win9x, WinNT, Win2k, WinXP, Win7, Win8, Win10, Win11	kein Beispielprojekt

Geben Sie hier Ihre persönliche Bewertung ab! Anzahl Bewertungen bisher: 35 Bewertung insgesamt: gut Durchschnittliche Bewertung: 4.1 von 5 Sternen

sehr gut     gut     nützlich     mittelmäßig     mangelhaft

Wer mit einem ADO-Recordset arbeitet und eine Datenzeile hinzufügen möchte, geht meist wie folgt vor:

oRs.AddNew
oRs.Fields("Anrede") = "Herrn"
oRs.Fields("Name") = "Otter"
oRs.Fields("Vorname") = "Dieter"
oRs.Fields("GebDatum") = #5/5/73#
oRs.Fields("Info") = True
oRs.Update

Eine eher unbekannte Möglichkeit ist die Übergabe der Daten direkt als Array-Liste, was bei vielen Datenfeldern jede Menge Codezeilen spart! Hierbei müssen beim Aufruf der AddNew-Methode zunächst die Feldnamen (als Array-Liste) und anschließend die Feldwerte (wiederum als Array-Liste) übergeben werden.

' neue Datenzeile hinzufügen
oRs.AddNew Array("Anrede", "Name", "Vorname", "GebDatum", "Info"), _
  Array("Herrn", "Otter", "Dieter", #5/5/73#, True)
oRs.Update

Analog zum Hinzufügen von neuen Datenzeilen lässt sich der Code zum Ändern von bestehenden Datenzeilen ebenfalls in eine Kurzform bringen.

Statt bisher:

oRs.Fields("Name") = "Otter"
oRs.Fields("Vorname") = "Dieter"
oRs.Fields("Info") = False
oRs.Update

funktioniert auch folgender Code:

' Datensatz ändern
oRs.Update Array("Name", "Vorname", "Info"), Array("Otter", "Dieter", False)

Soll nur ein einziger Feldwert aktualisiert werden, braucht man nicht explizit ein Array übergeben:

' einzelnen Feldwert ändern
oRs.Update "Info", False