如何把报警记录的消息文本输出到静态文本或io域中？

《如何把报警记录的消息文本输出到静态文本或io域中？》由会员上传分享，免费在线阅读，更多相关内容在应用文档-天天文库。

1、如何把报警记录的消息文本输出到静态文本或IO域中？　　或者说怎么读取正在发生的报警记录中的消息文本？　　最佳答案　　可以用脚本读取报警记录，然后写入到静态文本或IO域中：假如需要读取报警记录中的报警内容和报警点分别读取到变量tag1和tag2中，参考脚本如下：　　Dimcc1　　Setcc1=CreateObject(“adodb.connection”)　　Dimsnam1,Rtname　　DimServerName1　　SetServerName1=HMIRuntime.Tags(“@ServerName”)　　Serv

2、erName1.Read　　DimDatasourceNameRT　　SetDatasourceNameRT=HMIRuntime.Tags(“@DatasourceNameRT”)　　DatasourceNameRT.Read　　Rtname=DatasourceNameRT.Value　　snam1=ServerName1.Value　　strcon=“provider=WinCCOLEDBProvider.1;catalog=“&Rtname&”;datasource=“&snam1&”WinCC”　　cc1.Conn

3、ectionString=strcon　　cc1.CursorLocation=3　　cc1.open　　Dimsqlstr　　Dimrst　　Dimt1　　Setrst=CreateObject(“adodb.recordset”)　　sqlstr=“ALARMVIEW:Select*fromalgviewchtWHEREDateTime>““2013-12-112:00:00”“andDateTime<““2013-12-112:10:00”““　　Sett1=CreateObject(“adodb.command”)　

4、　t1.commandtype=1　　Sett1.activeconnection=cc1　　t1.commandtext=sqlstr　　Setrst=t1.execute　　rst.movefirst　　”“““rst.fields(“text1”).value‘’对应报警内容　　”“““rst.fields(“text2”).value‘’对应报警点　　”“报警内容写入变量中　　dimtag1,tag2　　settag1=hmiruntime.tags(“tag1”)　　settag2=hmiruntime.tags(

5、“tag1”)　　tag1.read　　tag1.writerst.fields(“text1”).value　　tag2.read　　rag2.writerst.fields(“text2”).value　　rst.close　　Setrst=Nothing　　cc1.close　　Setcc1=Nothing　　SetServerName1=Nothing　　Setprintgrid=Nothing　　Sett1=Nothing　　settag1=nothing　　settag2=nothing　　以上脚本是查询了13年

6、12月1号12点0分到12点10分这十分钟内的报警，然后选取第一条报警内容读取到变量中