将WINCC数据写入ACCESS中

操作系统WIN10企业版 LTSC 2019  ，版本1809

WINCC:  WINCC V7.4 SP1+UPD15 :这个系统必须安装WINCC补丁 UPD15，要不然和PLC通讯是断开的

 OFFICE:  OFFICE2010  32位

在系统DSN建立数据源和数据库的链接

数据库创建：

数据类型设置位：文本。

SampleDSN为配置ODBC中系统DSN---数据源

WINCC_DATA位ACCESS数据库中表得命名

在WINCC全局脚本下新建VBS动作，脚本处罚周期   2秒，脚本程序

Dim objConnection
Dim strConnectionString
Dim data1,data2,data3,data4,data5
Dim strSQL
Dim objCommand
data5=Now
strConnectionString = "Provider=MSDASQL;DSN=SampleDSN;UID=;PWD=;"

data1 = HMIRuntime.Tags("出水COD.PV").Read
data2 = HMIRuntime.Tags("出水总氮.PV").Read
data3 = HMIRuntime.Tags("出水总磷.PV").Read
data4 = HMIRuntime.Tags("出水氨氮.PV").Read

strSQL = "INSERT INTO WINCC_DATA (COD值,总氮,总磷,氨氮,时间) VALUES ('" & data1 & "','" & data2 & "','" & data3 & "','" & data4 & "','" & data5 & "');" 

Set objConnection = CreateObject("ADODB.Connection")

objConnection.ConnectionString = strConnectionString
objConnection.CursorLocation = 3
objConnection.Open

Set objCommand = CreateObject("ADODB.Command")

With objCommand

    .ActiveConnection = objConnection

    .CommandText = strSQL

End With

objCommand.Execute

Set objCommand = Nothing

objConnection.Close

Set objConnection = Nothing