Mostrar imagenes desde acces
Publicado por vibet (25 intervenciones) el 12/01/2005 01:14:16
Muy buenas me gustaría saber como puedo mostrar una imagen en un control picture desde acces.el código que estoy utilizando es el siguiente:
Private Sub Form_Load()
sbase = "c:\visualBasic\compartido\asidep.mdb"
Set db = OpenDatabase(sbase)
Set Rst = db.OpenRecordset("SELECT CLIENTES.FOTO FROM CLIENTES")
ruta = "c:/visualBasic/acreditaciones/imgs" & "/" & Rst!FOTO
Picture1.Picture = LoadPicture(ruta)
CargarIni
MostrarRegistro
me hariais un gran favor, muchas gracias
End Sub
Private Sub Form_Load()
sbase = "c:\visualBasic\compartido\asidep.mdb"
Set db = OpenDatabase(sbase)
Set Rst = db.OpenRecordset("SELECT CLIENTES.FOTO FROM CLIENTES")
ruta = "c:/visualBasic/acreditaciones/imgs" & "/" & Rst!FOTO
Picture1.Picture = LoadPicture(ruta)
CargarIni
MostrarRegistro
me hariais un gran favor, muchas gracias
End Sub
Valora esta pregunta


0