Access Steuerung aus Excel-VBA

Hans-Jürgen · 2019-09-06T09:41:42+00:00

Hallo Wissende, ich bastele noch an einem Excel-Frontend, mit der eine Access-Datenbank befüllt und ausgelesen wird. Dieses Frontend wird von mehreren Anwendern gleichzeitig bedient (über SQL-Connectstrings) Nun die Frage: Ist es möglich, aus Excel-VBA heraus täglich einen SQL-Befehl zu senden, dass die Access-Datenbank komprimiert und repariert wird? Ich weiß, dass es in Access die Option gibt, dass das immer beim Speichern passiert, aber das ist mir zu oft und geht auf die Performance, ich will das nur 1x täglich ansteuern. Vielen Dank! Hans-Jürgen

Hallo Hans-Jürgen,
ich weiß nicht, ob ein und dieselbe DB per SQL-Code komprimiert werden kann.
Die Möglichkeit, eine Access-Datei von Excel aus zu komprimieren gibt es aber schon. Leider habe ich mich schon länger nicht mehr damit beschäftigt. Deshalb nur mal einen (vielleicht auch schon ausreichender) Code-Schnipsel als Anregung für Dich. Ansonsten google mal nach DBEngine.CompactDatabase.

Sub Komprimiere()

  Dim accApp As Object, Quellpfad As String, Zielpfad As String

  Set accApp = CreateObject("ACCESS.Application")

  Quellpfad = "C:\\MeineDB.mdb"                         'unkomprimiert

  Zielpfad = Replace(Quellpfad, ".mdb", "_Komp.mdb")    'komprimiert

  If Dir$(Zielpfad) &LT;&GT; "" Then Kill Zielpfad            'Ggf schon vorhandene Ziel-Datei löschen

  accApp.DBEngine.CompactDatabase Quellpfad, Zielpfad ', "; Pwd =VOLTI", , "; Pwd =VOLTI"

  If Dir$(Zielpfad) &LT;&GT; "" Then

    If Dir$(Quellpfad) &LT;&GT; "" Then Kill Quellpfad        'Alte Quell-Datei löschen

    Name Zielpfad As Quellpfad                          'Neue Datei in alte Datei umbenennen

  End If

  Set accApp = Nothing

End Sub

viele Grüße
Karl-Heinz

Hallo Karl-Heinz,
wow, vielen Dank, mit dem Schlüsselwort "DBEngine.CompactDatabase" komme ich schon weiter.
Ich habe mal die Existenzprüfung aus deinem Beispiel rausgelassen. In der bestehenden globalen Variablen strDBPfad ist der Pfad zur Datenbank, in strPasswort ist das Passwort.
Für die Angabe des Ziels habe ich erstmal den Dateinamen um ein x ergänzt. (das mit dem "killen" mache ich dann später)

Dim accApp As Object
Dim stemp As String
stemp = Replace(strDBPfad, ".accdb", "x.accdb")
Set accApp = CreateObject("Access.Application")
'accApp.OpenCurrentDatabase strDBPfad, , strPasswort
accApp.DBEngine.CompactDatabase strDBPfad, stemp, strPasswort
accApp.CloseCurrentDatabase
Set accApp = Nothing

Der Open-Befehl klappte (auch mit dem Passwort). Access hat eine temporäre Datei erstellt. Ich habe den Befehl auskommentiert, weil ich beim CompactDatabase-Befehl die Aussage bekomme, dass jemand anderes die Datei schon geöffnet hat.
Macht nichts, dachte ich, klappt vielleicht auch ohne. Hätte es auch fast, aber leider nimmt er mit in der oben genannten Variante das Passwort nicht. ("Kein zulässiges Passwort").
Habe irgendwo eine Referenz gefunden, nach der vorher noch "pwd=" stehen muss, damit klappte es auch nicht.
Vielen Dank für die Unterstützung!
Hans-Jürgen

Forumthread: Access Steuerung aus Excel-VBA

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Infobox / Tutorial