VB客户端电脑网络不稳定，怎么才能保证软件不受影响啊

VB客户端电脑网络不稳定，如何才能保证软件不受影响啊。
我的VB6客户端电脑是通过VPN连接到一个远程数据库的，因为网络不太稳定，一旦掉线，虽说那个vpn软件会自动重新连接，但VB程序，却必须重启才能正常使用。
请大侠给点思路吧。。
VB程序是，在软件一开始运行，就加载数据库连接对象conn的，后面的都是直接调用这个conn。

VB code

Public Function connectToDB() As BooleanOn Error GoTo serr    Set conn = New Connection        Dim dbserver As String, userName As String, psw As String, dbName As String    dbserver = "localhost"    dbName = "test"    userName = "sa"    psw = "123"            With conn            .CursorLocation = adUseClient            .CommandTimeout = 5            .ConnectionString = " Provider=SQLOLEDB.1;Persist Security Info=True;Data Source=" & dbserver & ";Initial Catalog=" & dbName & ";User ID=" & userName & ";Password=" & psw'            Debug.Print .ConnectionString                        .Open    End With    connectToDB = True    Exit Functionserr:    connectToDB = FalseEnd Function

后面查询数据的时候，是这么用的：

VB code

Public Sub chaxun(ByVal strSQL As String)On Error Resume Next'    Debug.Print strSQL    Set rs = Nothing    Set rs = conn.Execute(strSQL)            Me.Label1.Caption = "[" & rs.RecordCount & "条]"    Set Me.Grid1.DataSource = rs  End Sub

[解决办法]
连接前检查
if conn.state = 1 then '如果是连接状态
什么也不做保持连接
else
初始化conn
重新连接
end if

查看更多 下一篇