CARREGAR FOTO DE BANCO ACCESS

DANLEONHART 10/01/2011 15:18:02
#361761
Pessoal...
Tou querendo carregar uma imagem que está armazenada em BD Access...
Tá tudo configurado... o Type da coluna foto está como [Ô]Objeto OLE[Ô], até onde sei, que o faz ficar [Ô]Binário[Ô].

Tou usando este script para carregar:
 
Private Sub Carregar()
Dim USR As String
USR = InputBox([Ô]Digite o Nome do Usuário que deseja carregar as informações.[Ô])
If USR <> Empty Then
abb
Set rs = New ADODB.Recordset
rs.CursorLocation = adUseClient
rs.Open [Ô]SELECT * FROM Table01 where Nome=[ô][Ô] & USR & [Ô][ô][Ô], con, adOpenKeyset, adLockReadOnly
strFoto = rs([Ô]Foto[Ô]).GetChunk(rs([Ô]Foto[Ô]).ActualSize)
txt1.Text = rs([Ô]Nome[Ô])
txt2.Text = rs([Ô]Cidade[Ô])
ima1.Picture = LoadPicture(strFoto)
txt1.SetFocus
End If
End Sub


Tá apresentando erro [ô]53[ô] (File not Found) e aponta para a linha [Ô][txt-color=#e80000]ima1.Picture = LoadPicture(strFoto)[/txt-color][Ô]

Alguém sabe o que pode ser ?
MARCOSLING 10/01/2011 16:05:37
#361768
a variável strFoto retorna o quê?
DANLEONHART 10/01/2011 16:10:06
#361770
Bem...
está retornando o número binário da foto... já que no BD ela está assim.
ou seja, a conversão que o GetChunk é para fazer de binário para imagem, não está sendo feita...
MARCOSLING 10/01/2011 16:46:35
#361774
vc tem que salvar a imagem em disco

o metodo loadpicture requer no parâmetro o caminho fisico do arquivo
RODRIGOFERRO 10/01/2011 17:17:39
#361775 Resposta escolhida
Segue exemplo aqui do VBMANIA...

VISUALIZADOR DE IMAGEM

Abraços
DANLEONHART 11/01/2011 17:55:56
#361916
@ ZEROCAL
Muito bom ! mas muito complexo...
estou a estudá-lo.
Tópico encerrado , respostas não são mais permitidas
Voltar