西门子中国总代理/SITOP电源模块代理商
上海浔之漫智控技术公司在经营活动中精益求精，具备如下业务优势：
SIEMENS可编程控制器
长期低价销售西门子PLC,200，300，400，1200，西门子PLC附件，西门子电机，西门子人机界面，西门子变频器，西门子数控伺服，西门子总线电缆现货供应，欢迎来电咨询系列产品，折扣低，货期准时，并且备有大量库存.长期有效
前来询价.100分的服务.100分的质量.100分的售后.100分的发货速度
您的选择您的支持是我的动力！ ————致我亲爱的客户!
西门子EM231模拟量输入模块6ES7231-7PB22-0XA8用PLC实现对系统的控制是非常方便的。这是因为：PLC控制逻辑的建立是程序,用程序代替硬件接线。编程序比接线，更改程序比更改接线，当然要方便得多！PLC的硬件是高度集成化的，已集成为种种小型化的模块。这些模块是配套的，已实现了系列化与规格化。种种控制系统所需的模块，PLC厂家多有现货供应，市场上即可购得。硬件系统配置与建造也非常方便。正因如此，用可编程序控制器才有这个"可"字。对软件讲，它的程序可编，也不难编。对硬件讲，它的配置可变，也易于变。具体地讲，PLC有五个方面的方便：（1）配置方便：可接控制系统的需要确定要使用哪家的PLC，那种类型的，用什么模块，要多少模块，确定后，到市场上定货购买即可。（2）安装方便：PLC硬件安装简单，组装容易。外部接线有接线器，接线简单，一次接好后，更换模块时，把接线器安装到新模块上即可，都不必再接线。内部什么线都不要接，只要作些必要的DIP开关设定或软件设定，以及编制好用户程序就可工作。
在实际应用中，客户对于wincc变量记录的显示需求各式各样，比如在excel或者word中显示变量记录，以特定的表格显示历史数据等等。当wincc集成的在线表格控件不能满足客户需要时，就需要通过自定义的方式来显示变量归档。主要分为两部分：
（1）从wincc中读取归档数据
（2）将归档数据以特定的格式显示出来
本文档介绍从wincc读取归档数据的通用方法，并以listview为例，介绍如何显示归档数据。对于其它控件，客户也可以参考本文档的脚本和编程思路。
表 01
关于wincc连通性软件包的使用，请参考下面的帮助文档：37436159
2．实现方式总体思路介绍
本文档通过调用wincc oledb数据库接口驱动（需要wincc连通性软件包的授权）来访问wincc的变量归档，并在微软的listview控件中显示归档数据。程序结构如下所示：
图1
具体代码见附件。
3．具体实现方法和代码
3．1 创建到归档数据库的连接
由于wincc的变量归档为压缩数据，必须通过wincc oledb来读取归档数据。对于已经安装wincc的计算机，不需要安装wincc连通性软件包。对于未安装wincc的客户端，必须安装wincc连通性软件包。该软件包含在winccv7.0的安装光盘中。
数据库连接的脚本如下所示：
'定义数据库连接变量
dim conn
set conn = createobject("")
'定义数据库查询脚本(可以根据需要自定义修改)
dim ssql
ssql="tag:r,'processvaluearchive\tag1','0000-00-0000:01:00.000','0000-00-00 00:00:00.000'"
'通过调用自定义的数据库连接函数，建立与数据库的连接
dim ors
set ors= winccdatasourceaccess(conn,ssql)
其中，自定义的数据库连接函数winccdatasourceaccess（connobj,psql），参数connobj为连接对象()，参数psql为要执行的sql查询语句，具体代码如下所示：
function winccdatasourceaccess(connobj,psql)
'建立到数据库的连接
on error resume next
'读取本地的wincc运行数据库名称
dim datasourcenamert,dataconnectionname
set datasourcenamert = hmiruntime.tags("@datasourcenamert")
datasourcenamert.read
'定义数据库连接字符串
dim spro, sdsn,sser
spro = "provider=winccoledbprovider.1;"
sdsn = "catalog=" & datasourcenamert.value & ";"
sser = "data source=.\wincc"
dataconnectionname = spro + sdsn + sser
' 定义查询语句字符串
ssql=psql
'建立连接
dim ors,ocom,conn
set conn=connobj
= dataconnectionname
conn.cursorlocation = 3
conn.open
' 创建查询的命令文本
set ors = createobject("adodb.recordset")
set ocom = createobject("")
= 1
set ocom.activeconnection = conn
'执行查询
set ors = ocom.execute
'返回结果
set winccdatasourceaccess=ors
if err.number <> 0 then
msgbox "error code" & err.number & "source:" & & "error deion" &err.deion
err.clear
end if
on error go to 0
end function
自定义函数的创建过程为:在wincc项目管理器中右键点击全局脚本?打开vbs全局脚本编辑器?项目函数?新建函数。具体如下图所示：
西门子中国总代理/SITOP电源模块代理商