Visual Basic - visualizar una imagen de una b.d

Life is soft - evento anual de software empresarial
 
Vista:

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
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
sin imagen de perfil

RE:visualizar una imagen de una b.d

Publicado por Edwin (303 intervenciones) el 31/07/2007 18:24:34
Hace mucho me baje ejemplos sobre este tema, en DAO y en ADO, y en DAO me daba el error porque al parecer la imagen era muy pesada.
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