vb连接sql，如果判断是否连接成功，此时已经有一个连接在，谢谢了，在线等

Question

vb连接sql，如果判断是否连接成功，此时已经有一个连接在，谢谢了，在线等

Answer 1

'设置连接超时为10秒
    sCon.ConnectionTimeout = 10
    sCon.CursorLocation = adUseClient
    sCon.ConnectionString = strConnectionString
    sCon.Open
    '判断是否连接成功
    If sCon.State Then
        OpenDatabase = True
    Else
        OpenDatabase = False
    End If

Answer 2

用连接对象的State 的属性。可以用楼上的代码。