Si el programa se desarrolla utilizando la base de datos de Access, cuando la base de datos de Access esté dañada, aparecerá el siguiente mensaje tan pronto como se ingrese al programa:
No se puede abrir el 'nombre' de la base de datos. Puede que no sea una base de datos que su aplicación reconozca o que el archivo esté dañado. (Error 3049)
Si no se agrega un juicio de error al programa, el programa se interrumpirá y saltará, lo que le dará al usuario una muy mala impresión. Para evitar esta situación e incluso evitar que el usuario descubra que la base de datos está dañada, se debe utilizar el siguiente código de programa. añadirse al juez:
PRivateSubForm_Load()
DimdbAsBase de datos
OnErrorGoToerror1
Setdb=OpenDatabase("c:/test.mdb")
EnErrorGoTo0
:'El programa normal comienza
:
SalirSub
error1:
IfErr=3049Entonces la base de datos está dañada
DBEngine.RepairDatabase"C:/test.mdb"
Reanudar
Demás
MsgBoxErr&Error(Err)
FinSi->