如何测试数据库连接正常

Question

使用adodc控件，设定好datasource后refresh，如果这时候数据库没有开启，如何通过代码截获连接状态，而不是由控件自身抛出一个提示窗体。

Answer 1

有个error事件,在里面添加代码.
fCancelDisplay设置为true则不显示错误报告!

Answer 2

din cnn as ADODB.connection
---
---
---
If Cnn.State <> adStateOpen Then
        MsgBox "无法连接到本地数据库"
        GoTo ErrOut '出错处理
End If

Answer 3

din cn as ADODB.connectionIf Cn.State <> adStateOpen Then
        MsgBox "本地数据库连接错误"
End If