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
' 注銷對象
oRs.close '關閉記錄集
Set oRs=nothing '釋放對象
adoConn.close '關閉連接
Set adoConn=nothing '釋放對象
End Sub
==========================備注===========================
一、oCom.Execute的返回值oRs是一個結果集合
oRs.Fields中只包含首行值，如果數據為多行的話需要配合以下方式遍歷讀取
Do Until oRs.EOF
TODO...
oRs.MoveNext
Loop
二、IsNull(Tag) 可以判斷變量是否為null