远程连接数据库出现的问题？

Question

我做了一个程序是远程连接数据库的，但是程序运行了一段时间后就连不上了，提示网络超时，怎么解决这个问题，下面是我的代码，看看有什么问题？Sub Main()
     If Not ServerConnect Then
        MsgBox "数据库联接错误，请查看联机帮助文件 !!!  ", vbCritical
        End
    End If
    frmprint.Show
End Sub
Public Function ServerConnect() As Boolean
    ServerConnect = False
    Dim a, b, c As Variant
    Dim database As String
    Dim SQLstatus As StringOn Error GoTo ErrHandle
    SQLstatus = "SQL"
    Select Case UCase(SQLstatus)
    Case "ACCESS"
        'strConnectString = "Provider=Microsoft.Jet.OLEDB.4.0;Password='';Data Source=" & App.Path & "\card.mdb"
    Case "SQL"
         strconn = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;password=;Initial Catalog=webcode;Data Source=172.168.0.3"
    Case "ORACLE"
        'strConnectString = "driver={ORACLE ODBC DRIVER};CONNECTSTRING=ORA;UID=wsfy;PWD=wsfy;"
    End Select
    conn.ConnectionString = strconn
    conn.CommandTimeout = 120
    conn.Open strconn
    ServerConnect = True
    Exit Function
ErrHandle:
    Dim adoErr As ADODB.Error
    If conn.Errors.Count > 0 Then
        For Each adoErr In conn.Errors
            MsgBox "[Error Code] " & adoErr.Number & Chr(13) & adoErr.Description, vbCritical + vbOKOnly, "Error"
        Next adoErr
    End If
End Function

Answer 1

我试了试，不会有连不上的现象，可能你的网络有问题，你拼拼看，有没有丢失现象。