VB6程序怎么检测与SQL SERVER断开，并自动重连？

[thesky102]

我想了个办法，就是一分钟自动重连一次

Dim cnn As ADODB.Connection
Dim rs As ADODB.Recordset

Private Sub Form1_Load()
    Set cnn = New ADODB.Connection
    cnn.Open "Provider=SQLOLEDB.1;Password=123;Persist Security Info=false;User ID=sa;Initial Catalog=testdatabase;Data Source=computer"
    Set rs = New ADODB.Recordset
End Sub

Private Sub Timer1_Timer()
    rs.open ***************
    *
    *
    *
    *
    rs.close
End Sub

Private Sub Timer2_Timer()
    If rs.State = adStateOpen Then
        rs.Close
    End If
    If cnn.State = adStateOpen Then
        cnn.Close
    End If
    Set cnn = New ADODB.Connection
    cnn.Open "Provider=SQLOLEDB.1;Password=123;Persist Security Info=false;User ID=sa;Initial Catalog=testdatabase;Data Source=computer"
    Set rs = New ADODB.Recordset
End Sub

我这个实现方式有什么不妥么？
尤其是timer2里的代码有问题么？
VB6没有try catch真心纠结。。。

[thesky102]

引用 5 楼 hdhai9451 的回复:

--cnn是连接数据库，rs是打开数据库的表 Private Sub Timer1_Timer() If cnn.State = adStateclose Then Set cnn = New ADODB.Connection cnn.Open "Provider=SQLOLEDB.1;Password=123;Persist Security Info=false;User ID=sa;Initial Catalog=testdatabase;Data Source=computer" End If End Sub 保持连接不断开就可以了，不需要两个定时器，也不用定时打开记录集 rs是打开表，每打开表完成后 rs.open sql,........... .....

1.我知道cnn rs啊，断开后两个Set cnn/rs = New *****不写不行么？写了不会有影响么？ 2.最终这样就行了？

Dim cnn As ADODB.Connection
Dim rs As ADODB.Recordset
 
Private Sub Form1_Load()
    Set cnn = New ADODB.Connection
    cnn.Open "Provider=SQLOLEDB.1;Password=123;Persist Security Info=false;User ID=sa;Initial Catalog=testdatabase;Data Source=computer"
    Set rs = New ADODB.Recordset
End Sub
Private Sub Timer1_Timer()
    If cnn.State = adStateclose Then
        Set cnn = New ADODB.Connection
        cnn.Open "Provider=SQLOLEDB.1;Password=123;Persist Security Info=false;User ID=sa;Initial Catalog=testdatabase;Data Source=computer"
        Set rs = New ADODB.Recordset
    End If
    rs.open ***************
    *
    *
    *
    *
    rs.close
End Sub

rs.close

[Andy__Huang]

要先实例化 Dim cnn As ADODB.Connection 改为 Dim cnn As New ADODB.Connection

[thesky102]

引用 7 楼 hdhai9451 的回复:

要先实例化 Dim cnn As ADODB.Connection 改为 Dim cnn As New ADODB.Connection

form_load 里不是实例化么？

[thesky102]

引用 7 楼 hdhai9451 的回复:

要先实例化 Dim cnn As ADODB.Connection 改为 Dim cnn As New ADODB.Connection

还有就是数据库断开了就跟 rs.close cnn.close 效果一样呗？

[Andy__Huang]

在Form_Load 里面实例不太合适，在Timer1_Timer()里面准备连接之前实例化就可以了。 还有Form_Load可以调用Timer1_Timer()，没必要两个地方都写。 还是关不了，那改用 set rs=nothing

[thesky102]

引用 10 楼 hdhai9451 的回复:

在Form_Load 里面实例不太合适，在Timer1_Timer()里面准备连接之前实例化就可以了。 还有Form_Load可以调用Timer1_Timer()，没必要两个地方都写。 还是关不了，那改用 set rs=nothing

最终这样写行不？或者需要改动什么吧

Dim cnn As ADODB.Connection
Dim rs As ADODB.Recordset
 
Private Sub Form1_Load()
    Set cnn = New ADODB.Connection
    cnn.Open "Provider=SQLOLEDB.1;Password=123;Persist Security Info=false;User ID=sa;Initial Catalog=testdatabase;Data Source=computer"
    Set rs = New ADODB.Recordset
End Sub
Private Sub Timer1_Timer()
    If cnn.State = adStateclose Then
        Set cnn = New ADODB.Connection
        cnn.Open "Provider=SQLOLEDB.1;Password=123;Persist Security Info=false;User ID=sa;Initial Catalog=testdatabase;Data Source=computer"
        Set rs = New ADODB.Recordset
    End If
    rs.open ***************
    *
    *
    *
    *
    rs.close
End Sub

[Andy__Huang]

如果需要只要一个Timer就够了，定时判断它如果断开了就连接 建议你每操作数据库一次，就连接一次，操作完成 就断开。以免连接数超过限制次数

[thesky102]

引用 1 楼 hdhai9451 的回复:

如果需要只要一个Timer就够了，定时判断它如果断开了就连接 建议你每操作数据库一次，就连接一次，操作完成 就断开。以免连接数超过限制次数

我是考虑一个timer 的 可是这么判断断开呢？ 据说有时候断开了但是rs 或者cnn的state属性还是open啊

[Andy__Huang]

你断开的代码是什么写的?如果它的属性是open()，你还能读取rs记录吗？不能了

[thesky102]

引用 1 楼 hdhai9451 的回复:

如果需要只要一个Timer就够了，定时判断它如果断开了就连接 建议你每操作数据库一次，就连接一次，操作完成 就断开。以免连接数超过限制次数

引用 3 楼 hdhai9451 的回复:

你断开的代码是什么写的?如果它的属性是open()，你还能读取rs记录吗？不能了

Private Sub Timer1_Timer()
    If cnn.State = adStateclose Then
        Set cnn = New ADODB.Connection
        cnn.Open "Provider=SQLOLEDB.1;Password=123;Persist Security Info=false;User ID=sa;Initial Catalog=testdatabase;Data Source=computer"
        Set rs = New ADODB.Recordset
    End If
    rs.open ***************
    *
    *
    *
    *
    rs.close
End Sub
 
Private Sub Timer2_Timer()

End Sub

1.这样写行么？ 2.两个Set cnn = New ADODB.Connection还要写么？

[Andy__Huang]

--cnn是连接数据库，rs是打开数据库的表 Private Sub Timer1_Timer() If cnn.State = adStateclose Then Set cnn = New ADODB.Connection cnn.Open "Provider=SQLOLEDB.1;Password=123;Persist Security Info=false;User ID=sa;Initial Catalog=testdatabase;Data Source=computer" End If End Sub 保持连接不断开就可以了，不需要两个定时器，也不用定时打开记录集 rs是打开表，每打开表完成后 rs.open sql,........... ..... rs.close