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

Private Sub btnSave_Click()
    Dim img As Object
    Set img = Me.Image1.Picture
    
    ' 保存图像到本地文件系统
    img.SaveAsPicture "C:\path\to\save\image.jpg"
End Sub

Private Function ImageToBinary(filePath As String) As Byte()
    Dim objStream As Object
    Set objStream = CreateObject("ADODB.Stream")
    
    With objStream
        .Type = 1 ' adTypeBinary
        .Open
        .LoadFromFile filePath
        ImageToBinary = .Read()
        .Close
    End With
End Function

Private Sub InsertImageToDB(binaryData As Byte())
    Dim conn As Object
    Set conn = CreateObject("ADODB.Connection")
    
    Dim sql As String
    sql = "INSERT INTO images (image_data) VALUES (?)"
    
    conn.Open "your_connection_string_here"
    Dim cmd As Object
    Set cmd = CreateObject("ADODB.Command")
    With cmd
        .ActiveConnection = conn
        .CommandText = sql
        .Parameters.Append .CreateParameter("param1", 204, 1, LenB(binaryData), binaryData)
        .Execute
    End With
    
    conn.Close
End Sub

Private Sub btnSave_Click()
    Dim imgPath As String
    imgPath = "C:\path\to\save\image.jpg"
    
    Me.Image1.Picture.SaveAsPicture imgPath
    
    Dim binaryData As Byte()
    binaryData = ImageToBinary(imgPath)
    
    InsertImageToDB binaryData
End Sub