Hallo,
ich habe eine Frage. Hier mal ein Vergleich zu den beiden verschiedenen Möglichkeiten um ein Recordset zu öffnen welches einen Datensatz ändert:
DAO:
Sub DAOUpdateRecord()
Dim db As DAO.Database
Dim rst As DAO.Recordset
' Öffnen der Datenbank
Set db = DBEngine.OpenDatabase(".
ordwind.mdb")
' Öffnen des Recordsets
Set rst = db.OpenRecordset _
("SELECT * FROM Kunden WHERE Kunden-Code = 'LAZYK'", _
dbOpenDynaset)
' Setzen des Recordsets in den Bearbeitungsmodus
rst.Edit
' Aktualisieren der Kontaktperson des
' ersten Datensatzes
rst.Fields("Kontaktperson").Value = "New Name"
' Speichern der Änderungen
' des aktuellen Datensatzes im Recordset
rst.Update
' Schließen des Recordsets
rst.Close
End Sub
ADO:
Sub ADOUpdateRecord()
Dim cnn As New ADODB.Connection
Dim rst As New ADODB.Recordset
' Öffnen der Verbindung
cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" _
& "Data Source=.
ordwind.mdb;"
' Öffnen des Recordset
rst.Open _
"SELECT * FROM Kunden WHERE Kunden-Code = 'LAZYK'", _
cnn, adOpenKeyset, adLockOptimistic
' Aktualisieren der Kontaktperson des
' ersten Datensatzes
rst.Fields("Kontaktperson").Value = "New Name"
' Speichern der Änderungen
' des aktuellen Datensatzes im Recordset
rst.Update
' Schließen des Recordsets
rst.Close
End Sub
Meine Frage ist. Welcher Code ist besser? Welche Code/ Bibliothek ist neuer? Welcher Code ist vorzuziehen?
Velen Dank im Voraus.
Viele Grüße
|