利用VBS脚本将WINCC数据写入MSSQL实践

机电工控人生交流 11-19 660

前言：

现在同学们对“vbnetsql存入读取文件”大概比较关怀，看官们都想要学习一些“vbnetsql存入读取文件”的相关文章。那么小编同时在网上收集了一些关于“vbnetsql存入读取文件””的相关文章，希望同学们能喜欢，兄弟们快快来学习一下吧！

首先我们打开VBS脚本编辑器，建立动作脚本：TOMSSQL.bac

脚本源文件如下：

Option Explicit

Function action

Dim Data1, Data2, Data3 , Data4, Data5,Data6, Data7,Data8

'读取wincc变量

Data1=Now()'获取系统日期时间

Data2=Round(HMIRuntime.tags("test_data1").read,3)'取3位小数

Data3=Round(HMIRuntime.tags("test_data2").read,3)' 取3位小数

Data4=Round(HMIRuntime.tags("test_data3").read,3)'取3位小数

Data5=Round(HMIRuntime.tags("test_data4").read,3)'取3位小数

Data6=Round(HMIRuntime.tags("test_data5").read,3)'取3位小数

Data7=Round(HMIRuntime.tags("test_data6").read,3)'取3位小数

Data8=Round(HMIRuntime.tags("test_data7").read,3)'取3位小数

Dim adoConn '定义ADO连接对象?

Dim ConnectionStr '定义数据库连接字符串?

Dim sqlStr,adoRst'获取连接数据库字符串

ConnectionStr="Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=master;Data Source=DESKTOP-FD6EA86\WINCC"'不同项目此引号里面的数据源要更换

Set adoConn = CreateObject("ADODB.Connection")

adoConn.Open ConnectionStr

If adoConn.State = 0 Then

Msgbox "连接数据库失败！"

Else

'Msgbox "连接数据库成功！"

End If

Dim sSql,oRs,oCom

'写入数据库

sSql=" insert into tt1(tt,t1,t2,t3,t4,t5,t6,t7)VALUES('"&Data1&"','"&Data2&"','"&Data3&"','" &Data4&"','"&Data5&"','"&Data6&"','"&Data7&"','"&Data8&"')"

Set oRs = CreateObject("ADODB.Recordset")

Set oCom = CreateObject("ADODB.Command")

Set oCom.ActiveConnection = adoConn

oCom.CommandType = 1

oCom.CommandText = sSql

Set oRs = oCom.Execute

oRs.CLOSE

Set oRs = Nothing

adoConn.Close

Set adoConn = Nothing

End Function

目前应用在真实的案例：