MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

Obrigado

Administração do MaximoAccess

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

    [Resolvido]Exportar ou extrair imagens de campo ANEXO

    avatar
    lalarissa
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Feminino
    Localização : Brasil
    Mensagens : 3
    Registrado : 30/10/2012

    [Resolvido]Exportar ou extrair imagens de campo ANEXO Empty [Resolvido]Exportar ou extrair imagens de campo ANEXO

    Mensagem  lalarissa em 14/3/2014, 19:36

    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.
    Avelino Sampaio
    Avelino Sampaio
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3534
    Registrado : 04/04/2010

    [Resolvido]Exportar ou extrair imagens de campo ANEXO Empty Re: [Resolvido]Exportar ou extrair imagens de campo ANEXO

    Mensagem  Avelino Sampaio em 14/3/2014, 19:59

    avatar
    lalarissa
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Feminino
    Localização : Brasil
    Mensagens : 3
    Registrado : 30/10/2012

    [Resolvido]Exportar ou extrair imagens de campo ANEXO Empty Exportar anexos adaptando codigo

    Mensagem  lalarissa em 17/3/2014, 20:19

    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

    saulosa gosta desta mensagem

    avatar
    saulosa
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 53
    Registrado : 21/06/2016

    [Resolvido]Exportar ou extrair imagens de campo ANEXO Empty Re: [Resolvido]Exportar ou extrair imagens de campo ANEXO

    Mensagem  saulosa em 31/7/2020, 20:23

    alguem ajuda aqui
    DamascenoJr.
    DamascenoJr.
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2141
    Registrado : 22/11/2016

    [Resolvido]Exportar ou extrair imagens de campo ANEXO Empty Re: [Resolvido]Exportar ou extrair imagens de campo ANEXO

    Mensagem  DamascenoJr. em 1/8/2020, 17:54

    Viu a dica do Avelino?


    .................................................................................
    Ajude-se a ser ajudado, anexe seu projeto.
    Sempre tente entender o código,
    não somente copie e cole.
    Positive as mensagens que achar útil clicando no '+' no canto superior direito delas.

      Data/hora atual: 15/8/2020, 00:38