Visual Basic - Mostrar imagenes desde acces

Life is soft - evento anual de software empresarial
 
Vista:

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
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

RE:Mostrar imagenes desde acces

Publicado por Terminator (15 intervenciones) el 12/01/2005 07:05:34
CLIENTES.FOTO es un campo de texto no? con el nombre del archivo, quiero decir.
o es un objeto OLE dentro de Access?
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

RE:Mostrar imagenes desde acces

Publicado por vibet (25 intervenciones) el 12/01/2005 18:28:06
Muchas gracias , era un objeto ole, ya lo solucioné anoche, gracias por tu ayuda. Ahora el problema que me surge es exportar esa imagen a excel para poder imprimirla, tiene que ser a excel porque tengo toda la ficha de cliente ya pasada todo por medio de active cell....
tengo algunas ideas pero si supieras alguna manera te lo agradecería.
un saludo y gracias
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

RE:Mostrar imagenes desde acces

Publicado por miguel (1042 intervenciones) el 12/01/2005 17:00:48
Cambia el signo "/" por "\" y listo:

ruta = "c:\visualBasic\acreditaciones\imgs" & "\" & Rst!FOTO
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

RE:Mostrar imagenes desde acces

Publicado por vibet (25 intervenciones) el 12/01/2005 19:38:55
gracias! al final lo solucioné así:
Private Sub mostrarimagen()

sbase = "c:\visualBasic\compartido\asidep.mdb"
Set db = OpenDatabase(sbase)
Set Rst = db.OpenRecordset("SELECT * FROM CLIENTES where codigo = " & frmClienPrinci.grdClientes.TextMatrix(frmClienPrinci.grdClientes.Row, 0) & " ")
lblCodigocli.Caption = Rst!codigo
LeerBinary Rst!FOTO, Picture1
End Sub
muchas gracias de todas formas
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