VBGood网站全文搜索 Google

搜索VBGood全站网页(全文搜索)
首页 - 经验之谈 - 程序启动时,如何自动判断 MDB文件是否损坏并自动修复?
发表评论(0)作者:, 平台:, 阅读:10793, 日期:2000-06-04
程序启动时,如何自动判断 MDB文件是否损坏并自动修复?


资料整理:影子 VB爱好者乐园 http://yingzi007.126.com


若程序使用 MDB文件 ,当 MDB 文件损坏时,一进入程序,便会出现以下讯息:


Can't open database 'name'. It may not be a database that your application recognizes, or the file may be corrupt. (Error 3049)


若是程序中未加入錯誤判断,程式便会中断跳出,这会給使用者极不好的印象,要避免这种情形,甚至不让使用者发現MDB文件损坏,便要加入以下之程序代码加以判断:


Private Sub Form_Load()

Dim db As Database

On Error GoTo error1

Set db = OpenDatabase("c:\test.mdb")

On Error GoTo 0

: '正常程序开始

:

Exit Sub


error1:

If Err = 3049 Then 'MDB文件损坏

DBEngine.RepairDatabase "C:\test.mdb"

Resume

Else

MsgBox Err & Error(Err)

End If

End Sub