服务器之家 - 专业的服务器相关知识资讯网站
您的位置： 首页 数据库 mysql

ExcelVBA 之连接MySQL数据库

646人浏览   2023-10-23 14:53:55

SQL语句具有功能丰富、使用方便灵活、语言简洁易学等突出的优点，深受计算机工业界和计算机用户的欢迎,MySQL是最流行的数据库之一，工作中又经常用到Excel工作簿，而将两者结合起来使用，非常方便。

数据查询

一、我的文件数据如下图



查询得到的数据存放的工作表


MySQL数据库中的文件数据

二、VBA代码

Sub GetDatafrommysql()


'定义对象

Dim con As New ADODB.Connection

Dim rs As New ADODB.Recordset

Dim sql As String

Dim sh As Worksheet

Dim i As Integer


'建立数据库的连接

con.ConnectionString = "Driver={MySQL ODBC 8.0 Unicode Driver};Server=127.0.0.1;DB=corn;UID=wyj;PWD=wyj;OPTION=3;"

con.Open


sql = "select * from 大包装入库"

rs.Open sql, con, adOpenStatic, adLockOptimistic


'设置表头

Set sh = Sheets(2)

Cells.Clear

For i = 0 To rs.Fields.Count - 1

sh.Cells(1, i + 1) = rs.Fields(i).name

Next i


'将数据输出到工作表

sh.Range("A2").CopyFromRecordset rs


'关闭连接

rs.Close

con.Close

Set rs = Nothing

Set con = Nothing


End Sub


相关推荐