wincc数据导出mysql_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在写的过程中一致写不上，不用变量，直接写入数据的方式也尝试了还是写不进去，不知道什么原因