如何截获数据库连接错误?
用VB通过数据环境连接数据库,在数据库正常时连接时OK,但由于某些原因数据库无法连接时,系统会出现一个连接框要求输入连接参数,但此时程序无法再继续运行,有何办法可以截获这个错误并报告给用户“数据库无法连接”的错误提示,从而能正常退出程序而不是停留在那个提示框上不再往下进行?(用On error试过了,不能截获这种错误) --------------------编程问答-------------------- 首先,看看数据环境自带的事件(比如 Connection 的 InfoMessage)是否有提示。其次,连接成功后 Debug.Print 连接字符串,再用到你的数据环境定义中。
通常要求输入参数是因为在连接字符串中省略了一些缺省值,而连接成功后会自动被自动加上。 --------------------编程问答-------------------- 看来只能这样,无法阻止那个对话框
Private Sub Connection1_ConnectComplete(ByVal pError As ADODB.Error, adStatus As ADODB.EventStatusEnum, ByVal pConnection As ADODB.Connection)
If pConnection.State = 0 Then MsgBox pError.Description
adStatus = adStatusUnwantedEvent
End Sub
--------------------编程问答-------------------- 请问上面这位老师,这个Connection1_ConnectComplete过程怎么调用呢? --------------------编程问答--------------------
干嘛要调用?
你不是使用数据环境设计器吗?
Connection1是你添加的连接,当你在Form中使用Connection1里的command的初始,系统会会自己调用
事实上和Form_load之类的事件处理性质相同 --------------------编程问答-------------------- 你双击在数据环境设计器的connection1,就会出现和connection1相关的代码窗口,选取connection1的ConnectComplete事件,将代码拷贝进去即可 --------------------编程问答-------------------- 试过了,那个对话框还是阻止不了,还有没有其他方法? --------------------编程问答-------------------- 其它方法就是不使用数据环境,也不使用adodc
直接创建连接对象,这是我一般使用的方法
补充:VB , 数据库(包含打印,安装,报表)