。。。如何阻止Adodc控件弹出错误提示对话框？。。。

Question

用Adodc控件的话，不要手工设置他们的数据库连接，应该在Form_Load里写连接代码

Answer 1

这个我当然知道。我就是在form_load中写代码的。我想问，万一我改了数据库名后，如何阻止Adodc控件弹出错误提示对话框？

Answer 2

从来不用adodc,用adodb + 表现数据的控件如datagrid !

Answer 3

当然，不用Adodc控件完全可以，引用Ado对象就可以了。
我只是想讨论一下，有没有可能解决的方案。呵呵

Answer 4

On error Goto Err_Message
代码
Exit sub
Err_Message:
    Msgbox ""
===============================
这样会不会少点

Answer 5

如果你单单想不让adodc控件报错的话,把错误直接on error掉啊,不过这样写出现别的错误也看不出来了
private sub ccc()
on error goto errlab
...
...
exit sub
errlab:
end sub

Answer 6

谢谢各位。
但是不论是 on error goto还是 on erro Resume Next都不行啊。。

Answer 7

那个弹出的错误提示是来自 Access 对象库。VB 不能直接控制它。一个办法是在主窗体的 Initialize() 事件中抢先搜索数据库文件，如果不存在，直接给出错误提示，并 Unload。另一个方法是在 Load() 事件中（ADODC 加载的地方）用 FindWindow() API 函数查找 Access 弹出的对话框，将 FindWindow() 的第 2 个参数设置成对话框的标题就可以了。然后，用 SendMessage API 函数发消息关闭对话框。我曾经用这种方法关闭 Win2K、WinXP 中拔掉 USB 设备时的警告框。不过有时屏幕会一闪。
至于多个 ADODC 的问题，只要循环执行 FindWindow() 直至返回值 = 0。