1，打开SQL数据库建立一张名为ribao的表

2，在WINCC的全局脚本写入一下代码，

Option Explicit

Function action

Dim database

Dim strcn,cn

Dim is_SQL

Dim riqi

Dim xs1,xs2,xs3,xs4,xs5,xs6

Dim DateTime

riqi=Now

Set database= HMIRuntime.Tags("@DatasourceNameRT")

database.Read

Set xs1= HMIRuntime.Tags("xs1")

xs1.Read

Set xs2= HMIRuntime.Tags("xs2")

xs2.Read

Set xs3= HMIRuntime.Tags("xs3")

xs3.Read

Set xs4= HMIRuntime.Tags("xs4")

xs4.Read

Set xs5= HMIRuntime.Tags("xs5")

xs5.Read

strcn="Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog="& database.Value &";Data Source=.\wincc"

Set cn=CreateObject("ADODB.connection")

cn.connectionString=strcn

cn.Open

is_SQL="insert into ribao(riqi,xs1,xs2,xs3,xs4,xs5) Values('"& riqi &"','"&xs1.Value &"','"&xs2.Value &"','"&xs3.Value &"','"&xs4.Value &"','"&xs5.Value &"')"

cn.Execute is_SQL

cn.Close

End Function

以上的全局脚本定义为周期性执行就可以了，那样就会把数据周期性的写入SQL数据库

3，接下来的工作就是在画面上查询和显示了，下个分享帖再贴代码吧。