2 VBA链接mysql数据库步骤和代码示例

连接前的准备工作

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

             01 安装版本选择电脑系统和操作系统位数

             02 我的是windows  64位： 安装 ”Windows (x86, 64-bit), MSI Installer

3 安装和配置详解：

（控制面板-【系统安全】-管理工具-数据源）

注意安装要对，详细步骤见链接：https://blog.csdn.net/cn130404/article/details/74370377
 

4 案例 

Option Explicit
Sub TestconnecTODB()
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 8.0 Unicode Driver};Server=localhost;DB=ninthgroup;UID=root;PWD=root;OPTION=3;"
conn.Open
rs.Open "select * from `新天网`", conn
    Range("c5:d5").Value = Array("序号", "军团")
    Range("A9").CopyFromRecordset rs
   
    rs.Close: Set rs = Nothing
    conn.Close: Set conn = Nothing
End Sub