如何用程序判断数据库是否已经被破坏？急！！！

[Sean918]

要程序判断！！不是做修改

[water_j]

GZ!

[imagex]

on error goto 100
'your code here
100:msgbox ("error",,"error")

[jdsbjcailei]

on error goto Err1
set db=opnedatabase(数据库)
err1:
if err.number=X(数据库错误的代码) then
msgbxo “数据库错误"
else
if err<>0 then
'继续
else
msgbox err.number
end if
end if

[Sean918]

看样子我没有说清楚。。。。。。

我只要在程序开头对数据库作一个检测，有问题的话，用备份数据库代替。
没问题的话，继续程序的执行。

我并不知道到底哪里数据库出问题，已经是不是出问题。
关键要检测的过程！！！不是问如何作处理！

[ccbl]

使用错误判断
on error goto Err1
set db=opnedatabase(数据库)
err1:
if err.number=X(数据库错误的代码) then
产生新的数据库连接
else
if err<>0 then
'继续
else
msgbox err.number
end if
end if

[gump2000]

天呐，这分您不是在浪费啊:)
呵呵，我已经在1分您的问题回答了
给分!!!

[Sean918]

呵呵。。。
我给您加分了呀～～～

谢谢各位！