ExcelVBA 连接 MySQL 数据库（vba 连接sqlserver）

上期分享了 ExcelVBA 连接 sqlite3 数据库，今天给大家分享 ExcelVBA 连接另一个非常流行的 MySQL 数据库。

一、环境

win10

Microsoft office 2010 (32位)

二、官网下载安装 MySQL Connector/ODBC

注：ODBC 版本支持的位数要与Excel版本一致（由于我的Excel是32位的，这里同样选择32位版本下载）

三、配置 MySQL ODBC 驱动程序

打开ODBC数据源管理程序，选择系统DSN，点击添加

选择MySQL ODBC 8.0 Unicode Driver（根据你下载的版本选择），如下图，

点击完成，配置数据库参数，如下图，配置完成后，点击Test，可以测试是否配置正确，下图显示数据库连接成功。

四、ExcelVBA 连接 MySQL 数据库

1、打开 Excel 工作簿

2、打开 VBA 开始环境，编写代码

Sub Connect_Mysql_db_Expenses_Click()

Dim cn As New ADODB.Connection

mydriver = "Driver={MySQL ODBC 8.0 Unicode Driver}"

host = "192.168.1.128"

database = "expenses"

user = "guest"

pw = "guest123"

cnStr = mydriver & ";Server=" & host & ";Database=" & database & ";Uid=" & user & ";Pwd=" & pw & ";option=3"

cn.Open (cnStr)

If cn.State = 1 Then

MsgBox "数据库连接成功！"

Else

MsgBox "数据库连接失败，请重试！"

End If

cn.Close

Set cn = Nothing

End Sub

3、运行代码

上图显示数据库连接成功。