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

5 participantes

    [Resolvido]Adicionar foto na tabela tendo o caminho, e fique no banco de dados

    fieldNome
    fieldNome
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 113
    Registrado : 16/04/2012

    [Resolvido]Adicionar foto na tabela tendo o caminho, e fique no banco de dados Empty Adicionar foto na tabela tendo o caminho, e fique no banco de dados

    Mensagem  fieldNome 6/10/2012, 23:06

    Sim, sei que armazenar em uma pasta e usar currentproject.path é mais eficiente, porém, o que necessito é realmente adicionar as fotos de forma rápida. Alguém sabe um código que faça isso?

    Tenho um campo da tabela "caminho" e já tenho o caminho de todas as fotos, porém, quero adicionar as fotos de todos os registros de uma só vez.

    Pode ser anexo ou OBJETO Ole.

    http://www.linhadecodigo.com.br/artigo/47/como-armazenar-imagens-no-banco-de-dados.aspx

    /\ Eu já ví esse link e aí é com VB.

    No meu cenário, só posso usar Access e VBA e não posso instalar nenhuma biblioteca, API, etc, só as ferramentas já vindas do próprio office.

    Resumindo:

    Tenho a tabela Automóveis.

    Tenho 50 automóveis e tenho um campo com seu caminho. Quero criar um campo com as fotos de forma rápida.


    bitabit
    bitabit
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 225
    Registrado : 14/07/2010

    [Resolvido]Adicionar foto na tabela tendo o caminho, e fique no banco de dados Empty Re: [Resolvido]Adicionar foto na tabela tendo o caminho, e fique no banco de dados

    Mensagem  bitabit 7/10/2012, 23:51

    veja este post, penso que tem ai a solução.
    qualquer ajuda que precise, apite!


    .................................................................................
    Se vires um homem com fome, não lhe dês um peixe, ensina-o a pescar.
    Provérbio Chinês
    Cláudio Más
    Cláudio Más
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1306
    Registrado : 21/01/2012

    [Resolvido]Adicionar foto na tabela tendo o caminho, e fique no banco de dados Empty Re: [Resolvido]Adicionar foto na tabela tendo o caminho, e fique no banco de dados

    Mensagem  Cláudio Más 8/10/2012, 15:01

    Utilizando o artigo do "linha de código", agora só precisa adaptar os nomes de campos e da tabela:
    Código:
    Dim bytBLOB() As Byte
    Dim strImagePath As String
    Dim intNum As Integer

    Dim rs As Recordset
    Set rs = CurrentDb.OpenRecordset("ImageLibrary")

    Do While Not rs.EOF
        'Salve o registro
        strImagePath = Trim$(rs!ImagePath)
       
        With rs
            '.Fields("ImagePath") = strImagePath
            If (!ImagePath <> "") Then
                .Edit
                'Abra o arquivo de imagens
                intNum = FreeFile
                Open strImagePath For Binary As #intNum
                ReDim bytBLOB(FileLen(strImagePath))  'Leia os dados e feche o arquivo
                Get #intNum, , bytBLOB
                Close #1
       
                'Armazene o BLOB
                '.Fields("ImagePath") = ""
                .Fields("ImageBLOB").AppendChunk bytBLOB
                .Update
            End If
           
        End With
       
        rs.MoveNext
    Loop
    bitabit
    bitabit
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 225
    Registrado : 14/07/2010

    [Resolvido]Adicionar foto na tabela tendo o caminho, e fique no banco de dados Empty Re: [Resolvido]Adicionar foto na tabela tendo o caminho, e fique no banco de dados

    Mensagem  bitabit 8/10/2012, 22:45

    oops, só agora é que reparei que nao tinha colocado o link do post.

    aqui vai:
    http://maximoaccess.forumeiros.com/t5127-resolvidoproblema-com-localizacao-de-fotos

    1 abraço


    .................................................................................
    Se vires um homem com fome, não lhe dês um peixe, ensina-o a pescar.
    Provérbio Chinês
    fieldNome
    fieldNome
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 113
    Registrado : 16/04/2012

    [Resolvido]Adicionar foto na tabela tendo o caminho, e fique no banco de dados Empty Re: [Resolvido]Adicionar foto na tabela tendo o caminho, e fique no banco de dados

    Mensagem  fieldNome 9/10/2012, 00:21

    Cláudio Más, não conseguí adaptar meu código, poderia me ajudar?

    Eis o arquivo.

    Obrigado, bilabit, mas observo que o problema do amigo no tópico é sobre o currentproject.path.

    Cláudio Más
    Cláudio Más
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1306
    Registrado : 21/01/2012

    [Resolvido]Adicionar foto na tabela tendo o caminho, e fique no banco de dados Empty Re: [Resolvido]Adicionar foto na tabela tendo o caminho, e fique no banco de dados

    Mensagem  Cláudio Más 9/10/2012, 00:45

    Só pra confirmar, sua tabela tem um campo chamado "Caminho", mas os dados que vc inseriu de exemplo só tem o nome do arquivo. Será utilizado o caminho completo da imagem, certo? Por exemplo: "C:\Fotos\V1995.bmp".
    fieldNome
    fieldNome
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 113
    Registrado : 16/04/2012

    [Resolvido]Adicionar foto na tabela tendo o caminho, e fique no banco de dados Empty Re: [Resolvido]Adicionar foto na tabela tendo o caminho, e fique no banco de dados

    Mensagem  fieldNome 9/10/2012, 01:21

    No caso, CurrentProject.Path & "\Fotos\". Obrigado.
    Cláudio Más
    Cláudio Más
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1306
    Registrado : 21/01/2012

    [Resolvido]Adicionar foto na tabela tendo o caminho, e fique no banco de dados Empty Re: [Resolvido]Adicionar foto na tabela tendo o caminho, e fique no banco de dados

    Mensagem  Cláudio Más 9/10/2012, 01:33

    No arquivo em anexo, clique no botão em "Formulário1" e as imagens serão inseridas no campo "Foto" de seus respectivos registros.
    Anexos
    [Resolvido]Adicionar foto na tabela tendo o caminho, e fique no banco de dados AttachmentBD.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (24 Kb) Baixado 62 vez(es)
    fieldNome
    fieldNome
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 113
    Registrado : 16/04/2012

    [Resolvido]Adicionar foto na tabela tendo o caminho, e fique no banco de dados Empty Re: [Resolvido]Adicionar foto na tabela tendo o caminho, e fique no banco de dados

    Mensagem  fieldNome 9/10/2012, 01:52

    Muito obrigado, Cláudio Más. Mas e como vaço pra exibir no formulário a foto? abs
    Cláudio Más
    Cláudio Más
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1306
    Registrado : 21/01/2012

    [Resolvido]Adicionar foto na tabela tendo o caminho, e fique no banco de dados Empty Re: [Resolvido]Adicionar foto na tabela tendo o caminho, e fique no banco de dados

    Mensagem  Cláudio Más 9/10/2012, 15:16

    Crie um formulário sobre a tabela Carros, deixe o campo Foto invisível e insira um controle imagem com o nome de imgFoto.

    No evento No atual do formulário, use o código abaixo:

    Código:
    Dim strPathAndFile As String

    If Not IsNull(Me("Foto")) Then
        strPathAndFile = CurrentProject.Path & "\Fotos\" & Trim$(Me("Caminho"))
        Me![imgFoto].Picture = strPathAndFile
    End If
    fieldNome
    fieldNome
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 113
    Registrado : 16/04/2012

    [Resolvido]Adicionar foto na tabela tendo o caminho, e fique no banco de dados Empty Re: [Resolvido]Adicionar foto na tabela tendo o caminho, e fique no banco de dados

    Mensagem  fieldNome 9/10/2012, 16:02

    Obrigado, Cláudio.

    Mas mesmo assim ficou em branco, tem como disponibilizar o arquivo que deu certo no seu?

    Cláudio Más
    Cláudio Más
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1306
    Registrado : 21/01/2012

    [Resolvido]Adicionar foto na tabela tendo o caminho, e fique no banco de dados Empty Re: [Resolvido]Adicionar foto na tabela tendo o caminho, e fique no banco de dados

    Mensagem  Cláudio Más 9/10/2012, 16:45

    Ok
    Anexos
    [Resolvido]Adicionar foto na tabela tendo o caminho, e fique no banco de dados AttachmentBD.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (402 Kb) Baixado 49 vez(es)
    Silvio
    Silvio
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4966
    Registrado : 20/04/2011

    [Resolvido]Adicionar foto na tabela tendo o caminho, e fique no banco de dados Empty Re: [Resolvido]Adicionar foto na tabela tendo o caminho, e fique no banco de dados

    Mensagem  Silvio 9/10/2012, 17:24

    Boa tarde.....não querendo interferir na resolução do problema...mas quase que interferindo.

    De uma olhada nesse LINK, nele a um cadastro de imagens. E 4 sub-formulários agrupados.

    Ele está aberto para estudos.

    Bons estudos.

    Abraços,

    Silvio !


    .................................................................................
    Caso tenha resolvido a tua duvida, coloque o tópico como resolvido.
    www.maximoaccess.com/t860-resolucao-de-topicos

    "Quase tudo é possível quando se tem determinação e força de vontade. Não desista tão rápido."
    fieldNome
    fieldNome
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 113
    Registrado : 16/04/2012

    [Resolvido]Adicionar foto na tabela tendo o caminho, e fique no banco de dados Empty Re: [Resolvido]Adicionar foto na tabela tendo o caminho, e fique no banco de dados

    Mensagem  fieldNome 9/10/2012, 19:40

    Obrigado, Sílvio. Ao chegar em casa, estarei vendo o seu link.

    Cláudio Más, obrigado, mas já que eu tinha armazenado os dados na tabela, não quero que precise ter os dados da imagem na mesma pasta, etc, até porque já está no BD.

    Obrigado
    Cláudio Más
    Cláudio Más
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1306
    Registrado : 21/01/2012

    [Resolvido]Adicionar foto na tabela tendo o caminho, e fique no banco de dados Empty Re: [Resolvido]Adicionar foto na tabela tendo o caminho, e fique no banco de dados

    Mensagem  Cláudio Más 10/10/2012, 01:56

    Tem razão, sorry...
    Anexos
    [Resolvido]Adicionar foto na tabela tendo o caminho, e fique no banco de dados AttachmentBD.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (406 Kb) Baixado 75 vez(es)

    Leosbras gosta desta mensagem

    fieldNome
    fieldNome
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 113
    Registrado : 16/04/2012

    [Resolvido]Adicionar foto na tabela tendo o caminho, e fique no banco de dados Empty Re: [Resolvido]Adicionar foto na tabela tendo o caminho, e fique no banco de dados

    Mensagem  fieldNome 10/10/2012, 03:06

    Muito obrigadooooooo, Cláudio Más.
    Cláudio Más
    Cláudio Más
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1306
    Registrado : 21/01/2012

    [Resolvido]Adicionar foto na tabela tendo o caminho, e fique no banco de dados Empty Re: [Resolvido]Adicionar foto na tabela tendo o caminho, e fique no banco de dados

    Mensagem  Cláudio Más 12/10/2012, 16:01

    De nada, disponha
    avatar
    Leosbras
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 16
    Registrado : 20/01/2021

    [Resolvido]Adicionar foto na tabela tendo o caminho, e fique no banco de dados Empty Re: [Resolvido]Adicionar foto na tabela tendo o caminho, e fique no banco de dados

    Mensagem  Leosbras 8/11/2022, 17:18

    Boa tarde
    obrigado pelo exemplo
    uma questão:
    também funciona com jpg, png ou tem que ser mesmo bmp ?


      Data/hora atual: 5/12/2022, 02:36