1180
社区成员
- 主页
...全文
当前发帖距今超过3年，不再开放新的回复
发表回复
Sean918 2002-04-13
呵呵。。。
我给您加分了呀～～～
谢谢各位！
我给您加分了呀～～～
谢谢各位！
gump2000 2002-04-13
天呐，这分您不是在浪费啊:)
呵呵，我已经在1分您的问题回答了
给分!!!
呵呵，我已经在1分您的问题回答了
给分!!!
ccbl 2002-04-13
使用错误判断
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
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
Sean918 2002-04-13
看样子我没有说清楚。。。。。。
我只要在程序开头对数据库作一个检测，有问题的话，用备份数据库代替。
没问题的话，继续程序的执行。
我并不知道到底哪里数据库出问题，已经是不是出问题。
关键要检测的过程！！！不是问如何作处理！
我只要在程序开头对数据库作一个检测，有问题的话，用备份数据库代替。
没问题的话，继续程序的执行。
我并不知道到底哪里数据库出问题，已经是不是出问题。
关键要检测的过程！！！不是问如何作处理！
jdsbjcailei 2002-04-12
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
set db=opnedatabase(数据库)
err1:
if err.number=X(数据库错误的代码) then
msgbxo “数据库错误"
else
if err<>0 then
'继续
else
msgbox err.number
end if
end if
imagex 2002-04-12
on error goto 100
'your code here
100:msgbox ("error",,"error")
'your code here
100:msgbox ("error",,"error")
water_j 2002-04-12
GZ!
