Excel und ADODB.Connection

Sub ExportToAccess() Dim i As Integer Dim ADODBConnection As New ADODB.Connection Dim ADODBRecordset As New ADODB.Recordset 'Verbindung herstellen: ADODBConnection.Open "Provider = Microsoft.ACE.OLEDB.12.0;" & _ "Data Source= " & ThisWorkbook.Path & "\Database1.accdb;" 'Tabelle öffnen: ADODBRecordset.Open "Ort", ADODBConnection, adOpenKeyset, adLockOptimistic 'Daten übertragen: For i = 1 To ActiveSheet.UsedRange.Rows.Count With ADODBRecordset .AddNew .Fields("PLZ") = Cells(i, 4) .Fields("Ort") = Cells(i, 5) .Update End With Next i 'Tabelle schließen: ADODBRecordset.Close 'Verbindung trennen: ADODBConnection.Close MsgBox "Erfolg!" End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub AccessSQL() Dim ADODBConnection As New ADODB.Connection Dim ADODBRecordset As New ADODB.Recordset On Error GoTo errDB 'Verbindung herstellen: ADODBConnection.Open "Provider = Microsoft.ACE.OLEDB.12.0;" & _ "Data Source= " & ThisWorkbook.Path & "\Database1.accdb;" 'Query ausführen: ADODBRecordset.Open "update Ort set [Ort] = 'Hamburg' where [PLZ]='30000'", _ ADODBConnection, adOpenKeyset, adLockOptimistic 'Tabelle schließen: ADODBRecordset.Close 'Verbindung trennen: ADODBConnection.Close MsgBox "Erfolg!" On Error GoTo 0 Exit Sub errDB: MsgBox "Fehler" & vbCrLf & err.Description End Sub

Hallo Rob,
ah, ein super Link. Ich werde


adOpenDynamic, adLockPessimistic

nutzen - obwohl ich die Erläuteruzngen der unterschiedlichen Varianten nicht wirklich geblickt habe. Während die obigen drei Zeilen Code ausgeführt werden, vergehen ja nur Millisekunden und die Wahrscheinlichkeit eines Updates auf den gleichen Datensatz durch einen anderen Anwender sehe ich gering. Allerdings frage ich mich, wie ich die dennoch potentiell auftretenden Fehler abfange...
Ein größeres Problem in meinem Anwendungsfall sehe ich beim Hinzufügen eines Datensatzes:

With adoRecSet
.AddNew
.Fields("Timestamp") = now()
.Fields("Anwender") = "Lisa"
.Update
End With

Ich nutze hier eine Tabelle quasi als Änderungshistorie und notiere wann wer welche Änderung _ durchgeführt hat. Sollte ich hier adoRecSet auch mit


adOpenDynamic, adLockPessimistic

öffnen?

Hi Sven
Ich bin kein Experte, aber ich glaube in der Situation (reines Log-File) darfst du optimistisch sein. Die Chance eines Konfliktes sehe ich als sehr klein an, wenn du nur neue Datensätze hinzufügst und bestehende nicht änderst.
Ein Konflikt entsteht nur dann, wenn genau im Moment zwischen der Codeausführung .AddNew und .Update jemand versucht z.B. das Datum zu ändern, das du eben eingetragen hast. Die Chance im Lotto zu gewinnen ist grösser ;)
Selbst wenn mal ein Konflikt entstehen würde, ist dies i.d.R. kein Weltuntergang. Ausnahmen sind, wie unteren erwähnt z.B. ein Reservationssystem (z.B. zwei Personen buchen gleichzeitig das gleiche Zimmer).
Andererseits ist es auch nicht schlimm mal was zu "locken", wenn du unsicher bist. Ich vermute im Normalgebrauch ist Performance kein Thema.
Die Wahl hängt natürlich auch stark von der Art der Bearbeitung ab. Bearbeitet man manuell Access Tabellen, dann "öffnet" man den Datensatz und bearbeitet die jeweilige Zeile. Bis zum Update (verlassen der Zeile) kann es also länger dauern und die Konfliktchance steigt. Mit CursorType macht man das Feintuning für die manuelle Bearbeitung.
Wird die Datenbank hingegen ausschliesslich per Code bearbeitet, dann vergehen oft nur Millisekunden bis zum Update.
cu
Chris
https://docs.microsoft.com/en-us/sql/ado/guide/data/types-of-locks?view=sql-server-2017
adLockOptimistic
Indicates that the provider uses optimistic locking - locking records only when you call the Update method. This means that there is a chance that another user may change the data between the time you edit the record and when you call Update, which creates conflicts. Use this lock type in situations where the chances of a collision are low or where collisions can be readily resolved.
adLockPessimistic
Indicates pessimistic locking, record by record. The provider does what is necessary to ensure successful editing of the records, usually by locking records at the data source immediately before editing. Of course, this means that the records are unavailable to other users once you begin to edit, until you release the lock by calling Update. Use this type of lock in a system where you cannot afford to have concurrent changes to data, such as in a reservation system.

Beliebteste Forumthreads (12 Monate)

20
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

3 Forumthreads zu ähnlichen Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Excel und ADODB.Connection

20 Beiträge zum Forumthread Beiträge zu diesem Forumthread

3 Forumthreads zu ähnlichen Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

20
Beiträge zum Forumthread

Beiträge zu diesem Forumthread