wincc变量定时存储到本地数据库

CV科研随想录

已于 2023-12-25 14:54:36 修改

阅读量2.2k

点赞数 1

分类专栏： wincc脚本文章标签： sql 数据库

于 2021-09-09 10:51:13 首次发布

本文链接：https://blog.csdn.net/weixin_40957452/article/details/120196042

版权

wincc脚本专栏收录该内容

3 篇文章

订阅专栏

该代码示例展示了如何通过VBScript定时从WinCC读取S7R2系列的变量值，并将这些值存储到SQL Server数据库的特定表中。通过建立ADODB连接和记录集，利用GETDATE()获取当前时间并插入到数据表中，实现了自动化数据存储的功能。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

项目场景：

将wincc的变量定时存储到sql server数据库（需要设置定时触发器）

代码实现：

Dim sCon, conn, oRs, sql_command, oCom, strcn

Dim R1
Set R1 = HMIRuntime.Tags("S7R2_R1")
R1.Read

Dim R2
Set R2 = HMIRuntime.Tags("S7R2_R2")
R2.Read

Dim R3
Set R3 = HMIRuntime.Tags("S7R2_R3")
R3.Read

Dim R4
Set R4 = HMIRuntime.Tags("S7R2_R4")
R4.Read

Dim R5
Set R5 = HMIRuntime.Tags("S7R2_R5")
R5.Read

sCon = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist SecurityInfo=False;Initial Catalog=XC;Data Source=WIN-NMP6G9UVVU8\WINCC"  '(需要改catalog为数据库名称，source为服务器名称或者计算机名称)
Set conn = CreateObject("ADODB.Connection")
conn.ConnectionString = sCon
conn.CursorLocation = 3
conn.Open

Set oRs = CreateObject("ADODB.Recordset")
Set oCom = CreateObject("ADODB.Command")
oCom.CommandType = 1
Set oCom.ActiveConnection = conn

sql_command = "insert into my_table (DT, R1, R2, R3, R4, R5) Values(GETDATE(), '"&R1.Value&"', '"&R2.Value&"', '"&R3.Value&"', '"&R4.Value&"', '"&R5.Value&"')"  '(my_table 为表名，需要修改)
conn.Execute sql_command
conn.Close