wincc使用vbs脚本连接mysql数据库

注意事项，wincc如果是32位软件系统需要去c盘找到C:\Windows\SysWOW64\odbcad32.exe配置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="Provider=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")
'Msgb