ExcelVBA 之连接MySQL数据库

咔片PPT · AI自动生成演示文稿，模板丰富、排版精美讯飞智文 · 一键生成PPT和Word，高效应对学习与办公

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