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 2
• Enlaces relacionados

 

 

 

 

---

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

 

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

Option Explicit ' Función para almacenar el gráfico ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' Public Function Guardar_Imagen(ADO_Connection As ADODB.Connection, _ sql As String, _ Campo_Imagen As String, _ Optional Path_Imagen As String) As Boolean Dim rs As Recordset Dim Stream As ADODB.Stream On Error GoTo Error_Sub Set rs = New ADODB.Recordset ' Abre el recordset rs.Open sql, ADO_Connection, adOpenKeyset, adLockOptimistic 'Nuevo objeto ADODB Stream Set Stream = New ADODB.Stream ' dato de tipo binario Stream.Type = adTypeBinary Stream.Open ' verifica que la ruta del gráfico no sea una cadena vacía If Len(Path_Imagen) <> 0 Then ' lee la imagen desde el path Stream.LoadFromFile Path_Imagen ' La guarda en campo rs.Fields(Campo_Imagen).Value = Stream.Read ' actualiza los cambios rs.Update End If ' cierra el recordset y elimina la referencia If rs.State = adStateOpen Then rs.Close End If If Not rs Is Nothing Then Set rs = Nothing End If 'Cierra el objeto ADODBStream y elimina la ref. If Stream.State = adStateOpen Then Stream.Close End If If Not Stream Is Nothing Then Set Stream = Nothing End If ' Retorno Guardar_Imagen = True Exit Function Error_Sub: If Err.Number <> 0 Then MsgBox CStr(Err) & " " & Error, vbExclamation End If End Function 'Función para Obtener la imagen de la bd ''''''''''''''''''''''''''''''''''''''''''' Public Function Leer_Imagen(ADO_Connection As ADODB.Connection, _ sql As String, _ Campo_Imagen As String) As Picture On Error GoTo error_Function Dim rs As Recordset Dim Stream As ADODB.Stream Set rs = New Recordset ' Llena el recordset rs.Open sql, ADO_Connection, adOpenKeyset, adLockOptimistic ' Si no hay registros sale de la función y retorna como _ resultado un valor Nothing, es decir ninguna imagen If rs.RecordCount = 0 Then Set Leer_Imagen = Nothing rs.Close Set rs = Nothing Exit Function End If ' Nuevo objeto Stream para poder leer el campo de imagen Set Stream = New ADODB.Stream ' Especifica el tipo de datos ( binario ) Stream.Type = adTypeBinary Stream.Open ' verifica con la función IsNull que el campo no tenga _ un valor Nulo ya que si no da error, en ese caso sale de la función If IsNull(rs.Fields(Campo_Imagen).Value) Then GoTo error_Function End If ' Graba los datos en el objeto stream Stream.Write rs.Fields(Campo_Imagen).Value ' este método graba un archivo temporal en disco _ ( en el app.path que luego se elimina ) Stream.SaveToFile App.Path & "\temp", adSaveCreateOverWrite ' Retorna la imagen a la función Set Leer_Imagen = LoadPicture(App.Path & "\temp") ' Elimina el archivo temporal Kill App.Path & "\temp" 'Cierra el recordset y el objeto Stream If rs.State = adStateOpen Then rs.Close End If If Not rs Is Nothing Then Set rs = Nothing End If If Stream.State = adStateOpen Then Stream.Close End If If Not Stream Is Nothing Then Set Stream = Nothing End If Exit Function error_Function: If Err.Number <> 0 Then MsgBox CStr(Err) & " " & Error, vbExclamation ' elimina el temporal If Len(Dir(App.Path & "\temp")) Then Kill App.Path & "\temp" End If End If End Function

 

---

 

Código fuente en el formulario

Option Explicit Dim cn As Connection ' Botón que lee la imagen del campo indicado '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' Private Sub Command1_Click() ' La función retorna un objeto Picture ' requiere la conexión Ado, La consulta SQL, y el nombre del Field Picture1.Picture = Leer_Imagen(cn, Text1, Text2) End Sub ' Botón que escribe la imagen en el campo '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' Private Sub Command2_Click() Dim ret As Boolean Dim Path_Imagen As String ' pide la ruta del gráfico Path_Imagen = InputBox("Ruta del gráfico a guardar en el campo " & _ "FOTO en la base de datos c:\bd1.mdb") If Path_Imagen = vbNullString Then Exit Sub ' Le pasa la conexión , el comando sql, el nombre del campo _ y el path del archivo ret = Guardar_Imagen(cn, Text1, Text2, Path_Imagen) If ret Then MsgBox "Imagen guardada", vbInformation End If End Sub Private Sub Form_Load() Dim Path_BD As String ' Crea un Nuevo objeto Connection Set cn = New Connection ' Ruta de la bd Path_BD = "c:\bd1.mdb" ' Cadena de conexión cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & _ "Data Source=" & Path_BD & ";" & _ "Mode=ReadWrite|Share Deny None;" & _ "Persist Security Info=False;Jet OLEDB" ' abre cn.Open Path_BD Command1.Caption = "Recuperar imagen " Command2.Caption = "Grabar imagen " End Sub Private Sub Form_Unload(Cancel As Integer) ' Cierra la conexión ado If cn.State = adStateOpen Then cn.Close End If If Not cn Is Nothing Then Set cn = Nothing End If End Sub

 

---

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

• Ejemplos varios de ado y bases de datos en vb

Buscar en Recursos vb

---

Recursos visual basic - Buscar - Privacidad - Copyright © 2005 - 2009 - www.recursosvisualbasic.com.ar