Excel VBA连接MySql 数据库获取数据

最新推荐文章于 2024-09-23 11:47:00 发布

转载最新推荐文章于 2024-09-23 11:47:00 发布 · 888 阅读

3 ·

CC 4.0 BY-SA版权

原文链接：http://www.cnblogs.com/SH170706/p/7714829.html

文章标签：

#数据库

本文介绍如何通过Excel VBA连接并操作MySQL数据库，包括配置VBA引用、安装MySQL ODBC驱动及示例代码。适用于Win7 64位与Office2010 32位环境。

　　编写Excel VBA工具，连接并操作Mysql 数据库。

系统环境：

OS：Win7 64位英文版

Office 2010 32位英文版

1、VBA连接MySql前的准备

Tools--->References..---->引用

勾选Microsoft ActiveX Data Objects 2.8 Librarys 和Microsoft ActiveX Data Objects Recordset 2.8 Librarys

2、安装Mysql ODBC连接服务

下载连接：https://dev.mysql.com/downloads/connector/odbc

注意：这里使用32位的版本

下载上图中Windows(x86,32-bit),Zip Archive版本，在测试中，使用64位的版本无法连接到Mysql

把下载上述文件拷贝放到资源管理器里，放到合适位置，解压，点击里面的install.bat批处理文件。

从“控制面板”--->“管理工具”---->ODBC,打开以后，从这个里面无法看到Mysql的驱动，实际上使用的是下面32位的ODBC驱动

C:\Windows\SysWOW64\文件夹下的odbcca32.exe

3.连接示例

Sub TestConnectTodb()
    Dim conn As ADODB.Connection
    Dim rs As ADODB.Recordset
    Set conn = New ADODB.Connection
    Set rs = New ADODB.Recordset
    conn.ConnectionString = "Driver={MySQL ODBC 5.3 Unicode Driver};Server=localhost;Port=3306;Database=db_hptms;Uid=root;Pwd=123456;OPTION=3;"
    conn.Open
    rs.Open "select fdEmpNo,fdEmpName from tbUser", conn
    With ThisWorkbook.Worksheets("MySqlData")
         .Visible = True
         .Range("a1:b1").Value = Array("EmpNo", "EmpName")
         .Range("A2").CopyFromRecordset rs
         .Activate
    End With
    rs.Close: Set rs = Nothing
    conn.Close: Set conn = Nothing
    MsgBox "处理完毕", vbOKOnly, "提示信息"
End Sub

上述示例经过测试，可以正常连接到Mysql数据库，这里注意使用的ODBC连接的版本是32位，在测试中，使用64位的，始终无法正常打开连接。

转载于:https://www.cnblogs.com/SH170706/p/7714829.html