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

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.

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

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

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

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.

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".

No caso, CurrentProject.Path & "\Fotos\". Obrigado.

No arquivo em anexo, clique no botão em "Formulário1" e as imagens serão inseridas no campo "Foto" de seus respectivos registros.

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

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

Obrigado, Cláudio.

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

Ok

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 !

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

Tem razão, sorry...

Muito obrigadooooooo, Cláudio Más.

De nada, disponha

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