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


351 - Ado Stream - Almacenar y recuperar imágenes

<Volver> - Anterior - Siguiente



 

 

 

Contenido:

 

 

 

 


Ejemplo 1

Ejemplo para poder leer y grabar en un campo binario gráficos e imágenes mediante el objeto Stream de ADO

El siguiente código fuente tiene dos funciones. Una llamada " Leer_Imagen " y la otra " Guardar_Imagen "

La primera función tiene tres parámetros:

Leer_Imagen(Conexión, sql, Campo)

 

El primer parámetro es la Conexión Ado, el segundo el comando SQL y el tercero el nombre del campo de imagen

Por ejemplo para llamarla :

Leer_Imagen(cnn, "Select Foto From MiTabla Where IdCliente = 1458", "Foto")

 

Esta función retorna un objeto Picture, es decir que se puede asignar a un control PictureBox, image etc... para poder visualizar y recuperar la imagen. Por ejemplo para asignarla a un PictureBox seria de la siguiente forma

Set Picture1 = Leer_Imagen(Cn, ComandoSQL, CampoImagen)

 

 

La otra función "Guardar_Imagen" , que permite grabar la imagen en el campo, tiene cuatro parámetros que son los siguientes :

Guardar_Imagen(cn, Sql, Campo, Path_Imagen)

 

Esta es igual que la anterior función, pero tiene un parámetro mas al final para indicarla ruta del archivo que se almacenará

Y también la función ( a diferencia de la otra ) , esta retorna un boolean, es decir un valor True si la grabó correctamente y False en caso de error

 

Nota: en el siguiente enlace, hay otros dos ejemplos para poder almacenar imágenes en una base de datos , pero en este caso guardando el gráfico en una carpeta y luego leyendola desde el disco con LoadPicture . También permite imprimir mediante el datareport la ficha con los datos incluyendo la foto mediante un control rptImage

Imprimir ficha de cliente


 

 

Ejemplo

 

Formulario

vista del formulario para visualizar y almacenar el gráfico en la base de datos

 

Controles y referencia

 

  1. Agregar la referencia a Microsoft Activex data objects para poder usar ADO
  2. Añadir al proyecto un Módulo bas .
  3. Un control picture Box
  4. Dos CommandButton
  5. Un Text1 para indicar la cadena SQL
  6. Un Text2 para indicar el nombre del campo de imagen

 

Nota: en el FormLoad indicar la cadena de conexión a usar y el path de la base de datos

 

Código fuente en el módulo bas

 


 

Código fuente en el formulario

 


Ejemplo 2

Este otro ejemplo simple, es igual que el anterior, pero visualiza la tabla en un Microsoft Hierarchical FlexGrid.

Al hacer clic en un fila se lee de la base de datos la imagen con la función " Leer_Imagen ". Teniendo en cuenta el Id del registro seleccionado

Al hacer doble Clic sobre una fila del MsFlexGrid, se puede cambiar la imagen , indicando el path del archivo y el id del registro mediante unos InputBox

Formulario

 

Descargar

 


Recursos vb - Relacionados



Buscar en Recursos vb