|
|
#1 (permalink) |
![]() Fecha de Ingreso: abril-2008
Mensajes: 5
|
Copiar Imagen a una Carpeta
|
|
|
|
|
|
#2 (permalink) |
![]() Fecha de Ingreso: enero-2008
Ubicación: Madrid
Mensajes: 669
|
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:
Para mostrar la imagen en un control Image:rs!Foto.Value = rs!Id & ".jpg" rs.Update
Código:
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.Image1.Stretch = True Image1.Picture = LoadPicture(App.Path & "\Imagenes\" & rs!Foto.Value) Un saludo |
|
|
|
|
|
#3 (permalink) |
![]() Fecha de Ingreso: marzo-2005
Mensajes: 3
|
Re: Copiar Imagen a una Carpeta
hola, recomiendo que usen la api para copiar, porque muchas veces no funciona esa funcion... aca se las dejo
Declare Function CopyFile Lib "kernel32" Alias "CopyFileA" (ByVal lpExistingFileName As String, ByVal lpNewFileName As String, ByVal bFailIfExists As Long) As Long Ej: CopyFile RutaDesde, RutaHasta, (y eso es para verificar si existe y reemplazarlo o renombrarlo) saludos |
|
|
|
![]() |
| Herramientas | |
| Desplegado | |
|
|