Sección de códigos , trucos y ejemplos para visual basic


191 - Ejemplo para guardar las rutas de imágenes en una bd de Access usando ADO

<Volver> - Anterior - Siguiente



 

Este ejemplo lo que hace es leer de un campo, en el cual se almacena la ruta de una imagen ( en realidad se almacena el nombre del archivo de imagen ) , para luego poder visualizarla en un PictureBox

 

Descargar Ejemplo

 

 

 

 

 


 

Por ejemplo, si el registro 25 tiene asociada una imagen, en un campo llamado Id_Imagen, se almacena también el número 25, y se copia en una carpeta ubicada en el App del proyecto, el archivo gráfico.

También , al cargar la imagen en el control Picture, la misma se adapta al control , dibujandola con el método PaintPicture a escala y en forma centrada, es decir si la imagen es mas grande que el tamaño del Picturebox, se redimensiona.

 

vista del formulario con los controles necesarios para el ejemplo

 

 

Para armar el ejemplo se necesitan los siguientes controles:

 

 

Nota: La cantidad de textBox depende de los campos que se quieran visualizar de la tabla.

Luego a cada TextBox, en la propiedad DataField, especificarle el nombre del campo al cual estará asociado, por ejemplo si en el txtField(0) queremos visualizar el campo Email, colocar en el DataField del textbox dicho nombre de campo

La tabla necesita:

1 - Un campo de tipo Autonumérico incrementable llamada ID

 

vista de la tabla en modo diseño

 

2 - También necesita otro campo, de tipo Texto, llamado Id_Imagen y en las opciones del campo, especificar: Permitir longitud cero, colocar " Si ", y e valor predeterminado delñ campo colocar una cadena vacia: ""

 

3 - Agregar la referencia a Microsft Activex Data Object para poder utilizar ADO

Por último, en el FormLoad, especificar lo siguiente:

 

Indicar el Path de la base de datos cuando se abre la conexión

cn.Open ....

 

Indicar el comando SQL para el recordset

rst.Open "Select * FROM Contacto", cn, adOpenStatic, adLockOptimistic

 

Indicar el Nombre del campo que tiene el ID de imagen

Field_Img = "ID_Imagen"

 

Nota: el ejemplo se puede optimizar bastante, y aunque mientras lo hice no surgieron errores, puede obviamente que los tenga.

 


 

A continuación sigue el código fuente para el formulario, y luego el código fuente para colocar en un módulo bas, que tiene la función que dibuja con PaintPicture el gráfico en el PictureBox.

 

 

Código fuente en un formulario

 


 

Código fuente en un Módulo bas:

 

Nota: en este enlace hay un ejemplo para poder almacenar y recuperar imágenes en una base de datos , pero en este caso utilizando el objeto Stream de Ado

 



Buscar en Recursos vb