Joki
17 de Mayo del 2004

Quiero leer una imagen guardada en una tabla hecha en Access. Uso el siguiente procedimiento en un modulo .bas:
Public Sub LeerBinary(campoBinary As Field, unPicture As Image)
'Leer la imagen del campo de la base y asignarlo al Picture
Dim lngCompensaci贸n As Long
Dim lngTama帽oTotal As Long

'Se usa un fichero temporal para guardar la imagen
DataFile = FreeFile
Open "pictemp" For Binary Access Write As DataFile

lngTama帽oTotal = campoBinary.FieldSize
Do While lngCompensaci贸n < lngTama帽oTotal
Chunk() = campoBinary.GetChunk(lngCompensaci贸n, conChunkSize)
Put DataFile, , Chunk()
lngCompensaci贸n = lngCompensaci贸n + conChunkSize
Loop

Close DataFile
'Ahora se carga esa imagen en el control
unPicture.Picture = LoadPicture("pictemp")

'Ya no necesitamos el fichero, as铆 que borrarlo
On Local Error Resume Next
If Len(Dir$("pictemp")) Then
Kill "pictemp"
End If
Err = 0
End Sub

El control Image no quiero enlazarlo con la tabla. Pero esto me falla. Alguien podria decirme porque. Gracias