如何在Excel中通过VBA UserForm将图片插入MySQL数据库

1. 调整MySQL表字段类型 #

image_event字段不能使用字符串类型存储图片，需要先修改为二进制存储类型，推荐使用MEDIUMBLOB（最大支持16MB存储，可覆盖绝大多数日常图片场景），如有更大文件存储需求可更换为LONGBLOB。
字段修改参考SQL：

ALTER TABLE event MODIFY COLUMN image_event MEDIUMBLOB;

2. 修改VBA实现逻辑 #

原有代码缺少图片转二进制、参数化插入的核心逻辑，修改后的完整代码如下：

Dim ImageLocation As String
' 选择本地图片
With Application.FileDialog(msoFileDialogOpen)
    .Filters.Clear
    .Filters.Add "图片文件", "*.jpg;*.jpeg;*.png;*.bmp"
    If .Show = -1 Then
        ImageLocation = .SelectedItems(1)
        Image1.Picture = LoadPicture(ImageLocation)
    Else
        Exit Sub ' 用户取消选择则直接退出
    End If
End With

' 将图片读取为二进制流
Dim imgStream As ADODB.Stream
Set imgStream = New ADODB.Stream
With imgStream
    .Type = adTypeBinary ' 指定为二进制类型
    .Open
    .LoadFromFile ImageLocation
End With

' 连接数据库
Dim con As ADODB.Connection
Set con = New ADODB.Connection
con.ConnectionString = "DRIVER={MySQL ODBC 8.0 Unicode Driver};SERVER=localhost;DATABASE=db;USER=root;PASSWORD=;"
con.Open

' 参数化插入二进制数据（避免直接拼接SQL导致的转义错误和注入风险）
Dim cmd As ADODB.Command
Set cmd = New ADODB.Command
With cmd
    .ActiveConnection = con
    .CommandText = "insert into event(image_event) value (?)"
    .Parameters.Append .CreateParameter(, adLongVarBinary, adParamInput, imgStream.Size, imgStream.Read)
    .Execute
End With

' 释放资源
imgStream.Close
Set imgStream = Nothing
con.Close
Set con = Nothing

3. 注意事项 #

• 操作前需先在VBA编辑器的「工具-引用」中勾选Microsoft ActiveX Data Objects x.x Library，版本选择设备上已有的最高版本即可，否则ADODB.Stream和参数对象会触发报错
• 禁止直接将二进制内容拼接进SQL字符串，必须使用参数化查询，否则会出现转义错误导致插入失败
• 如果上传图片超过16MB，除了更换字段类型为LONGBLOB，还需要调整MySQL配置项max_allowed_packet的数值大于上传文件大小，否则会被服务端拦截

内容的提问来源于stack exchange，提问作者Akim