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

158 - Leer y guardar imagenes en un campo de tipo OLE

En esta página se explica como utilizar el control Data enlazado a un control Picture para poder leer y almacenar los gráficos o imágenes en una base de datos Access en un campo de tipo Binario OLE

Para comenzar crear una base de datos Access y guardarla en una carpeta donde también se guardará el proyecto de ejemplo, para el ejemplo la base de datos se llamará DB1.mdb

Luego, abre la base y crea una tabla ( por defecto con el nombre Tabla1 ) y un campo llamado Imagenes.

Ahora desde la vista diseño especifica el tipo de dato para el campo Imagenes como Objeto OLE:

vista de diseño de Access para especificar el campo de tipo objeto OLE

Crear un nuevo Proyecto en Visual basic y guardarlo en la carpeta donde estaba la base de datos anteriormente creada

En el formulario colocar los siguientes controles:

Un control Data llamado Data1 .
Un control PictureBox llamado Picture1
Un control CommonDialog llamado CommonDialog1
Un control Command llamado Command1 para agregar una nueva imagen a la BD

Ahora hay que enlazar el control Data a la base de datos y especificar el RecordSource.

Entonces colocar en el FormLoad las siguientes lineas de código

Dim basedatos As String basedatos = App.Path 'si no tiene la bara final la añade If Right$(basedatos, 1) <> "\" Then basedatos = basedatos & "\" basedatos = basedatos & "db1.mdb" ' Le indica al Data la base de datos Data1.DatabaseName = basedatos 'Fuente de los registros para el control data Data1.RecordSource = "Select Imagenes FROM Tabla1" 'Refresca el control Data1.Refresh

Ahora seleccionar el control Picture1 y desde la ventana de propiedades especificar en la propiedad DataSource el control Data1, y en la propiedad DataField el campo Imagenes, como muestra el siguiente gráfico

vista de la ventana de propiedades d visual basic para especificar la propiedad DataField del control Picture

Ahora en el evento Click del Command1 se colocará el código para agregar una nueva imagen, que se seleccionará por medio del control CommoDialog. El código es el siguiente:

Private Sub Command1_Click() CommonDialog1.DialogTitle = " Seleccionar imagen para grabar en campo OLE " CommonDialog1.ShowOpen If CommonDialog1.FileName = "" Then Exit Sub 'Crea un nuevo registro con el método AddNew Data1.Recordset.AddNew ' Carga el gráfico seleccionado en el control Picture y al estar enlazado _ se almacena e el campo imagenes Picture1.Picture = LoadPicture(CommonDialog1.FileName) 'Actualiza el recordset Data1.Recordset.Update 'Refresca el control Data Data1.Refresh End Sub

Recursos visual basic 6.0 - Enlaces relacionados

Buscar en Recursos vb