关于VB数据库出错处理的问题,请教各位高手!

[baoxue10181018]

我的程序是这样的
private sub()
on error goto errs
设置adodc控件的连接属性 '故意设置连接密码是错误的
adodc.refresh
errs:
msgbox "数据库连接失败!"
end sub
我希望在连接sqlserver错误时,按我定义的错误处理弹出对话框,但实际先弹出系统提示的登录错误,再弹出我的处理对话框,请问怎样将系统弹出的错误屏蔽掉,我用on error resume next 也不行,请教各位了?

[jornet]

可以用系统hook，截取系统弹出的窗体消息

[kevinpu]

你用adodc 连接的状态属性判断，不能打开 -〉"数据库连接失败!" 。

[饮水需思源]

private sub()
on error goto errs
设置adodc控件的连接属性 '故意设置连接密码是错误的
adodc.refresh
exit sub '-------->加上这句
errs:
msgbox "数据库连接失败!"
end sub

[julieyan]

你是不是在VB里运行出现这种情况,那么看一看工具--选项--通用--错误捕获里是否是发生错误时中断,改成在类模块内中断.如果是生成的EXE运行还是这样,我就不知道了.

[wdwd05]

晕~

[baoxue10181018]

这个exit sub 我是加了,只是我发帖子忘记写,关于钩子编程我不是很董,请指教