VBA 测试 Sql 连接字符串正确但超时

Question

正在尝试使用下面的代码测试连接，但效果很好。但是，当它遇到invalid/bad 连接字符串时，需要很长时间才能return 无法连接的错误消息。尝试连接到远程服务器时尤其如此。

是否有超时设置或我可以设置的东西来停止尝试连接并return错误消息更快？

Private Sub btnTest_Click()
On Error GoTo ErrorHandler
    Set cn = New ADODB.Connection
    Set cm = New ADODB.Command

    cs =  "Provider=SQLNCLI11;Server=MyServer;Database=MyDatabase;Trusted_Connection=Yes;"
    cn.Open cs

    MsgBox "Connection successful.", vbInformation, "Test Mode Message"

    cn.Close
    Set cm = Nothing
    Set cn = Nothing

ExitSub:
    Exit Sub

ErrorHandler:
    MsgBox "Cannot connect”
    Resume ExitSub
End Sub

Answer 1

设置 Connection 实例的 ConnectionTimeout 属性：

cn.ConnectionTimeout = timeoutInSeconds

VBA 测试 Sql 连接字符串正确但超时

VBA Test Sql Connection String is Correct w/ Time Out

sql-server

vba

connection-string

database-connection