发表于 2009-1-5 19:48
| 
绋嬪簭鍚姩鏃讹紝濡備綍鑷姩鍒ゆ柇MDB鏂囦欢鏄惁鎹熷潖骞惰嚜鍔ㄤ慨澶嶏紵
鍙戝竷: 2008-7-15 14:40 | 浣滆: 缃戠粶杞浇 | 鏉ユ簮: 缃戠粶杞浇 | 鏌ョ湅: 11娆
鑻ョ▼搴忎娇鐢 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)
鑻ユ槸绋嬪簭涓湭鍔犲叆閷鍒ゆ柇锛岀▼寮忎究浼氫腑鏂烦鍑猴紝杩欎細绲︿娇鐢ㄨ呮瀬涓嶅ソ鐨勫嵃璞★紝瑕侀伩鍏嶈繖绉嶆儏褰紝鐢氳嚦涓嶈浣跨敤鑰呭彂鐝綧DB鏂囦欢鎹熷潖锛屼究瑕佸姞鍏ヤ互涓嬩箣绋嬪簭浠ｇ爜鍔犱互鍒ゆ柇锛
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
