wincc使⽤vbs脚本连接mysql数据库
注意事项，wincc如果是32位软件系统需要去c盘到C:\Windows\配置mysql数据源，并测试，避免使⽤64位的ODBC数据源，不然会⼀直调试不同，连接不上，其他内容基本上跟⽹上内容差不多，
Option Explicit
Function action
'定义变量
Dim adoConn '定义ADO连接对象
Dim ConnectionStr '定义数据库连接字符串
'ConnectionStr="DSN=mysql;SERVER=localhost;UID=root;PWD=root;DATABASE=test;PORT=3306"
'"driver={mysql odbc 5.1 driver};server=192.168.1.111;database=xifeijian;port=3306;uid=root;password=root" ConnectionStr="Pr
ovider=MSDASQL.1;Persist Security Info=True;Extended Properties='DRIVER=MySQL ODBC 5.3 Unicode Driver;SERVER=localhost;UID=root;PWD=root;DATABASE=test;PORT=3306'"
'声明连接对象
Set adoConn=CreateObject("ADODB.Connection")
'声明查询对象
'Set Rst =CreateObject("ADODB.Recordset")
'Msgbox adoConn.State
'Msgbox ConnectionStr
'利⽤数据库连接字符串打开数据库
On Error Resume Next
adoConn.Open ConnectionStr
'查看是否连接成功，成功状态值为1
'msgbox adoConn.state
If adoConn.State = 0 Then
Msgbox  "连接数据库失败！"
End If
'Dim sqlStrc,adoRst
'获取数据库查询语句
mysql下载到了c盘'sqlStr = "select * from utest where id=1 "
'执⾏sql语句并返回对应的结果集
'Set adoRst = adoConn.Execute(sqlStr)
'获得结果集中年龄字段的值
'MsgBox adoRst.Fields.Item("ub").Value
'关闭数据库
'adoConn.Close
'释放数据库对象
'Set adoConn = Nothing
'wincc中的变量名
Dim NewTag_1,NewTag_2
Dim sqlStr
Set NewTag_1 = HMIRuntime.Tags("PY7_VF216_Fre")
Set NewTag_2 = HMIRuntime.Tags("PY7_VF216_Ia1")
' sqlStr="insert into utest (ua,ub) values('345','345')"
sqlStr="insert into utest (ua,ub) values('"&NewTag_1.Read&"','"&NewTag_2.Read&"')"
adoConn.Execute sqlStr
adoConn.close
Set adoConn=Nothing
End Function

版权声明：本站内容均来自互联网，仅供演示用，请勿用于商业和其他非法用途。如果侵犯了您的权益请与我们联系QQ:729038198，我们将在24小时内删除。