• Revista PROGRAMAR: Já está disponível a edição #53 da revista programar. Faz já o download aqui!

Ridelight

[VB6] Armazenar imagens na base de dados

2 mensagens neste tópico

Funções que armazenam e lêem as imagens:

Public Sub GetPicture(f As Field, pic As Control)
Dim x() As Byte
Dim ff As Integer
Dim strArqTemp As String
strArqTemp = "c:\img.jpg"
ff = FreeFile
Open strArqTemp For Binary Access Write As ff
x() = f.GetChunk(0, f.FieldSize)
Put ff, , x()
Close ff
pic.Picture = LoadPicture(strArqTemp)
Kill strArqTemp
End Sub

Public Sub LetPicture(f As Field, pic As Control)
Dim x() As Byte
Dim n As Long
Dim ff As Integer
Dim strArqTemp As String
ff = FreeFile
strArqTemp = "c:\img.jpg"
SavePicture pic.Picture, strArqTemp
Open strArqTemp For Binary Access Read As ff
n = LOF(ff)
If n Then
ReDim x(n)
Get ff, , x()
f.AppendChunk x()
Close ff
End If
Kill strArqTemp
End Sub

Primeiro têm que armazenar a imagem na base de dados num formato reconhecido:

rec.AddNew
LetPicture rec("Imagem"), Picture1
'rec("OutroCampo") = outrovalor...
rec.Update

Para a leitura:

GetPicture rec("Imagem"), Picture1

onde rec("Imagem") é o recordset que contém a imagem.

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

nao me pode mandar isso com coadigo aberto ja em formato visual basic

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Crie uma conta ou ligue-se para comentar

Só membros podem comentar

Criar nova conta

Registe para ter uma conta na nossa comunidade. É fácil!


Registar nova conta

Entra

Já tem conta? Inicie sessão aqui.


Entrar Agora