如何用ADO连接局域网的服务器？并判断是否连接成功？

Question

把CONNECTIONSTRING的DATA　SOURCE设成器名就可以了，用错误捕捉
连接出错时不就知道　了

Answer 1

Option ExplicitPrivate Sub Command1_Click()
On Error GoTo ErrHandler
Dim Cn As New ADODB.Connection
Dim CnStr As String    If txtServer.Text = "" Then
        MsgBox "请输入服务器名"
        Exit Sub
    End If
    
    CnStr = "Driver={SQL Server};Server=" & txtServer.Text & ";uid=" & txtUser.Text & ";pwd=" & txtPassword.Text
    Cn.ConnectionTimeout = 10
    Cn.Open CnStr
    MsgBox "连接成功"
    
    Exit SubErrHandler:
    MsgBox Err.Description
End Sub

Answer 2

楼上说的对CONNECTIONSTRING的DATA　SOURCE可以是服务器的机器名，也可以是服务器的IP地址一般要判断连接是否成功，最直接的方法就是捕捉错误，在错误处理中提示连接失败

Answer 3

Dim cn As ADODB.Connection   cn.ConnectionString = _
        "provider=sqloledb;" & _
        "Initial Catalog=SandA;" & _
        "Data Source=poweredge;" & _
        "User ID=" & UserName & ";" & _
        "Password=" & Password    cn.Open
    If cn.State = adStateOpen Then
       '成功
    else
       '不成功
    End If