WINCC报表第一步把数据存入SQL数据库脚本分享

WINCC报表第一步把数据存入SQL数据库脚本分享

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="rovider=SQLOLEDB.1;Integrated Security=SSPIersist 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，接下来的工作就是在画面上查询和显示了

---------你这是自建表还是使用wincc的归档表？归档表是压缩的，不能直接插入数据的。自建表也是不能用wincc的趋势控件来显示的，只能脚本操作。

另外你的有没有测试过？看你写的这么全，先给你分享，如果测试有问题还是要取消分享的，不能误人。

--------自己手动建的表。

应该是可以运行的。

-------测试过得呀，网友自己建一个表，把代码复制到全局脚本，自己测试一下最多5分钟