Access 데이터베이스를 사용하여 프로그램을 개발한 경우 Access 데이터베이스가 손상되면 프로그램을 입력하자마자 다음 메시지가 나타납니다.
'이름' 데이터베이스를 열 수 없습니다. 응용 프로그램이 인식하는 데이터베이스가 아니거나 파일이 손상되었을 수 있습니다.(오류 3049)
프로그램에 오류 판단이 추가되지 않으면 프로그램이 중단되고 튀어나오므로 사용자에게 매우 나쁜 인상을 줄 수 있습니다. 판사에게 추가됩니다.
PRivateSubForm_Load()
DimdbAsDatabase
OnErrorGoToerror1
Setdb=OpenDatabase("c:/test.mdb")
OnErrorGoTo0
:'정상 프로그램이 시작됩니다
:
ExitSub
오류1:
IfErr=3049Then'데이터베이스가 손상되었습니다
DBEngine.RepairDatabase"C:/test.mdb"
재개하다
또 다른
MsgBoxErr&Error(Err)
EndIf->