【VBA + MySQL】从Access将信息insert到MySQL

Allan_lam

已于 2022-07-06 14:46:25 修改

阅读量417

点赞数

CC 4.0 BY-SA版权

分类专栏： MySQL access Ado 文章标签： mysql 数据库 database

于 2022-05-26 17:57:59 首次发布

本文链接：https://blog.csdn.net/Allan_lam/article/details/124988431

MySQL 同时被 3 个专栏收录

6 篇文章

订阅专栏

access

5 篇文章

订阅专栏

Ado

5 篇文章

订阅专栏

本文介绍如何使用MS Access通过VBA代码连接MySQL数据库，并执行数据插入操作。具体步骤包括设置ADO引用、定义连接字符串、执行SQL命令及清理资源。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

MS Access, MySql, Ado

一. Access连接到MySQL：

在本机状态下，用mysql（8.0）做后台，用Access（2019）做前端`
并在VBA界面中，点『运行』-『引用』-microsoft activex data objects 6.1 library，做好ADO的引用

连接MySQL的准备

Option Compare Database
Option Explicit

	Const MYDRIVER = "Driver={MySQL ODBC 8.0 Unicode Driver};"      '驱动程序
	Const MYSERVER = "Server=127.0.0.1;"                            '服务器
	Const MYPORT = "Port=3306;"                                     '端口
	Const MYDATABASE = "Database=abc;"                              'MySQL数据库名称
	Const MYUSER = "User=root;"                                     '用户名
	Const MYPASS = "PWD=123456789abcd;"                             'Mysql密码
	Public constr As String

ADO的定义

在Option Compare Database下

    Public cn As New ADODB.Connection                              
    Public rs As New ADODB.Recordset

组装连接MySQL的准备

	constr = MYDRIVER & MYSERVER & MYPORT & MYDATABASE & MYUSER & MYPASS
	cn.ConnectionString = constr
	cn.Open

二、insert

Dim cm As New ADODB.Command 
                cm.ActiveConnection = cn
                cm.CommandText = "INSERT INTO mesa_abc ( 工号, 姓名, 地区, 项目, 职级, 学历, 入职日期, 离职日期  ) " & _
                                 "SELECT b.工号, b.姓名, b.地区, b.项目, b.职级, b.学历, b.入职日期, b.离职日期 " & _
                                 "FROM mesa_abc as a RIGHT JOIN mesa_abc_临时 as b ON (a.姓名 = b.姓名) AND (a.地区 = b.地区) " & _
                                 "WHERE a.姓名 is null AND a.入职日期 is null "
                                   
                cm.Execute

三、清除内存

cn.Close
Set rs = Nothing
Set cn = Nothing

四、完整代码

Option Compare Database
Option Explicit

    	Const MYDRIVER = "Driver={MySQL ODBC 8.0 Unicode Driver};"      '驱动程序
    	Const MYSERVER = "Server=127.0.0.1;"                            '服务器
    	Const MYPORT = "Port=3306;"                                     '端口
    	Const MYDATABASE = "Database=abc;"                              'MySQL数据库名称
    	Const MYUSER = "User=root;"                                     '用户名
    	Const MYPASS = "PWD=123456789abcd;"                             'Mysql密码
    	Public constr As String
    	
    	Public cn As New ADODB.Connection                              
        Public rs As New ADODB.Recordset

Private Sub Command0_Click()
	constr = MYDRIVER & MYSERVER & MYPORT & MYDATABASE & MYUSER & MYPASS
	cn.ConnectionString = constr
	cn.Open
	
	Dim cm As New ADODB.Command 
	cm.ActiveConnection = cn
	cm.CommandText = "INSERT INTO mesa_abc ( 工号, 姓名, 地区, 项目, 职级, 学历, 入职日期, 离职日期  ) " & _
                                 	"SELECT b.工号, b.姓名, b.地区, b.项目, b.职级, b.学历, b.入职日期, b.离职日期 " & _
                                 	"FROM mesa_abc as a RIGHT JOIN mesa_abc_临时 as b ON (a.姓名 = b.姓名) AND (a.地区 = b.地区) " & _
                                 	"WHERE a.姓名 is null AND a.入职日期 is null "
                                   
	cm.Execute
		
	cn.Close
	Set rs = Nothing
	Set cn = Nothing 
end sub