使用调度程序来创建报警ODBC监视器
2015-12-18 23:15:37   来源：   评论：0 点击：

如果您想使用调度来创建一个监视以监控报警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报警服务配置对话框的连接丢失中的标签域，本例中您可以创建一个监视从而监控状态并生成反馈报告。

相关信息

如何做...