如果您想使用调度来创建一个监视以监控报警ODBC连接的状态,请在您的时间项目中使用下列自定义代码。对于任一情况,请用您实际希望的活动代替 [...] 内容:
Private Declare Function GetAlarmODBCStatus Lib "MissionVBA.dll" () As Integer
Private Sub FixTimer3_OnTimeOut(ByVal lTimerId As Long)
Dim IntODBCstatus As Integer
IntODBCstatus = GetAlarmODBCStatus
Select Case IntODBCstatus
Case 0
Case 1
Case 2
Case 3
End Select
End Sub
建议您运行的基于时间相关的项目间隔时间为20秒,以便获得准确数据,因为SQL连接的超时中断为60秒。
不像在FIX ODBC报警服务配置对话框的连接丢失中的标签域,本例中您可以创建一个监视从而监控状态并生成反馈报告。
相关信息
如何...