Stocker un tableau d'octets dans MySQL Blob avec VBA

Question

Quelqu'un at-il du code VBA qui va stocker un tableau d'octets dans une colonne blob MySQL?

Answer 1

Voici du code. Nécessite une référence à la bibliothèque Microsoft Active Data Objects 2.x. Il utilise le fournisseur OLE DB pour MySQL (peut-être besoin d'installer cela sur la machine client).

Sub StoreBLOB(data() As Byte, key As Double) 
'stores the BLOB byte array into the row identified by the key 
'requires reference to Microsoft Active Data Objects 2.x Library 

On Error GoTo handler: 

    Dim con As New ADODB.Connection 
    Dim rs As New ADODB.Recordset 
    Dim conStr As String 
    Dim strSQL As String 

    'have it return only the record you want to store your blob 
    strSQL = strSQL & "SELECT * FROM YOURTABLE WHERE KEY = " & key 

    'setup connection 
    conStr = conStr & "Provider=MySQLProv;" 
    conStr = conStr & "Data Source=mydb;" 
    conStr = conStr & "User Id=myUsername;" 
    conStr = conStr & "Password=myPassword;" 

    con.ConnectionString = conStr 
    con.Open 

    rs.Open strSQL, con, adOpenDynamic, adLockOptimistic 

    If rs.RecordCount > 1 Then 
     Err.Raise 1001, "StoreBLOB", "Too many records returned from dataset. Check to make sure you have the right key value" 
    Else 
     Err.Raise 1002, "StoreBLOB", "No Records found that match the key" 
    End If 

    rs.Fields("BLOBFIELDNAME").Value = data 
    rs.Update 'store the contents to the database 

    rs.Close 
    con.Close 
    Set rs = Nothing 
    Set con = Nothing 

Exit Sub 
handler: 
    Err.Raise 1003, "StoreBLOB", "Unexpected Error in StoreBLOB. Check that server is running" 
End Sub 

Answer 2

En supposant que vous utilisez ADO pour accéder à mysql, il y a un KB article on the subject.