22/11/2007, 07:08
|
 | | | Fecha de Ingreso: marzo-2007
Mensajes: 307
Antigüedad: 18 años, 8 meses Puntos: 17 | |
| Re: Ayudita con fotos y base de datos
o puede ser asi...
on error resume next
Image1.Picture = LoadPicture(base_datos.rsConsulta2.Fields(4))
if err.number <>0 then
image1.picture=loadpicture("c:\sinfoto.jpg")
endif
donde on error resume next, captura los errores del programa y se salta a la siguiente linea, generando un codigo de error
err.number<>0 , verifico que el programa no tenga problemas de ejecucion, me explico, si error.number=0 entonces el programa no tiene errores y en este caso cargo la foto sin problemas, si es distinto a cero, es porque por alguna razon no cargo la foto, entonces carga sinfoto.jpg, se entiende? |