作者 | 主题 |
---|---|
红尘照我心QAQ 游士 经验值:157 发帖数:16 精华帖:1 |
楼主 2020-04-09 10:20:44
主题:wincc上传变量数据到mysql数据库 脚本如下, 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在写的过程中一致写不上,不用变量,直接写入数据的方式也尝试了还是写不进去,不知道什么原因 |
红尘照我心QAQ 游士 经验值:157 发帖数:16 精华帖:1 |
6楼 2020-04-11 15:18:17
主题:回复:wincc上传变量数据到mysql数据库
这个问题我解决了,变量还是设置的16位文本变量,但数据库的name改成varchar(20)就可以了
|