怎么判断SQL是否连接?比如网络错误给出相应提示？

Question

Conn = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=hr;Data Source=SERVER"
 
Adodc2.ConnectionString = Conn
 Adodc2.CommandType = adCmdText
 Adodc2.RecordSource = "select * from 部门信息"
 Adodc2.Refresh
上面代码如果网络没连接或连接错误就会出错
怎么判断是什么错误并给出相应处理？？？

Answer 1

判断.State是否＝0 不等于0那么就是没成功。

Answer 2

可是如果网络没能的话
.open的时候已经出错了，根本不能判断.State了

Answer 3

可以加上一个
on error goto err:
..
...
exit sub
err:
 msgbox err.description
－－－－－－－－－－－－－－－－－－
其实这个过程不用担心，会报错提示

Answer 4

on error goto err:
..
adodc1.refresh <<<<<<<<<<<<<<<<可是在这里就会有出错提示
exit sub
err:
 msgbox err.description

Answer 5

同意artoksxb(心情随风)
 

Answer 6

用这个：
On Error GoTo err:
..
...
Exit Sub
err:
Select Case err.Number
      Case 错误代码
          ·····
      Case ···
      ···
      ·····
End Select