Wenn das Programm mithilfe der Access-Datenbank entwickelt wurde und die Access-Datenbank beschädigt ist, wird die folgende Meldung angezeigt, sobald das Programm aufgerufen wird:
Datenbankname kann nicht hinzugefügt werden. Es handelt sich möglicherweise nicht um eine Datenbank, die Ihre Anwendung erkennt, oder die Datei ist möglicherweise beschädigt. (Fehler 3049)
Wenn dem Programm keine Fehlerbeurteilung hinzugefügt wird, wird das Programm unterbrochen und springt ab, was dem Benutzer einen sehr schlechten Eindruck vermittelt. Um diese Situation zu vermeiden und sogar zu verhindern, dass der Benutzer feststellt, dass die Datenbank beschädigt ist, muss der folgende Programmcode verwendet werden hinzugefügt werden, um zu urteilen:
PRivateSubForm_Load()
DimdbAsDatabase
OnErrorGoToerror1
Setdb=OpenDatabase("c:/test.mdb")
OnErrorGoTo0
:'Normales Programm startet
:
ExitSub
Fehler1:
IfErr=3049Dann ist die Datenbank beschädigt
DBEngine.RepairDatabase"C:/test.mdb"
Wieder aufnehmen
Anders
MsgBoxErr&Error(Err)
EndIf->