Si le programme est développé à l'aide de la base de données Access, lorsque la base de données Access est endommagée, le message suivant apparaîtra dès la saisie du programme :
Vous ne pouvez pas ajouter le nom de la base de données. Il se peut qu'il ne s'agisse pas d'une base de données reconnue par votre application ou que le fichier soit corrompu. (Erreur 3049)
Si le jugement d'erreur n'est pas ajouté au programme, le programme s'interrompra et sautera, ce qui donnera à l'utilisateur une très mauvaise impression. Pour éviter cette situation et même empêcher l'utilisateur de découvrir que la base de données est endommagée, le code de programme suivant doit être utilisé. être ajouté pour juger :
PRivateSubForm_Load()
DimdbAsDatabase
OnErrorGoToerror1
Setdb=OpenDatabase("c:/test.mdb")
SurErreurGoTo0
:'Le programme normal démarre
:
QuitterSub
erreur1 :
IfErr=3049Then'la base de données est endommagée
DBEngine.RepairDatabase"C:/test.mdb"
CV
Autre
MsgBoxErr&Erreur(Err)
FinSi->