Ver Mensaje Individual
  #2 (permalink)  
Antiguo 20/04/2008, 02:25
Avellaneda
Colaborador
 
Fecha de Ingreso: enero-2008
Ubicación: Unas veces aquí, otras veces allí
Mensajes: 1.482
Antigüedad: 16 años, 3 meses
Puntos: 37
Re: Copiar Imagen a una Carpeta

Hola. Lo normal es guardar el nombre del archivo imagen en la propia tabla y desde ahí mostrarla.

Primero, suponemos que tienes abierto un recordset con el nombre "rs" y la tabla tiene un campo llamado "Foto" que es donde se guarda el nombre del archivo imagen.

Para copiar la imagen desde C: a una carpeta que se encuentra en la ruta de nuestra aplicación y se llama Imagenes:

FileCopy "c:\LaImagen.jpg", App.Path & "\Imagenes\" & rs!Id & ".jpg"

Para guardar el nombre del archivo imagen en la Tabla:
Código:
rs!Foto.Value =  rs!Id & ".jpg"
rs.Update 
Para mostrar la imagen en un control Image:
Código:
Image1.Stretch = True
Image1.Picture = LoadPicture(App.Path & "\Imagenes\" & rs!Foto.Value) 
Nota que puse un control Image y no un PictureBox, pues el control Image tiene la propiedad Stretch que ajusta la imagen al tamaño del control.

Un saludo