通过VBS脚本在ListView控件中显示WinCC的变量记录 .docVIP

通过VBS脚本在ListView控件中显示WinCC的变量记录 nbsp;nbsp;nbsp;nbsp;nbsp;nbsp; 在实际应用中，客户对于WinCC变量记录的显示需求各式各样，比如在Excel或者Word中显示变量记录，以特定的表格显示历史数据等等。当WinCC集成的在线表格控件不能满足客户需要时，就需要通过自定义的方式来显示变量归档。主要分为两部分： （1）从WinCC中读取归档数据 （2）将归档数据以特定的格式显示出来 nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp; 本文档介绍从WinCC读取归档数据的通用方法，并以ListView为例，介绍如何显示归档数据。对于其它控件，客户也可以参考本文档的脚本和编程思路。 1．测试环境 nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp; 本文档基于WinCC V7.0 ASIA，并通过MS Windows Common Controls 6.0 ListView 控件来显示读取的归档数据。需要的授权如下： 授权名称个数备注WinCC RC V7.01nbsp;WinCC连通性软件包V7.01订货号为：6AV6371-1DR07-0AX0，授权通过WinCC OLE DB访问过程值归档。表 01 2．实现方式总体思路介绍 nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp; 本文档通过调用WinCC OLE DB数据库接口驱动（需要WinCC连通性软件包的授权）来访问WinCC的变量归档，并在微软的ListView控件中显示归档数据。程序结构如下所示： 图1 其中，自定义函数的说明如下表所示： 函数名称功能WinCCDataSourceAccess（connObj, pSQL）建立到数据库的连接。参数connObj为连接对象(ADODB.Connection)，参数pSQL为要执行的SQL查询语句WinCCDataSourceClose（pRecordset, connObj）断开与数据库的连接，释放资源。参数pRecordset为ADODO.RecordSet对象，参数connObj为连接对象(ADODB.Connection)AddListViewHeaderColumn（pRecordset, pListView）添加ListView的列名。参数pRecordset为ADODO.RecordSet对象，参数pListView为ListView对象FillListView (pRecordset, pListView)参数pRecordset为ADODO.RecordSet对象，参数pListView为ListView对象。表 02 具体代码见附件。 3．具体实现方法和代码 3．1 创建到归档数据库的连接 nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp; 由于WinCC的变量归档为压缩数据，所以必须通过WinCC OLE DB来读取归档数据。对于已经安装WinCC的计算机，不需要安装WinCC连通性软件包。对于未安装WinCC的客户端，必须安装WinCC连通性软件包。该软件包含在WinCC V7.0的安装光盘中。 nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp; 数据库连接的脚本如下所示： ‘定义数据库连接变量 Dim conn Set conn = CreateObject(“ADODB.Connection”) ‘定义数据库查询脚本(可以根据需要自定义修改) Dim sSQL sSQL=“Tag:R,’ProcessValueArchive\Tag1’,’0000-00-00 00:01:00.000’,’0000-00-00 00:00:00.000’” ‘通过调用自定义的数据库连接函数，建立与数据库的连接 Dim oRs Set oRs= WinCCDataSourceAccess(conn,sSQL) nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp; 其中，自定义的数据库连接函数WinCCDataSourceAccess（connObj,pSQL），参数connObj为连接对象(ADODB.Connection)，参数pSQL为要执行的SQL查询语句，具体代码如下所示： Function WinCCDataSourceAccess(connObj,pSQL) ‘建立到数据库的连接 On Error Resume Next ‘读取本地的WinCC运行数据库名称 Dim DatasourceNam