RE:Imagen en Base de Datos
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)