查看完整版本: 如何自动判断MDB文件是否损坏并自动修复？

如何自动判断MDB文件是否损坏并自动修复？

　　当MDB文件损坏时，一进入程序，便会出现以下讯息：
Can'topendatabase'name'.Itmaynotbeadatabasethatyourapplicationrecognizes,orthefilemaybecorrupt.(Error3049)
若是程序中未加入錯誤判断，程式便会中断跳出，这会給使用者极不好的印象，要避免这种情形，甚至不让使用者发現MDB文件损坏，便要加入以下之程序代码加以判断：
**SubForm_Load()
DimdbAsDatabase
OnErrorGoToerror1
Setdb=OpenDatabase("c:\test.mdb")
OnErrorGoTo0
'正常程序开始
ExitSub
error1:
IfErr=3049Then'MDB文件损坏
DBEngine.RepairDatabase"C:\test.mdb"
Resume
Else
MsgBoxErr