ADO中，如何判断连接成功

Question

同上，谢谢

Answer 1

第一,如果报错那可定不成功
第二:如cn.status=0也不成功

Answer 2

Dim a As New ADODB.Connection
    ........
    If a.State = adStateOpen Then
        MsgBox "OK"
    Else
        MsgBox "Err!"
    endif

Answer 3

用DEBUG.print一下连接的数据库或文件，能否出来就OK！！

Answer 4

怎么不会用DEBUG.print不能调试吗？

Answer 5

用它的记录集对象recordset 假设为rs
rs.state=adrecordsetopen表示打开
rs.state=adrecordsetclose表示关闭

Answer 6

if conn.state=adstateopen then 
    msgbox "Open"
else
    msgbox "Close"
end if