Insertar imagen

Geri
03 de Septiembre del 2004
A ver. Hago una consulta a una BD que contiene una imagen y la quiero mostrar en un formulario.
Lo que he hecho por intuición es poner un objeto 'Image' e intentar poner en él la imagen de la consulta. Pero me da un error.
Pongo el codigo que he hecho, pero si la solución es otra, no me importa cambiarlo. Gracias

Private Sub Command1_Click()
Dim consulta As Recordset

Set consulta = DB.OpenRecordset("select * from establiment;")

id.Caption = consulta.Fields(0)
nom.Caption = consulta.Fields(1)
tipus.Caption = consulta.Fields(2)
micro.Caption = consulta.Fields(3)
foto.Picture = consulta.Fields(4)
End Sub

VayaGente
03 de Septiembre del 2004
Ese es el problema de la gente... cuando tienen algun problema corren a pedir ayuda, lo cual esta muy bien, pero cuando encuentran solucion a su problema, se vuelven egoistas y se quedan ellos mismos con la forma de resolver el problema... y no se ponen a pensar que eso puede serle util a otras personas en algun momento determinada...

Compartan el mucho o poco conocimiento que posean no sean emvidiosos...

Vaya gente... y luego, cuando ya nadie les ayuda no se extranen porque....

Geri
03 de Septiembre del 2004
Ya lo he solucionado.