VBA連接MySQL數據庫以及ODBC的配置（ODBC版本和MySQL版本如果不匹配會出現驅動和應用程序的錯誤）

db_connected = False

'獲取數據庫連接設置
dsn_name = Trim(Worksheets("加載策略").Cells(2, 5).Value)  ------（ODBC配置中的DATA SOURCE NAME）
user_name = Trim(Worksheets("加載策略").Cells(3, 5).Value)
pass_word = Trim(Worksheets("加載策略").Cells(4, 5).Value)

'獲取數據庫設置
db_name = Trim(Worksheets("加載策略").Cells(8, 5).Value) --------數據庫名

Set cn = New Connection
Set rs = New Recordset
Set rs1 = New Recordset
Set cmd = New Command
Set a_App = New Application

If dsn_name = "" Then
MsgBox ("請設置ODBC名稱")
Else
cn.ConnectionString = "DRIVER={MySQL ODBC 5.1 Driver};User ID=" & user_name & ";Password=" & pass_word & ";Data Source=" & dsn_name

 

ODBC配置：

MySQL版本：MySQL5.5

ODBC版本：mysql-connector-odbc-5.1.13-win32.msi

        mysql-connector-odbc-5.1.13-winx64.msi

安裝完這兩個版本

配置：

1.打開控制面板

2.搜索數據源然后打開

3.用戶DSN：點擊添加，按要求填寫好，確定就行了

注意驅動程序那里要點擊應用。