如何判断连接服务器的sql数据库成功与否？在线等待高手解答！

Question

可以通过异常处理来判断：
On Error Resume Next
o_AdoConn.Open s_ConnStr
If Err.Number <> 0
    '连接数据库出错
End if
On Error Goto 0

Answer 1

可以通过异常处理来判断：
On Error go to err1 
o_AdoConn.Open s_ConnStr
    .
    .
    .
   exit sub 
err1:
   msgbox err.description   '''''err后面的参数我记得不是很准
   exit sub 
这样子就可以了,只要连接一出错就会退出子程序,
同时也会弹出信息框.

Answer 2

以上应为go to --> goto