wincc与Access数据库的数据交互(写入数据)

编程知识行业动态更新时间:2024-06-13 00:17:28

wincc的数据存储目前主要是存储到数据库，而目前主流的数据库，主要由SQL Server和Access数据库，此文主要是关于wincc如何与Access数据库之间的数据写入。

条目	描述
运行环境	wincc7.5 SP1
Access数据库	2010版

运行画面

操作流程

创建Access数据库表

1.创建Access数据库文件，文件名：Wincc_Access_Data.accdb
2.创建数据库表，表名：DataTest，表内字段为：Data1、Data2、、Data3、Data4、Data5、Data6、Data7、Data8。数据类型为数字。如图：

3.将创建的Access数据库文件放到磁盘根目录下。

组态画面

1.wincc创建画面，画面名称为DataWrite.Pdl
2.创建数据变量，在变量列表中创建8个数据的变量

3.画面新增控件对象。

对象	名称
静态文本	默认
按钮	默认
输入输出域	默认

数据生成

测试的数据是通过随机函数生成的，具体生成方法请参考《wincc随机数据生成》

数据写入

通过编写按钮事件的脚本，实现数据写入功能，脚本如下：

Sub OnClick(Byval Item)                            
'1.测试时，注意不要讲Access数据库中的字段设置为中文，最好用英文表示
'2.创建Access数据库文件时，会出现两种文件后缀，mdb和accdb，其实这两个都是Access数据库的文件格式，只不过代表不同版本的Access数据库，mdb为07版以前(不包括07版)。accdb为07版以后。因此对于不同的文件后缀，Provider链接字符串也有所区别。
'mdb：Provider=Microsoft.Jet.OleDb.4.0
'accdb:Provider=Microsoft.ACE.OLEDB.12.0
'3.创建数据库时，不要将数据库文件放到中文目录下，尽量放到根目录或者根目录下的英文文件夹，路径不要太长。
'4.sql语句查询的数据和保证正确。
'5.wincc脚本定义的变量要和实际使用的保持一样。 
Dim conn,comd
Dim strConnectionString,strSQL
Dim Data1,Data2,Data3,Data4,Data5,Data6,Data7,Data8
Data1= HMIRuntime.Tags("Data1").Read 
Data2= HMIRuntime.Tags("Data2").Read 
Data3= HMIRuntime.Tags("Data3").Read 
Data4= HMIRuntime.Tags("Data4").Read 
Data5= HMIRuntime.Tags("Data5").Read 
Data6= HMIRuntime.Tags("Data6").Read 
Data7= HMIRuntime.Tags("Data7").Read 
Data8= HMIRuntime.Tags("Data8").Read 
strConnectionString = "Provider=MSDASQL;DSN=wincc_DB;UID=;PWD=;" '//wincc_DB为ODBC数据源
strSQL = "INSERT INTO DataTest(Data1,Data2,Data3,Data4,Data5,Data6,Data7,Data8)VALUES("&Data1&","&Data2&","&Data3&","&Data4&","&Data5&","&Data6&","&Data7&","&Data8&")" '创建sql语句，其中ID等为字段名，machineinfo为数据库表名
Set conn = CreateObject("ADODB.Connection")
conn.ConnectionString = strConnectionString
conn.Open
Set comd = CreateObject("ADODB.Command")

With comd

.ActiveConnection = conn

.CommandText = strSQL

End With

comd.Execute

Set comd = Nothing

conn.Close

Set conn = Nothing

End Sub