[Resolvido]Exportar ou extrair imagens de campo ANEXO

Boa tarde a todos...


Gostaria que alguém pudesse me ajudar ou indicar algum programa ou método para extrair imagens que estão em uma campo do tipo ANEXO. Na verdade, estamos tentando converter uma BD do Access migrando para MySQL e estamos tendo problemas somente com os ANEXOS. Já tentamos programas de exportação e extração do tipo BLOB e CLOB, mas nenhum funcionou até agora... Obrigada.

Boa tarde a todos... Eu encontrei esse codigo abaixo que me parece pronto, basta mudar o nome da tabela e do campo anexo que quero exportar, mas estou tendo problemas pra executa-lo Criei um formulário com um botão, e um modulo com este codigo, quando chamo o codigo apartir de um comando "executar codigo" no evento click() do botão, da erro e nada acontece. Como faço para executar isso? Obrigada.

Código:

Public Function SaveAttachmentsTest(strPath As String, Optional strPattern As String = "*.*") As Long
Dim dbs As DAO.Database
Dim rst As DAO.Recordset
Dim rsA As DAO.Recordset2
Dim rsB As String
Dim fld As DAO.Field2
Dim OrdID As DAO.Field2
Dim strFullPath As String

'Get the database, recordset, and attachment field
Set dbs = CurrentDb
Set rst = dbs.OpenRecordset("TABELA")
Set fld = rst("CAMPO_ANEXO")
Set OrdID = rst("ID")

'Navigate through the table
Do While Not rst.EOF

'Get the recordset for the Attachments field
Set rsA = fld.Value
rsB = OrdID.Value

'Save all attachments in the field
Do While Not rsA.EOF
If rsA("FileName") Like strPattern Then
'To Export the data, use the line below
strFullPath = strPath & "\" & rsA("FileName")

'Make sure the file does not exist and save
If Dir(strFullPath) = "" Then
rsA("FileData").SaveToFile strFullPath
End If

'Increment the number of files saved
SaveAttachmentsTest = SaveAttachmentsTest + 1
End If

'Next attachment
rsA.MoveNext
Loop
rsA.Close

'Next record
rst.MoveNext
Loop

rst.Close
dbs.Close

Set fld = Nothing
Set rsA = Nothing
Set rst = Nothing
Set dbs = Nothing
End Function

alguem ajuda aqui

Viu a dica do Avelino?