MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

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


4 participantes

    [Resolvido]Exportar ou extrair imagens de campo ANEXO

    avatar
    lalarissa
    Novato
    Novato


    Respeito às regras : 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 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 : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3900
    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 14/3/2014, 19:59

    Olá!

    Veja se este meu artigo ajuda:

    Transferir dados entre tabelas com campos dos tipos Anexo e Múltiplos Valores

    mais este:

    Acessando dados da Web - parte 3

    Sucesso!
    avatar
    lalarissa
    Novato
    Novato


    Respeito às regras : 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 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

    cabrito560 e saulosa gostam desta mensagem

    avatar
    saulosa
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  saulosa 31/7/2020, 20:23

    alguem ajuda aqui
    DamascenoJr.
    DamascenoJr.
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  DamascenoJr. 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.

    Conteúdo patrocinado


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

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 8/11/2024, 05:55