VBA连接Mysql

VBA连接Mysql

环境准备

• office2016(32/64位)
• mysql-connector-odbc-5.1.13-win32
• mysql-connector-odbc-5.1.13-winx64

Excel准备

按alt+F11 进入VBA环境

1. 引入

2. 安装odbc

• mysql-connector-odbc-5.1.13-win32
• mysql-connector-odbc-5.1.13-winx64
• 下载地址 解压密码【VBAmysql】

3. 添加odbc

打开“控制面板”－“管理工具”－“ODBC 数据源” 双击

VBA连接测试

Sub 连接MySQL数据库()
'1. 引用ADO工具
'2. 创建连接对象
Dim con As New ADODB.Connection
'3. 建立数据库的连接
con.ConnectionString = "Driver={MySQL ODBC 8.0 Unicode Driver};Server=192.168.1.139;DB=test;UID=root;PWD=abc;OPTION=3;"
con.Open
MsgBox ("连接成功！" & vbCrLf & "数据库状态：" & con.State & vbCrLf & "数据库版本：" & con.Version)
con.Close
Set con = Nothing
End Sub

出错提示

通过断点方式在con.Open处报自动化失败xxxx或者-200xxxx(800xxxx)的字样，就说明odbc没装好

参考链接1

参考链接2