7453
社区成员
- 主页
如何实现vb程序非正常中断或退出时，程序能获取错误并执行特定事件？
我做一个程序，向oracle数据库中导入数据（多个数据表）。导入以前先查看数据库中是否有同名表存在，（通过在另一个表table1中存放所要导入的所有数据表的表名，对其作标识）。但有时候导入过程出错，或者被人为中断，此时表中的标示是表已存在，但事实上数据表并没有导入或者导入不完整。
我希望通过程序获取错误，在中断以前对导入错误的表，在上述table1中改变标示
不知道能不能实现这个功能？
我希望通过程序获取错误，在中断以前对导入错误的表，在上述table1中改变标示
不知道能不能实现这个功能？
...全文
请发表友善的回复…
发表回复
kitti 2003-12-18
但是程序出错后系统就有个日志来记录错误的
VCSQLVB 2003-12-17
On Error Resume Next '不需出错处理
On err GoTo errorport
.
.
.
errorport:
处理出错的代码
On err GoTo errorport
.
.
.
errorport:
处理出错的代码
flc 2003-12-17
关注
kmzs 2003-12-17
不行的错误的范围太广了
mjznet 2003-12-16
你能捕获电源错误吗?不可能发现电源断电了,然后再去处理这个断电错误
所以,你解决问题的方向错了.
用事务吧!!
所以,你解决问题的方向错了.
用事务吧!!
FSoft 2003-12-16
或者进行一下判断,不知道行不行,没试过!
If Err.Source<>"" then
Err.Raise vbobjectError+512+1,,"表导入错误"
EndIf
该判断运行一个错误,如果想控件该错误还是需要用错误处理来捕获!
If Err.Source<>"" then
Err.Raise vbobjectError+512+1,,"表导入错误"
EndIf
该判断运行一个错误,如果想控件该错误还是需要用错误处理来捕获!
FSoft 2003-12-16
错误处理不能捕获吗?如果不需要处理可以考虑用On Error Resume Next语句来跳过该错误,如:
On Error Resume Next
Err.Clear
On Error Resume Next
Err.Clear