【原】VBA连接Mysql数据库

■MySQL的环境配置

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

一、MySQL的环境配置

我的具体环境：

√Win7 32位系统

√Excel 2016 32bit

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

√Mysql ODBC连接器

√VC++ 2015 Redistributable（一个必须环境）

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

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

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

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

②添加Mysql数据源驱动

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

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

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

二、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 = Nothing
End Sub

代码主要分为三大部分：

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

■ADO建立对数据源的链接

■ADO执行SQL语言

▶▶▶关于引用ADO类库：

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

在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变量：值是必须要和数据源中添加的新数据源一致的，否则会提示找不到数据源。

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单元格为左上角的单元格区域