如果没有正确连接远程数据库，我应该怎么判断

Question

Public Sub main()
                 
         Set Con = New ADODB.Connection
               
                 With Con
             .CommandTimeout = 500
             .ConnectionString = ConStr
             .CursorLocation = adUseClient
             .Open
                        
         End With
     
End Sub
如果网络发生问题我在代码里如何判断，谢谢

Answer 1

利用错误处理来判断啊
Public Sub main()
         on error goto err_Handle
         Set Con = New ADODB.Connection
               
                 With Con
             .CommandTimeout = 500
             .ConnectionString = ConStr
             .CursorLocation = adUseClient
             .Open
                        
         End With
         exit suberr.Handle
     if con.state=adstateclosed then
         msgbox "连接超时，无法连接数据库服务器"
     endif
     
     
End Sub

Answer 2

Dim WithEvents adoConn As ADODB.Connection
Dim ConnOK As BooleanPrivate Sub adoConn_ConnectComplete(ByVal pError As ADODB.Error, adStatus As ADODB.EventStatusEnum, ByVal pConnection As ADODB.Connection)
    If adStatus = adStatusOK Then 
        ConnOK = True
    else
        msgbox "adStatus is " & adStatus    '具体的错误原因查看一下msdn
    end ifEnd SubPrivate Sub adoConn_WillConnect(ConnectionString As String, UserID As String, Password As String, Options As Long, adStatus As ADODB.EventStatusEnum, ByVal pConnection As ADODB.Connection)
ConnOK = False
End Sub
Public Sub main()
                 
         Set adoConn = New ADODB.Connection
               
                 With adoConn 
             .CommandTimeout = 500
             .ConnectionString = ConStr
             .CursorLocation = adUseClient
             .Open
                        
         End With
     
End Sub

Answer 3

Attribute VB_Name = "SqlConnModule"
Option Explicit
Public SqlConn As New ADODB.Connection'功能简介：建立SQL数据库公共链接
'参数一：服务器名或IP
'参数二：数据库名称
'参数三：登陆用户名称
'参数四：登陆用户密码
'参数五：延时
'返回值："ok"--成功, 否则返回错误信息
Function PulbicSQLConn(StrServerName As String, StrDataName As String, StrUserName As String, StrPassword As String, IntOutTime As Integer) As String
    On Error GoTo SQLConnErr
    Dim StrSql As String
    StrSql = "Provider=sqloledb;Data Source=" & StrServerName & ",1433;Initial Catalog=" & StrDataName & ";User ID=" & StrUserName & ";Password=" & StrPassword & ";"
    If SqlConn.State <> 0 Then SqlConn.Close
    SqlConn.ConnectionTimeout = IntOutTime
    SqlConn.Open StrSql
    PulbicSQLConn = "ok"
    Exit Function
SQLConnErr:
    PulbicSQLConn = Err.Description
    If SqlConn.State <> 0 Then SqlConn.Close: Set SqlConn = Nothing
End Function'功能简介：关闭SOL数据库公共链接
Function PublicMdbClose()
    If SqlConn.State <> 0 Then SqlConn.Close: Set SqlConn = Nothing
End Function

Answer 4

if con.errors.count>0 then 
msgbox "出现连接错误"

Answer 5

用on error goto errhandlePublic Sub main()
         On Error Goto errHandle        
         Set Con = New ADODB.Connection
               
                 With Con
             .CommandTimeout = 500
             .ConnectionString = ConStr
             .CursorLocation = adUseClient
             .Open
                        
         End With
         ...
         exit sub
     errHandle:        
          msgbox err.description
End Sub