怎么判断SQL能否正常连接

如何判断SQL能否正常连接？
我用的是ADO进行连接SQL SERVER，代码如下：

    SQL = "Driver={sql server};server=86.20.230.19;uid=username;pwd=password;database=table_data"
    Set Conn = New ADODB.Connection
    Conn.ConnectionString = SQL
    Conn.Open

如何在连接之前，用最快的速度判断该IP地址能否连接得通，如果能，才进行连接，如果不能，则返回相关信息呢？谢谢！
[解决办法]
最简便的方法是：
窗口中临时放入一个adodc控件，使用adodc控件的connectionstring属性设置向导,进行设置，然后，点击测试连接，如果设置正确，会报告连接成功，然后，将其上的connectionstring拷贝回代码，然后删除掉临时的adodc控件
[解决办法]
如果计算机在线（能 Ping 通），但是 SQL Server 服务未启动，照样不能连接。
所以没有更快的方法判断，就是直接连接，加上错误处理即可。
[解决办法]

引用:

Quote: 引用:

如果计算机在线（能 Ping 通），但是 SQL Server 服务未启动，照样不能连接。
所以没有更快的方法判断，就是直接连接，加上错误处理即可。

直接ON ERROR GOTO 吗？服务器会直接返回，还是会延迟几秒才会呢？如果能麻烦返回，那么应该如何写这个错误代码啊？谢谢！

我理解错你的意思

在cnn.open的过程中，
sub opendb
    Dim cnn As New ADODB.Connection
    
    On Error GoTo ErrHandler
    
    cnn.ConnectionTimeout = 2000 '规定连接超时时间
    cnn.Open sConnection
    
ErrHandler:
    if err.Number=?? then
        MsgBox "无法连接数据库"
    End If
end sub
[解决办法]

引用:

Quote: 引用:

Quote: 引用:

如果计算机在线（能 Ping 通），但是 SQL Server 服务未启动，照样不能连接。
所以没有更快的方法判断，就是直接连接，加上错误处理即可。

直接ON ERROR GOTO 吗？服务器会直接返回，还是会延迟几秒才会呢？如果能麻烦返回，那么应该如何写这个错误代码啊？谢谢！

我理解错你的意思

在cnn.open的过程中，
sub opendb
    Dim cnn As New ADODB.Connection
    
    On Error GoTo ErrHandler
    
    cnn.ConnectionTimeout = 2000 '规定连接超时时间
    cnn.Open sConnection
    
ErrHandler:
    if err.Number=?? then
        MsgBox "无法连接数据库"
    End If
end sub

按这个设置是两秒之后跳到错误处理

查看更多 下一篇