1. Public Function CheckDB()
   
2. Dim res As Boolean
   
3. Dim yn As Integer
   
4. Dim count As Integer
   
5. count = 0
   
6. Do
   
7.   count = count + 1
   
8.   res = CheckDataBase("SYANT")
   
9.   If res Then
   
10.      yn = vbNo
    
11.   Else
    
12.     yn = MsgBox("MES数据库重连失败,是否继续尝试重连?" & CStr(count), vbYesNo, "MES")
    
13.   End If
    
14. Loop While (res = False) And (yn = vbYes)
    
15. End Function
    
16. 
    
17. Public Sub session_start()
    
18.     Dim StrSql As String
    
19.     Dim res As String
    
20.     Dim adors1 As ADODB.Recordset
    
21.     StrSql = "CALL syant.session_start('TR_IQC','1.1.8','',TRUE,@x);"
    
22.     Set adors1 = CN.Execute(StrSql)
    
23. End Sub
    
24. 
    
25. Public Function CheckDataBase(app_name As String) As Boolean
    
26. Dim StrSql As String
    
27. Dim res As String
    
28. Dim adors1 As ADODB.Recordset
    
29. On Error GoTo chkError
    
30. CheckDataBase = False
    
31. StrSql = "select now() from dual "
    
32. Set adors1 = CN.Execute(StrSql)
    
33. ' so ok!
    
34. adors1.Close
    
35. Set adors1 = Nothing
    
36. CheckDataBase = True
    
37. Exit Function
    
38. chkError:
    
39.     On Error GoTo DataBaseError
    
40.     res = NSD_APM.ReConnect(app_name)
    
41.     If res = "ReConnect OK!" Then
    
42.       Set CN = Nothing
    
43.       Set CN = NSD_APM.CN
    
44.       CheckDataBase = True
    
45.       Call session_start
    
46.     Else
    
47.       'MsgBox Err.Description, vbCritical, "MES数据库重连失败!"
    
48.     End If
    
49.     Exit Function
    
50. DataBaseError:
    
51.     'MsgBox Err.Description, vbCritical, "MES数据库重连失败!"
    
52. End Function
    

复制代码