Office: (Office 2003) Datenbank-Backup aus VBA

Hallo,

ich bin vor die Aufgabe gestellt, aus der Datenbank die Möglichkeit zu bieten, per Knopfdruck in einem Formular die ganze Datenbank als Backup.mdb in ein Sicherungsverzeichnis zu kopieren...

Meine Frage: Geht das überhaupt und wie kann ich dieses Problem lösen???

Danke!
Foxyfox

:)

 

Hi,

Du kanst Win-technisch die geöffnete Datei kopieren,
schau 'mal unter

[Link]Acc2003 - Komprimieren der Datenbank - MS-Office-Forum

 

Hallo,

eine Lösungsmöglichkeit gibt es hier:
Backup-Lösung für tägliche Sicherung, Ausgabe wahlweise auch als Zip-Datei

 

Hi Thorsten ,

vielen Dank für Deine Antwort! Habe zunächst mal Deinen Code probiert, weil er so schön einfach aussieht. Aber wird bei mir der Ausdruck
"fs.copyfile strdb, str3db" nicht akzeptiert.
Kann es sein, dass der Ausdruck "scripting.filesystemobject" unter A03 nicht funktioniert?

foxyfox

 

Das Thema "Backup erstellen per VBA" wurde in letzter Zeit recht häufig hier im Forum diskutiert.
Was mich dabei etwas wundert ist, dass es dabei immer nur um die technische Umsetzung des Datei-Kopierens geht. (Dazu findet man inzwischen haufenweise Code.)
Die Frage, ob das überhaupt sinnvoll oder erlaubt ist wird praktisch nie behandelt.

Deshalb muss ich doch mal was grundsätzliches dazu sagen:
Das Kopieren einer offenen Datenbank ist immer mit dem Risiko verbunden, dass dabei was kaputt geht.
In der Regel werden das dann Datensätze sein. Da aber auch das VBA-Projekt (Module, Formularcode) in Tabellen gespeichert wird (z.B. MSysAccessObjects), kann auch VBA-Code beschädigt werden.
Wohlgemerkt: In der angelegten Kopie natürlich. Wenn dieses Backup später mal wiederhergestellt wird, dann kann es eben Fehler haben.

Um dieses Risiko zu minimieren hier ein paar Tipps...
Grundsätzlich sollte man nur das verknüpfte Backend kopieren, nicht das Frontend, da dieses nun mal offen ist und Access durch nichts zu bewegen ist, irgendwelche temporären Vorgänge vor dem Schließen auszuführen. (Beispielsweise werden gelöschte Datensätze oder Objekte bis zum Schließen von Access in der Zwischenablage gehalten, um ein UNDO zu ermöglichen. Außerdem bleiben diverse interne Zustands-Flags und Properties gesetzt, und werden erst beim endgültigen Schließen physisch in die MDB geschrieben.)
- Alle Objekte in der DB sollten zunächst geschlossen sein.
Das kann z.B. durch folgenden Code erwirkt werden: Code:

- Auf das Backend sollte zum Zeitpunkt des Kopierens niemand mehr zugreifen. D.h., es darf keine .LDB-Datei zur Backend-MDB existieren und außerdem sollte Exklusiv-Zugriff bestehen: Code:

...An die Stelle von "Call CopyBackendToAnyWhere" kann man dann die üblichen Codes zum Kopieren per API oder FileSystemObject setzen.

Und trotzdem: Sage keiner hinterher, er sei nicht gewarnt worden! *wink.gif*

Ciao, Sascha

 

Hallo,

diese Backuplösung hört sich sehr gut an. Wo müssen die einzelnen
Funktionen und Prozeduren abgelegt werden? Erstelle ich da ein Formuar
wo alle Dinge reingeschrieben werden?

 

Du legst eine neues Modul an und kopierst da alle vier Prozeduren rein.
Aufrufen kannst du sie dann aus Formularen, durch Makros, durch Menüpunkte, ... wie dir beliebt.

