Microsoft Access 2013 Programmierung - Das Handbuch

Tipps & Tricks

Wie prüft man die ADO-Versionsnummer?

Mit dem folgenden Code können Sie zum einen die Versionsnummer, zum anderen damit natürlich auch die Existenz von ADO auf dem Zielrechner überprüfen:

Dim ado As New ADODB.Connection
MsgBox ado.Version

Access-Datenbanken exklusiv öffnen

Fügen Sie einfach in den ConnectionString die Optionen Share Deny Read und Share Deny Write ein.

Beispiel

Exklusives Öffnen der Access-Datenbank (Access 2007/2010/2013)

Sub Test()
Dim conn As New ADODB.Connection

  conn.ConnectionString = "Provider=Microsoft.ACE.OLEDB.15.0;Data Source=C:\Test.accdb;" & _
                          "Mode=Share Deny Read|Share Deny Write;Persist Security Info=False"
  conn.Open
...
End Sub

Beispiel

Exklusives Öffnen der Access-Datenbank (Access 2003).

Sub Test() Dim conn ...