visualizar una imagen de una b.d
Publicado por iratxe (5 intervenciones) el 30/07/2007 13:08:14
Hola:
Estoy intentando visualizar una imagen tipo ole de una base de datos access, el programa lo estoy haciendo con visual basic 6.0 y dao.
Me esta dando Error 481 en tiempo de ejecución, La imagen no es valida en esta linea:
Image1.Picture = LoadPicture(sBmp)
Alguien sabe porque????????? muchisimas gracias.
El codigo que tengo escrito es:
Private Sub Form_Load()
Dim i As Integer
' conectamos a la BD y abrimos el recordset
'Set db = OpenDatabase(App.Path & "\MisFotos.mdb")
Set rs5 = DB.OpenRecordset("SELECT * FROM cd4")
' cargamos el combo con el campo "Nombre"
Do Until rs5.EOF
Combo1.AddItem rs5("Tema")
rs5.MoveNext
Loop
Image1.Stretch = True
End Sub
Private Sub Combo1_Click()
' seleccionamos el campo "Foto" del nombre seleccionado
Set rs5 = DB.OpenRecordset("SELECT Foto FROM cd4 WHERE Tema ='" & Combo1.Text & "'")
CargaFoto
End Sub
Private Sub CargaFoto()
Dim lLen As Long, sBmp As String
Dim aByte() As Byte
' vamos a crear un archivo temporal en el directorio de la aplicación
sBmp = "C:\temp.JPEG"
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
Private Sub Form_Unload(Cancel As Integer)
' eliminamos el archivo temporal
Kill "C:\temp.JPEG"
End Sub
Estoy intentando visualizar una imagen tipo ole de una base de datos access, el programa lo estoy haciendo con visual basic 6.0 y dao.
Me esta dando Error 481 en tiempo de ejecución, La imagen no es valida en esta linea:
Image1.Picture = LoadPicture(sBmp)
Alguien sabe porque????????? muchisimas gracias.
El codigo que tengo escrito es:
Private Sub Form_Load()
Dim i As Integer
' conectamos a la BD y abrimos el recordset
'Set db = OpenDatabase(App.Path & "\MisFotos.mdb")
Set rs5 = DB.OpenRecordset("SELECT * FROM cd4")
' cargamos el combo con el campo "Nombre"
Do Until rs5.EOF
Combo1.AddItem rs5("Tema")
rs5.MoveNext
Loop
Image1.Stretch = True
End Sub
Private Sub Combo1_Click()
' seleccionamos el campo "Foto" del nombre seleccionado
Set rs5 = DB.OpenRecordset("SELECT Foto FROM cd4 WHERE Tema ='" & Combo1.Text & "'")
CargaFoto
End Sub
Private Sub CargaFoto()
Dim lLen As Long, sBmp As String
Dim aByte() As Byte
' vamos a crear un archivo temporal en el directorio de la aplicación
sBmp = "C:\temp.JPEG"
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
Private Sub Form_Unload(Cancel As Integer)
' eliminamos el archivo temporal
Kill "C:\temp.JPEG"
End Sub
Valora esta pregunta


0