Cioa, Sascha

 

Ich hab jetzt das Modul erstellt. Dann hab ich ein Formular mit folgendem
Inhalt erstellt:

PHP:

         Private Sub Form_Load()
If Me.datum = "Montag" And (Me.zeit >= 12 And Me.zeit <= 14) Then

MakeBackup (meineDB)

End If
End Sub


 

Der Aufruf aus dem Formular klappt nun. Allerdings kommt immer die Meldung
dass ich zur Zeit nicht sichern kann. Was wird hier geprüft:

PHP:

         Function IsBackendReady(sBackendFile As String) As Boolean
Dim sLDB

If Len(Dir(sBackendFile)) = 0 Then Exit Function

'Existenz des zugehörigen LDB-Files ermitteln
sLDB = Left(sBackendFile, InStrRev(sBackendFile, ".") - 1) & ".LDB"
If Len(Dir(sLDB)) = 0 Then IsBackendReady = True

On Error Resume Next
'Zur Sicherheit Möglichkeit des Vollzugriff auf Backend ermitteln
Open sBackendFile For Binary Access Read Lock Read Write As #1
If Err.Number <> 0 Then IsBackendReady = True
Close #1

End Function


 

"meineDB" ist natürlich kein gültiger Zugriffspfad - aber das weißt du sicher selbst *wink.gif*
Dann meine ich, die Suche nach dem Trennpunkt in "IsBackendReady" evtl. fehleranfällig und würde sicherheitshalber einfach die letzten drei Stellen (mdb) durch ldb ersetzen, also
sLDB = Left(sBackendFile, len(sBackendFile) - 3) & "LDB"

Insgesamt finde ich diese Prozedur nicht ganz optimal und würde da noch ein paar zusätzliche Codezeilen investieren, z.B. :
- Fehlermeldung auswerfen, wenn Backend nicht gefunden wird und
- Warnung ausgeben wenn "Vollzugriff" nicht möglich
(btw: wozu ist denn Schreibzugriff erforderlich??)

 

Was ist denn genau ein gültiger Zugriffspfad?

c:\verzeichnis\backup ??

 

Zugriffspfad: Der komplette Pfad zur Backend-DB; z.B. "c:\verzeichnisX\backend.mdb"
@anne: Was soll denn das mit dem Trennpunkt und fehleranfällig ?! Das Backend kann ohne weiteres auch backend.db heißen, wenn du es so gespeichert hast...
Dass die Routinen noch etwas ausgefeilter in punkto Plausibilitätsprüfungen/Fehlerhandling sein können ist sicher richtig. (Ich würde es so wie gecodet auch nicht einsetzen*wink.gif* )

Damit ist sichergestellt, dass gerade niemand mehr auf das File zugreift - und das sehe ich als Bedingung für das Backup an.

Ciao, Sascha

 

\@Sascha:

Entschuldige bitte, wenn du dich auf die Füße getreten fühltest, aber es ist doch durchaus möglich und zulässig, Dateinamen mit Punkten zu "verzieren", z.B. "xyz\abc\meineAccess.97.mdb" *biggrin.gif* (wg. 97...)
Daraus wird dann nach deiner Prozedur "xyz\abc\meineAccess.ldb" - und das bringt dann nicht viel Freude *wink.gif*

 

\@Anne: Der eingesetze VBA-Befehl heißt InStrRev. Der sucht den Punkt von hinten und die weiteren sind ihm egal und deshalb wird daraus "xyz\abc\meineAccess.97.ldb" *wink.gif*

Ciao, Sascha

 

\@Sascha: Wie heißt es noch so schön? - Man sieht nur was man sehen will!
Und InStrRev gibt's natürlich in A97 (noch) nicht - (hihi)...

Sorry at ALL!! (Vielleicht sollte ich mir mal die Leselupe installieren??)