vba mysql_VBA连接Mysql数据库

最新推荐文章于 2023-11-26 22:49:35 发布

可爱小甜甜喵

最新推荐文章于 2023-11-26 22:49:35 发布

阅读量918

点赞数

文章标签： vba mysql

本文链接：https://blog.csdn.net/weixin_30827827/article/details/113115951

版权

本文介绍了如何在VBA中连接MySQL数据库，包括环境配置、ODBC数据源设置和VBA代码实现。详细讲解了ADO类库引用、连接字符串参数以及执行SQL语句的方法。

摘要由CSDN通过智能技术生成

■MySQL的环境配置

■VBA连接MySQL数据库的代码框架

187475569_1_20200407111358916_wm 一、MySQL的环境配置

我的具体环境：

√Win7 32位系统

√Excel 2016 32bit

√Mysql服务+数据库管理工具(我用的Navicat)

√Mysql ODBC连接器

√VC++ 2015 Redistributable(一个必须环境)

切记！上述组件务必安装相同位数的版本，否则容易出现各种问题！

(所有文中涉及到的附件，32和64位版本均提供安装包，后台回复mysql获取)

▍确保以上程序均安装完成以后，开始下面的配置环境。

①打开“控制面板”－“管理工具”－“ODBC 数据源”(找不到管理工具的，搜索一下)

187475569_2_20200407111359229_wm

②添加Mysql数据源驱动

187475569_3_20200407111359401_wm

③点击完成后弹出配置界面，关于界面的说明如下：

我这里使用的是Navicat数据库管理软件，下面的界面也是Navicat里面连接设置页面。如果成功的话，点Test之后会出现连接成功的提醒。

187475569_4_20200407111359651_wm

到这一步，我们已经成功了一半了，下面只需要知道VBA连接Mysql的框架代码即可。

187475569_5_2020040711140073_wm 二、VBA中使用代码连接MySQL

现在给出连接Mysql数据库的框架代码

▍框架代码：Sub 连接本地Mysql() '///1. 引用ADO类库：前期或者后期绑定 Dim conn As ADODB.Connection Set conn = New ADODB.Connection '以上两句可简写Dim con As New ADODB.Connection Dim rs As ADODB.Recordset Set rs = New ADODB.Recordset '以上两句可简写Dim rs As New ADODB.Connection '///2. ADO建立对数据源的链接 conn.ConnectionString = "Driver={MySQL ODBC 8.0 Unicode Driver};Server=127.0.0.1;Port=3306;DB=myemployees;UID=root;PWD=123;OPTION=3;" conn.Open '///3. ADO执行SQL语言。 rs.Open "select * from jobs", conn '使用结果集对象执行sql语句 Range("A2").CopyFromRecordset rs '将数据输出到工作表，不包含字段名 '可简写con.Open "Driver={MySQL ODBC 8.0 Unicode Driver};Server=192.168.1.139;DB=test;UID=root;PWD=abc;OPTION=3;" MsgBox ("连接成功！" & vbCrLf & "数据库状态：" & conn.State & vbCrLf & "数据库版本：" & conn.Version) conn.Close Set conn = NothingEnd Sub

代码主要分为三大部分：

■引用ADO类库：前期或者后期绑定

■ADO建立对数据源的链接

■ADO执行SQL语言

▶▶▶关于引用ADO类库：

连接数据库需要通过ado这个中间人。首先我们要引用ado组件的类型库，这里我采用前期绑定的方式。

187475569_6_20200407111400229_wm

在VBE菜单栏选择“工具”－“引用”，在弹出的引用窗口中，找到"Microsoft ActiveX Data Objects 6.1 Library"和"Microsoft ActiveX Data Objects Recordset 6.0Library"，把前面的框勾选上，点击确定即可。(如果不是这两个版本，则选择一个版本号最高的勾选即可)

▶▶▶ADO的连接字符串conn.ConnectionString = "Driver={MySQL ODBC 8.0 Unicode Driver};Server=127.0.0.1;Port=3306;DB=myemployees;UID=root;PWD=123;OPTION=3;"

Driver变量：值是必须要和数据源中添加的新数据源一致的，否则会提示找不到数据源。

187475569_7_20200407111400369_wm

Server变量：本地Mysql服务器，输入127.0.0.1,；远程服务器输入相应服务器IP地址。

Port变量：端口号

DB变量：数据库名字

UID变量：用户名

PWD变量：密码

▶▶▶执行sql语句：

通常我们使用ADO的Execute语句和Recordset对象执行SQL语句。将SQL查询结果和字段名写入表格指定区域 Sql = "SELECT 姓名,成绩 FROM [Sheet1$] WHERE 成绩>=80" 'Sql语句，查询Sheet1表成绩大于80……姓名和成绩的记录 Set rst = cnn.Execute(Sql) 'cnn.Execute()执行SQL语句，始终得到一个新的记录集rst For i = 0 To rst.Fields.Count - 1 '利用fields属性获取所有字段名，fields包含了当前记录有关的所有字段,fields.count得到字段的数量 '由于Fields.Count下标为0，又从0开始遍历，因此总数-1 Cells(1, i + 4) = rst.Fields(i).Name Next Range("d2").CopyFromRecordset rst '使用单元格对象的CopyFromRecordset方法将rst内容复制到D2单元格为左上角的单元格区域

187475569_8_20200407111400619_wm