hola de nuevo:
Sigo intentando visualizar la imagen de una base de datos con dao y no lo consigo, he probado el codigo que me paso anibal y me da error 481 en tiempo de ejecución, me dice que la imagen no es valida(y eso que he probado con varias imagenes y distintos formatos).
El error me da en la linea
Image1.Picture = LoadPicture(sBmp) y no consigo averiguar porque, si alguien me podria ayudar se lo agradeceria muchisimo, en serio porque no se como solucionarlo.
Private Sub CargaFoto()
Dim lLen As Long, sBmp As String
Dim aByte() As Byte
sBmp = "C:\temp.bmp"
With rs5
lLen = .Fields("Foto").FieldSize
ReDim aByte(lLen) As Byte
aByte = .Fields("Foto").GetChunk(0, lLen)
Open sBmp For Binary As #1
Put #1, , aByte
Close #1
End With
Image1.Picture = LoadPicture(sBmp)
End Sub
