工业组态软件报表

工业组态软件中的报表是自控系统中的难点,本文介绍了如何使用ACCESS和WINCC数据存储过程、查询、导出等方法

步骤1：新建ACCESS文件WINCC_DATA,

步骤2：在控制面板中-----管理工具-----数据源

如下

3：在选择已经建好的ACESS文件如

: WINCC_DATA,

工业组态软件中的报表是自控系统中的难点,本文介绍了如何使用ACCESS和WINCC数据存储过程、查询、导出等方法

在数据源名称：SampleDSN

步骤4：在citect中编写如下代码：

Dim objConnection //定义连接字

Dim strConnectionString //定义连接字符串

Dim lngValue //定义需要存储的中间变量

Dim strSQL //定义连接名称

Dim objCommand //定义查询命令

Dim Tag1,Tag2,Tag3,Tag4,Tag5,Tag6,Tag7,Tag8 //需要定义一些中间变量用于读取组态软件中的变量

strConnectionString = "Provider=MSDASQL;DSN=SampleDSN;UID=;PWD=;" //此部分语句不要更改

lngValue = HMIRuntime.Tags("SL_Total_Numb").Read //读取组态软件中的变量数值。此语句是在WINCC下有效的，如果在Citect中则需要将此语句更改以下相同。

Tag1 = HMIRuntime.Tags("cang1_s").Read

工业组态软件中的报表是自控系统中的难点,本文介绍了如何使用ACCESS和WINCC数据存储过程、查询、导出等方法

Tag2 = HMIRuntime.Tags("cang2_s").Read

Tag3 = HMIRuntime.Tags("cang3_s").Read

Tag4 = HMIRuntime.Tags("cang4_s").Read

Tag5 = HMIRuntime.Tags("cang5_s").Read

Tag6 = HMIRuntime.Tags("cang6_s").Read

Tag7 = HMIRuntime.Tags("cang7_s").Read

Tag8 = HMIRuntime.Tags("cang8_s").Read

strSQL = "INSERT INTO WINCC_DATA (ProductNumb,Numb1,Numb2,Numb3,Numb4,Numb5,Numb6,Numb7,Numb8)"&_

" VALUES (" & lngValue & "," & Tag1 & "," & Tag2 & "," & Tag3 & "," & Tag4 & "," & Tag5 & "," & Tag6 & "," & Tag7 & "," & Tag8 & ");"//将读取的数据存储到对应的ACCESS表单中，注意插入的关键字和变量的对应关系。以下部分无需更改

Set objConnection = CreateObject("ADODB.Connection")

objConnection.ConnectionString = strConnectionString

objConnection.Open

Set objCommand = CreateObject("http://www.77cn.com.cnmand")

With objCommand

.ActiveConnection = objConnection

.CommandText = strSQL

End With

objCommand.Execute

Set objCommand = Nothing

objConnection.Close

Set objConnection = Nothing

步骤5：打开VB程序 工程----引用

工业组态软件中的报表是自控系统中的难点,本文介绍了如何使用ACCESS和WINCC数据存储过程、查询、导出等方法

步骤6：在部件中添加

步骤7：打开数据查询的工程进行数据处理，其中导出到EXCEL无需更改，需要将查询部分的代码进行部分调整和ACCESS中一致。

工业组态软件中的报表是自控系统中的难点,本文介绍了如何使用ACCESS和WINCC数据存储过程、查询、导出等方法

步骤8：运行调整

思路如下：

1：建立ACCESS表单，并在上位组态软件中将需要的数据存储

2：在VB中将数据查询的结果显示并导出到EXCEL中。

注意：

在将程序打开时如果提示缺少控件等，请根据提示添加相关的控件，如无法确定是哪个控件，可以上网搜索一下。

以上代码在WINCC中已经实际运行，没有问题。在CITECT中的VB中需要将读取数据部分进行更改，具体需要和施耐德服务人员联系。