如果服务器不存在，如何使 ADO 连接超时更快？

Question

我的任务是支持一个旧的 VB6 应用程序。 （是的）我在 ADO 连接超时属性方面遇到了问题。如果服务器存在，下面的方法可以正常工作，但是如果服务器不存在或机器的网络连接尚未启动，即使将 intTimeout 设置为 1，也将花费整整 30 秒的时间来超时。ADO

有没有办法无法更快连接？ 这可能吗？ 谢谢！

Public Sub GetConnectionObject(ByRef oCn As ADODB.Connection, strServer As String,     strInitialCatalog As String, Optional intTimeout = 10)

    Dim strConnectionString As String
    strConnectionString = "Data Source=[SERVER];Provider=SQLOLEDB.1;User ID=ScanReq1;Password=ScanR3Q;Initial Catalog=[INITIALCATALOG];ConnectionTimeout=" & intTimeout & ";"
    strConnectionString = Replace(strConnectionString, "[SERVER]", strServer)
    strConnectionString = Replace(strConnectionString, "[INITIALCATALOG]", strInitialCatalog)

    Set oCn = New ADODB.Connection
    oCn.CursorLocation = adUseClient
    oCn.ConnectionString = strConnectionString
    oCn.CommandTimeout = intTimeout
    oCn.ConnectionTimeout = intTimeout

    oCn.Open

End Sub

Answer 1

TCP 连接建立后，ConnectionTimeout 开始计时。如果找不到服务器，则该值由 Windows TCP 子系统控制。

如果这对您来说确实是个问题，我会尝试先对盒子进行 ping 操作（网上有很多通过 VB6 进行 ping 操作的示例）。

Answer 2

我也中过这个。设置 ConnectionTimeout 的另一种方法是使 Open 调用异步，然后在您自己的代码中处理超时。下面是快速而肮脏的示例（注意：这是用 VBA 编写的，但应该可以轻松移植到 VB6）：

Dim conn As New ADODB.Connection
Dim time As Single, timeOut As Single
conn.ConnectionString = "your connection string here"
conn.Open Options:=adAsyncConnect  ' value is 16
timeOut = 5
time = Timer()
Do Until Timer() - time > timeOut Or conn.State = adStateOpen
    DoEvents
Loop
If conn.State <> adStateOpen Then    'value is 1
    'timed out
Else
    'successful
End If

为了“正确”执行此操作，需要使用一个 ConnectionComplete 事件可以处理。