在Excel中将图像从VBA UserForm插入到MySQL数据库

Dim conn As Object
Set conn = CreateObject("ADODB.Connection")
conn.ConnectionString = "DRIVER={MySQL ODBC 8.0 Unicode Driver};SERVER=服务器地址;DATABASE=数据库名;USER=用户名;PASSWORD=密码;OPTION=3;"
conn.Open

Dim fso As Object
Set fso = CreateObject("Scripting.FileSystemObject")

Dim fileDialog As Object
Set fileDialog = Application.FileDialog(3) ' msoFileDialogFilePicker
fileDialog.AllowMultiSelect = False

If fileDialog.Show = -1 Then
    Dim filePath As String
    filePath = fileDialog.SelectedItems(1)
    
    Dim fileStream As Object
    Set fileStream = fso.OpenTextFile(filePath, 1) ' ForReading
    
    Dim fileData As String
    fileData = fileStream.ReadAll
    
    fileStream.Close
    
    ' 将图像数据加载到图像框控件
    UserForm1.Image1.Picture = LoadPicture(filePath)
End If

Dim cmd As Object
Set cmd = CreateObject("ADODB.Command")
cmd.ActiveConnection = conn
cmd.CommandType = 1 ' adCmdText
cmd.CommandText = "INSERT INTO 表名 (图像字段) VALUES (?)"

Dim param As Object
Set param = cmd.CreateParameter("ImageParam", 205, 1, LenB(UserForm1.Image1.Picture), UserForm1.Image1.Picture)
cmd.Parameters.Append param

cmd.Execute

conn.Close
Set conn = Nothing