📄 15708.html
字号:
<html>
<head>
<title>Re: mdb会坏掉??(请问如何侦测mdb档是否损坏)</title>
</head>
<body bgcolor="#FFFFFF" vlink="#808080">
<center>
<h1>Re: mdb会坏掉??(请问如何侦测mdb档是否损坏)</h1>
</center>
<hr size=7 width=75%>
<hr size=7 width=75%><p>
Posted by <a href="mailto:jwh@ms1.hinet.net">纪文和</a> on July 15, 1999 at 21:37:48:<p>
In Reply to: <a href="15705.html">Re: mdb会坏掉??(请问如何侦测mdb档是否损坏)</a> posted by Shadow on July 15, 1999 at 18:50:21:<p>
: : 我写给 user 的程式都会附上修复资料库的供能, 有二种做法:<br>: : 1.另外写一支修复程式, 告诉 user 资料库坏掉就执行修复程式, 不过比较不人道就是了.<br>: : 2.在启动程式时自行判断资料库是否坏掉, 若坏掉就执行 compactdatabase 再开启资料库, 这比较人道, 而且 user 比较没感觉到.<p>: 请问如何侦测mdb档是否损坏?<p>使用 on error 错误判断啊, 错误代码是 3049<p>Can't open database 'name'. It may not be a database that your application recognizes, or the file may be corrupt. (Error 3049)<p>程式大概如下 (可能要测一下)<br>Private Sub Command1_Click()<br>Dim db As Database<br>On Error GoTo error1<br>Set db = OpenDatabase("c:\test.mdb")<br>On Error GoTo 0<br>: '正常程式开始<br>:<br>Exit Sub<p>error1:<p>If Err = 3049 Then '资料库损毁<br> DBEngine.RepairDatabase "C:\test.mdb"<br> Resume<br>Else<br> MsgBox Err & Error(Err)<br>End If<p>End Sub<br>
<br>
<br><hr size=7 width=75%><p>
<a name="followups">Follow Ups:</a><br>
<ul><!--insert: 15708-->
<!--top: 15848--><li><a href="15848.html">Re: mdb会坏掉??(请问如何侦测mdb档是否损坏)</a> <b>Shadow</b> <i>14:53:03 7/19/99</i>
(<!--responses: 15848-->0)
<ul><!--insert: 15848-->
</ul><!--end: 15848-->
</ul><!--end: 15708-->
<br><hr size=7 width=75%><p>
</body></html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -