wincc如何通过VB脚本读取报警数据库归档内容

刚接触wincc,下面脚本是根据帮助文档VB实例修改,但读取不到归档内容,系统内置报警控件中能读到数据,请大神指点。
' 1.1 Create connection string for ADO access
Dim ProviderName
Dim CatalogName
Dim DataSourceName
Dim ConnectionString
Dim CommandString
Dim snam1,Rtname
Dim ServerName1
Set ServerName1 = HMIRuntime.Tags("@ServerName")          
      ServerName1.Read 
Dim DatasourceNameRT
Set DatasourceNameRT = HMIRuntime.Tags("@DatasourceNameRT")
      DatasourceNameRT.Read 
      Rtname=DatasourceNameRT.Value 
      snam1=ServerName1.Value
ConnectionString = "provider=WinCCOLEDBProvider.1;catalog=" & Rtname & ";data source=" & snam1 & "\WinCC"       
' 1.2 Define command string for access (relative time range, last 10 minutes)
CommandString = "ALARMVIEW:Select * from algviewcht WHERE DateTime > '2017-11-30 00:00:00.000' " 
Dim DBConnection
Dim DBCommand
Dim DBRecordset
' 2.1 Open connection
'HMIRuntime.Trace "before open connection" & vbNewLine 
Set DBConnection = CreateObject("ADODB.Connection")
DBConnection.ConnectionString = ConnectionString
DBConnection.CursorLocation = 3             
DBConnection.open 
Set DBRecordset = CreateObject("ADODB.Recordset")
' 2.2 Execute command
'HMIRuntime.Trace "before execute command" & vbNewLine 
Set DBCommand = CreateObject("ADODB.Command")
DBCommand.CommandType = 1
DBCommand.ActiveConnection = DBConnection
DBCommand.CommandText = CommandString
Set DBRecordset = DBCommand.Execute
Dim lngCount                                  
Dim lngValue,aa
' 2.3 Record structure and first record data (test)
lngCount = DBRecordset.Fields.Count 
aa = DBRecordset.RecordCount 
HMIRuntime.Trace "RecordSet.Field.Count=" & lngCount & vbNewLine 
HMIRuntime.Trace "RecordSet.RecordCount=" & aa & vbNewLine 
If (aa>0) Then 
    DBRecordset.movefirst  
Else
    HMIRuntime.Trace "Selection returned no fields" & vbNewLine 
End If
' 4.1 Clean up
DBRecordset.Close
Set DBRecordset = Nothing
Set DBCommand = Nothing
DBConnection.Close
Set DBConnection = Nothing
HMIRuntime.Trace "Connection closed again" & vbNewLine

问题补充:
数据库已经连接上,脚本调试输出如图,显示库中无数据。

图片说明:

wincc如何通过VB脚本读取报警数据库归档内容    wincc如何通过VB脚本读取报警数据库归档内容   

最佳答案

Rtname=DatasourceNameRT.Value 
 snam1=ServerName1.Value
改成
Rtname=DatasourceNameRT.Read
 snam1=ServerName1.Read
试试

详细参考:
WinCC数据开放性
https://support.industry.siemens.com/cs/cn/zh/view/78682604
在WinCC中如何使用VBS读取报警记录数据到EXCEL
https://support.industry.siemens.com/cs/cn/zh/view/77938393
WinCC、Excel、VBA、脚本、连通性软件包
https://support.industry.siemens.com/cs/cn/zh/view/71676391
WinCC/连通性软件包 V7.4 SP1
https://support.industry.siemens.com/cs/cn/zh/view/109746336
补充:
按我的方法试过了吗?
另外您可以先把WHERE去掉,直接查询所有的,试试,如果能查询到了,再加上条件

提问者对于答案的评价:
谢谢你的回答,找到问题出在哪儿了,软件语言是中文简体,查询的是繁体的归档数据库表,ALGVIEWEXCHT改为ALGVIEWEXCHS就可以了。

原创文章,作者:ximenziask,如若转载,请注明出处:https://www.zhaoplc.com/plc362472.html

(0)
打赏 微信扫一扫 微信扫一扫 支付宝扫一扫 支付宝扫一扫
上一篇 2021年7月5日 下午12:23
下一篇 2021年7月5日 下午12:23

相关推荐

  • 5台WINCC操作站与300PLC以太网通讯

    有个项目:5个的操作站安装WINCCV7.0 怎么与一套CPU315-2PN/DP的PLC以太网通讯?操作站是否要经过路由器与PLC联接?需要哪些硬件和软件?WINCC项…

    SIMATIC WinCC 2019年6月11日
  • 用户归档删除数据

    用户归档的最大数据记录是行乘列不大于320000,如果用用户归档作报表的话,随着时间,用户归档中记录的数据越来越多,要是达到了320000怎么办啊?怎么样才能像Wincc的过程值归…

    SIMATIC WinCC 2019年6月11日
  • 两个WINCC 工程项目中的某些控件互相复制

    如题,之前有做好一个WinCC工程项目,想把里面某些画面按钮或IO域复制到另一个WinCC工程项目,但是好像一台电脑同时打开2个WinCC项目是不行的,求解!多谢 最佳答案 将原有…

    SIMATIC WinCC 2017年11月25日
  • 使用webnavigator遇到问题

    在web configurator中设置发布ip地址为本机地址,然后再web view publisher中发布画面,但在ie中输入本机地址时,出现“…

    SIMATIC WinCC 2019年6月11日
  • WINCC V7.3 怎么做交错趋势

    趋势图常规里没有交错趋势选择啊 问题补充:就是这样的趋势图 图片说明:    最佳答案 控件“”wincc function trend&n…

    2021年7月5日
  • EXCEL,EXAMPLE等怎么样和WCC建立连接

    各位大哥好,如题,我不晓得怎么用,想学来玩玩,请指点或哪有下载使用方法(这个用起来方便什么地方?)。感谢 问题补充:查了一下,好像蛮复杂。顺便问下各位大哥,有些300的CPU属性里…

    SIMATIC WinCC 2019年6月11日
  • 谁知道Wincc与PIC18系列单片机如何通讯?

    正在做一个项目要求Wincc能够与PIC18系列的单片机通过串口通讯,但是不知道如何实现。有谁能够帮我解决这个问题? 问题补充:通过MODBUS rtu 协议传…

    SIMATIC WinCC 2019年6月11日
  • WINCC7.3输入确认

    WINCC7.3输入变量给PLC需要提示确认后才有效怎么写脚本啊 最佳答案 https://support.industry.siemens.com/cs/document/788…

    SIMATIC WinCC 2021年7月5日
  • WINCC创建冗余连接的问题

    我现在正在做一个s7-300软冗余的项目,上位机只有一台电脑,安装有WINCC。我想用创建冗余连接的形式进行冗余通讯切换,我在图形编辑画面下,用动态向导创建冗余连接,但是在我的变量…

    SIMATIC WinCC 2019年6月11日
  • 关于WINCC手册订货号

    最近学习WINCC,谁有WINCC手册、组态手册、通讯手册等的订货号,想买书籍学习,或者谁有比较好的相关书籍介绍一下,谢谢了! 最佳答案 《深入浅出西门子WinCC 》这…

    SIMATIC WinCC 2017年7月26日

发表回复

登录后才能评论