VB怎么判断SQL数据库连接成功或失败？

Question

我用以下语句连接SQL Server数据库
   Adodc1.ConnectionString = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=silk;Data Source=SERVER"
   Adodc1.RecordSource = "select * from 客户资料"
   Adodc1.Refresh
可是如果网络断开就会出现程序错误而中断，
能不能加一个判断语句来判断SQL是否已经连接？

Answer 1

用 On Error 语句，VB 基本功，仔细看帮助

Answer 2

我知道On Error 
问题是判断如果连接不成功则提示网络连接错误，但如果是On Error的话，不一定是连接不成功的问题才会产生On Error嘛.

Answer 3

Private Sub cmdTest_Click()
On Error GoTo showerr
    Set conn = New ADODB.Connection
    Set rs = New ADODB.Recordset
    conn.ConnectionString = Connection_String
    conn.Open
    MsgBox "连接成功", vbOKOnly + vbInformation, "测试连接"
    Exit Sub
showerr:
    MsgBox "Error:" & Err.Number & vbCrLf & Err.Description, vbOKOnly, "" 
End Sub

Answer 4

你可以在處理錯誤前根據Err.Number來判斷是否網絡連接錯誤呀

Answer 5

哈哈，heiheidan好棒，谢谢 

Answer 6

同意 leolan(史留香) 
其实  heiheidan ()是他的具体话