[求助-wincc]怎样把报警记录中的消息文本输出到静态文本或IO域中？

amy328

怎样把报警记录中的消息文本输出到静态文本或IO域中？</p>

lymingo

可以用脚本读取报警记录，然后写入到静态文本或IO域中：假如需要读取报警记录中的报警内容和报警点分别读取到变量tag1和tag2中，参考脚本如下：
Dim cc1
Set cc1=CreateObject(&quot;adodb.connection&quot;)
Dim snam1,Rtname
Dim ServerName1
Set ServerName1 = HMIRuntime.Tags(&quot;@ServerName&quot;)
      ServerName1.Read
Dim DatasourceNameRT
Set DatasourceNameRT = HMIRuntime.Tags(&quot;@DatasourceNameRT&quot;)
      DatasourceNameRT.Read
      Rtname=DatasourceNameRT.Value
      snam1=ServerName1.Value
strcon=&quot;provider=WinCCOLEDBProvider.1;catalog=&quot; & Rtname & &quot;;data source=&quot; & snam1 & &quot;WinCC&quot;
        cc1.ConnectionString=strcon
        cc1.CursorLocation=3
        cc1.open
Dim sqlstr
Dim rst
Dim t1
Set rst=CreateObject(&quot;adodb.recordset&quot;)
      sqlstr=&quot;ALARMVIEW:Select * from algviewcht WHERE DateTime >''2013-12-1 12:00:00'' and DateTime <''2013-12-1 12:10:00'' &quot;
Set t1=CreateObject(&quot;adodb.command&quot;)
      t1.commandtype=1
Set t1.activeconnection=cc1                  
      t1.commandtext=sqlstr
Set rst=t1.execute
      rst.movefirst
      ''''rst.fields(&quot;text1&quot;).value        ‘’对应报警内容
      ''''rst.fields(&quot;text2&quot;).value        ‘’对应报警点
      '' 报警内容写入变量中
dim tag1,tag2
set tag1=hmiruntime.tags(&quot;tag1&quot;)
set tag2=hmiruntime.tags(&quot;tag1&quot;)
     tag1.read
     tag1.write rst.fields(&quot;text1&quot;).value        
     tag2.read
     rag2.write rst.fields(&quot;text2&quot;).value        
     rst.close
Set rst=Nothing              
       cc1.close
Set cc1=Nothing
Set ServerName1=Nothing
Set printgrid=Nothing
Set t1=Nothing
set tag1=nothing
set tag2=nothing
以上脚本是查询了13年12月1号12点0分到12点10分这十分钟内的报警，然后选取第一条报警内容读取到变量中，脚本供参考。