VB 连接 SQL 假死状态，等待几十秒才告知失败，第一次发贴，求大神们帮助！ - 编程论坛

#2

xzlxzlxzl2014-06-14 16:45

似乎没什么好方法，一般你可以事先用winsocket尝试连接1433端口，连接成功则表明sql server可正常访问，否则就不需要连接了（1433端口也是可变的，这只能向数据库管理员要了）

#3

bczgvip2014-06-14 19:57

Cnn.Open "Provider=sqloledb;Data Source=123.112.234.222;Initial Catalog=master;User ID=sa;PassWord=sa", , , adAsyncConnect
'异步打开连接。ConnectComplete 事件可用。

潜水一年多呐！虽然在其他地方咱也见过潜水十年的。数值单位没打错，确认。

#4

zhuxingyuok2014-06-23 10:13

回复 3 楼 bczgvip

版主你好！能详细点说一下么，我把你这行代码替换过去还是要等三四十秒呢？能不能给一段完整可行的代码，我真的很需要，非常感谢！

#5

bczgvip2014-06-24 18:17

程序代码：

Option Explicit

Private WithEvents Cnn As ADODB.Connection

Private Sub Cnn_ConnectComplete(ByVal pError As ADODB.Error, adStatus As ADODB.EventStatusEnum, ByVal pConnection As ADODB.Connection)
    Debug.Print Cnn.ConnectionString
    Debug.Print pError.Description
    If adStateOpen = adStatus Then MsgBox "连接成功" Else MsgBox "连接失败"
End Sub

Private Sub Command1_Click()
    Set Cnn = New ADODB.Connection
On Error GoTo Errs
    Cnn.Mode = adModeRead
    Cnn.CursorLocation = adUseClient
    Cnn.ConnectionTimeout = 3
    Cnn.Open "Provider=sqloledb;Data Source=123.112.234.222;Initial Catalog=master;User ID=sa;PassWord=sa", , , adAsyncConnect
Errs:
End Sub

话说不是结贴了么？
timeout 没用，没找到原因。