深圳全飞鸿

标题: 网络不稳定导致的系统报错的改善方案 [打印本页]
作者: zhgc    时间: 2019-5-13 20:06
标题: 网络不稳定导致的系统报错的改善方案
XC的SMT系统工作在wifi模式下，由于网络的不稳定，偶尔会有以下报错



现针对该问题做出改善方案！
作者: zhgc    时间: 2019-5-13 22:51
  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

  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

  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
复制代码




欢迎光临 深圳全飞鸿 (http://www.nagomes.com/disc/) Powered by Discuz! X3.2