1.首先需要安装mysql-connector-odbc-3.51.15-win32.msi（安装过程之间下一步就行）
(PS:需要注意的是odbc是32位还是64位取决于你计算机/远程计算机上的mysql是32位还是64位，而不取决于你电脑的系统强烈建议32位)

打开控制面板 --》 管理工具
 

 

 

双击 数据源（ODBC）
 

 

 

点击 添加
 

 

 

选择mysql odbc 5.1 driver  --》 点击完成
 

 

 

填写data source name （DSN），之后在程序中要用到
填写server地址，一般为localhost， 如果为远程计算机则填写远程地址
填写 用户名、密码、数据库名称   --》 点击测试
 

 

 

如果测试成功的话，则odbc设置完毕，点击ok完成数据源添加
 

 

 

 

 

 

2.下面就是在vbs程序中使用了：
————————————————

Sub OnClick(ByVal item)
'提示：
' 1. 使用 <CTRL+SPACE> 或 <CTRL+I> 快捷键打开含所有对象和函数的列表
' 2. 使用 HMI Runtime 对象写入代码。
' 示例：HmiRuntime.Screens("Screen_1")。
' 3. 使用 <CTRL+J> 快捷键创建对象引用。
'从此位置起写入代码：

Dim adoConn
Dim ConnectionStr
Dim adoRst
Dim sqlStr
ConnectionStr="DSN=mysql;SERVER=127.0.0.1;UID=root;PWD=byme;PORT=3306;DATABASE=cssc"
Set adoConn = CreateObject("ADODB.Connection")
adoConn.Open ConnectionStr
If adoConn.State = 1 Then
MsgBox "OK"
Else
MsgBox "NG"
End If

'读取数据库

'下面语句为查询数据库SELECT语句
Dim sSql,oRs,oCom
sSql="SELECT M10_S_1 FROM 缓存表 WHERE 主码ID=2"

'标准的数据库操作属性和方法

Set oRs=CreateObject("ADODB.Recordset")
Set oCom=CreateObject("ADODB.Command")
Set oCom.ActiveConnection=adoConn
oCom.CommandType=1
oCom.CommandText=sSql
Set oRs=oCom.Execute

MsgBox oRs.Fields(0).Value

'6. 注销对象
oRs.close '关闭记录集
Set oRs=nothing '释放对象
adoConn.close '关闭连接
Set adoConn=nothing '释放对象

End Sub