脚本如下,
Sub OnLButtonUp(Byval Item, Byval Flags, Byval x, Byval y)
Dim adoConn '定义ADO连接对象
Dim ConnectionStr '定义数据库连接字符串
Dim sqlstr
Dim adoRst
Dim data(3)
ConnectionStr="Provider=MSDASQL.1;Persist Security Info=True;Extended Properties='DRIVER=MySQL ODBC 5.1 Driver;SERVER=localhost;UID=root;PWD=123456;DATABASE=test;PORT=3308'"
'声明连接对象
Set adoConn=CreateObject("ADODB.Connection")
On Error Resume Next
adoConn.Open ConnectionStr
'Set data(0) = HMIRuntime.Tags("编号")
'Set data(1)= HMIRuntime.Tags("姓名")
'Set data(2)=HMIRuntime.Tags("年龄")
'sqlStr="insert into test1 (ID,name,age) values('"&data(0).Read&"','"&data(1).Read&"','"&data(2).Read&"');"
sqlStr="insert into test1 (ID,name,age) values (7,'小王',19);"
adoConn.Execute sqlStr
'关闭数据库
adoConn.Close
'释放数据库对象
Set adoConn = Nothing
End Sub
我通过wincc 读取mysql数据没有问题,但是用wincc在写的过程中一致写不上,不用变量,直接写入数据的方式也尝试了还是写不进去,不知道什么原因