Visual Basic - Imagen en Base de Datos

Life is soft - evento anual de software empresarial
 
Vista:

Imagen en Base de Datos

Publicado por Froy (185 intervenciones) el 02/10/2002 06:13:19
Como puedo guardar una imagen(foto) en la base de datos... tengo VB6 y Access XP, es urgente.... ademas como son las sentencias para hacer un llamdao hacia la imgen y presentarla en pantalla junto con todo el formulario... gracias de antemano.. di tuvieres un ejemplo que me abriera mas el panorama mas gracias te dare... Que Dios te acompañe!!! bye
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Imagen en Base de Datos

Publicado por Alvaro Marín (574 intervenciones) el 02/10/2002 12:54:08
Estimado amigo:
Visita www.ambsoftware.com y busca por la palabra "imagen".
Verás un ejemplo que te muestra cómo hacerlo.
Un saludo y suerte
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Imagen en Base de Datos

Publicado por -=@SEBA@=- (5 intervenciones) el 03/10/2002 01:38:45
creo que lo que necesitas es esto, espero que te sirva:

Public Sub GetPicture(f As Field, pic As Image)
'**Trae una imagen desde la Base de Datos
Dim x() As Byte
Dim ff As Integer

ff = FreeFile
Open "pic" For Binary Access Write As ff

x() = f.GetChunk(0, f.FieldSize)
Put ff, , x()

Close ff
pic = LoadPicture("pic")
Kill "pic"
Err = 0
End Sub

Public Sub LetPicture(f As Field, pic As Image)
'**Guarda una imagen en la Base de Datos
Dim x() As Byte
Dim n As Long
Dim ff As Integer

SavePicture pic.Picture, "pic"

ff = FreeFile
Open "pic" 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 "pic"
Err = 0
End Sub

Como se utiliza esto? sencillo...
Supongamos que tenes un control Foto del tipo Image, entonces:
Cuando quieras guardar una imagen en la base de datos: Call LetPicture(rs!foto, Foto)
Cuando quieras cargar una imagen desde la base de datos: Call GetPicture(rs!foto, Foto)
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar