ADO 查找SQL 服务器时，程序的假死问题
发表时间：2007-07-16 14:37:54
楼主：onetiger1243
Public Sub ADO_connect()
On Error GoTo err
If IsconnectADO = True Then
Exit Sub
End If
Set ADOsvr = New ADODB.Connection
ADOsvr.ConnectionTimeout = 100
ADOsvr.ConnectionString = "driver={SQL Server};server=SQLSVR;uid=USER;pwd=PASSWORD;"
ADOsvr.Open
IsconnectADO = True
Exit Sub
err:
MsgBox "无法连接SQLServer数据库"
ADO_disconnect
Exit Sub
End Sub
以上是最常见的ADOSQL连接
当ADOsvr.Open的时候，系统在内网扫描SQL，程序会假死一段时间，通常在1秒-3秒，但如果SQL不存在，就要花6-10秒左右或更多时间，这个时间里程序不响应其他的操作，就算用了DoEvents也是没用，如何在这几秒时间里进行其他操作？有地方说用多线程，怎么做？或者怎么来缩短找不到SQL的返回时间，10多秒也太长了吧。
On Error GoTo err
If IsconnectADO = True Then
Exit Sub
End If
Set ADOsvr = New ADODB.Connection
ADOsvr.ConnectionTimeout = 100
ADOsvr.ConnectionString = "driver={SQL Server};server=SQLSVR;uid=USER;pwd=PASSWORD;"
ADOsvr.Open
IsconnectADO = True
Exit Sub
err:
MsgBox "无法连接SQLServer数据库"
ADO_disconnect
Exit Sub
End Sub
以上是最常见的ADOSQL连接
当ADOsvr.Open的时候，系统在内网扫描SQL，程序会假死一段时间，通常在1秒-3秒，但如果SQL不存在，就要花6-10秒左右或更多时间，这个时间里程序不响应其他的操作，就算用了DoEvents也是没用，如何在这几秒时间里进行其他操作？有地方说用多线程，怎么做？或者怎么来缩短找不到SQL的返回时间，10多秒也太长了吧。
