QQ登录

只需一步,快速开始

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分钟





回复

使用道具 举报

快速回复 返回列表 客服中心 搜索