Se o programa for desenvolvido utilizando o banco de dados Access, quando o banco de dados Access estiver danificado, a seguinte mensagem aparecerá assim que o programa for inserido:
Não é possível pendurar o 'nome' do banco de dados. Pode não ser um banco de dados que seu aplicativo reconheça ou o arquivo pode estar corrompido. (Erro 3049)
Se o julgamento de erro não for adicionado ao programa, o programa irá interromper e saltar, o que dará ao usuário uma impressão muito ruim. Para evitar esta situação e até mesmo evitar que o usuário descubra que o banco de dados está danificado, o seguinte código do programa deve ser executado. ser adicionado ao juiz:
PRivateSubForm_Load()
DimdbAsDatabase
OnErrorGoToerror1
Setdb=OpenDatabase("c:/teste.mdb")
OnErrorGoTo0
:'Programa normal começa
:
SairSub
erro1:
IfErr=3049Then'database está danificado
DBEngine.RepairDatabase"C:/test.mdb"
Retomar
Outro
MsgBoxErr&Erro(Err)
FimSe->