jueves, noviembre 25, 2010

VB.Net - Obtener Imagen desde BD SQL Server


"Si usa algún código del siguiente tutorial, den el icono de ME GUSTA del Facebook que se encuentra en su mano derecha, para que se vuelva Seguidor del Blog y también comentenos que tal les pareció el tutorial"

Método utilizado para obtener una imagen guardada en una tabla de una base de datos SQL Server, la columna donde se almacena la imagen se llama "foto" y si no tiene foto se carga una foto por defecto.


Try
    Dim dt As DataTable=New Empleado().BusEmpleado_Foto(CInt(row.Cells(0).Value))
    If dt.Rows(0)("Foto") IsNot DBNull.Value Then
        Dim bytBLOBData() As Byte = dt.Rows(0)("Foto")
        Dim stmBLOBData As New IO.MemoryStream(bytBLOBData)
        pbImagen.Image=System.Drawing.Image.FromStream(stmBLOBData)
    Else
        pbImagen.Image=System.Drawing.Image.FromFile(Utilitarios.direccionArchivos() 
        & "\Imagenes\noFoto_Hombre.jpg")
    End If
Catch ex As Exception
    pbImagen.Image = System.Drawing.Image.FromFile(Utilitarios.direccionArchivos() & 
    "\Imagenes\noFoto_Hombre.jpg")
End Try

Ejemplo del uso de la aplicación:

0 comentarios: