21/11/2007, 13:23
|
 | | | Fecha de Ingreso: agosto-2006
Mensajes: 381
Antigüedad: 17 años, 9 meses Puntos: 2 | |
| Re: Ayudita con fotos y base de datos
existe una funcion que se llama dir revisala por ejemplo asi
RutaDefecto = "c:\sinfoto.jpg"
rutaImagen = mirecordset("foto")
if trim(rutaImagen)="" then RutaImagen = RutaDefecto 'Revisando que no venga en blanco
if dir(RutaImagen,vbAchive) = "" then RutaImagen = RutaDefecto 'Revisando si Existe el Archivo si no se le asigna el por defecto
if dir(RutaImagen,vbAchive) = "" then Image1.Picture = RutaImagen 'Si existe el archivo, tanto el que viene en el campo o el por defecto se carga la imagen |