
DESCARGAR IMAGEN DESDE BASE DE DATOS
Publicado por Luis Angel (3 intervenciones) el 29/08/2014 02:54:47
Buenas Noches estoy haciendo un WebForm con un boton que me descargue una imagen de una base de datos.
En la capa DATOS ya tengo la conexion por eso no la pongo y el capa LOGICA tengo ese procedimiento. Pero cuando lo llamos desde el boton me sale este error "ExecuteReader: Connection property has not been initialized."
Sub ObtenerFotoDeBDD(ByVal id As Integer, ByVal savetofolder As String)
cn = New Conexion1
Dim reader As SqlDataReader = Nothing
Try
Dim cmdsesion As New SqlCommand
cn.conexion.Open()
cmdsesion.CommandType = CommandType.Text
cmdsesion.CommandText = "select [IMAGEN] from Fuente where [id_control]=" & id (Busqueda de la Imagen)
reader = cmdsesion.ExecuteReader
reader.Read()
Dim nombreFicheroBDD As String = "Imagen"
Dim nSave As String = savetofolder & nombreFicheroBDD
Dim arrImg() As Byte = reader.Item(0)
Dim ms As MemoryStream = New MemoryStream(arrImg)
Dim fs As FileStream = New FileStream(nSave, FileMode.Create, FileAccess.Write, FileShare.ReadWrite)
ms.WriteTo(fs)
fs.Flush()
fs.Close()
ms.Close()
Catch ex As Exception
Throw New Exception(ex.Message)
End Try
End Sub
Es Urgente necesito su ayuda
En la capa DATOS ya tengo la conexion por eso no la pongo y el capa LOGICA tengo ese procedimiento. Pero cuando lo llamos desde el boton me sale este error "ExecuteReader: Connection property has not been initialized."
Sub ObtenerFotoDeBDD(ByVal id As Integer, ByVal savetofolder As String)
cn = New Conexion1
Dim reader As SqlDataReader = Nothing
Try
Dim cmdsesion As New SqlCommand
cn.conexion.Open()
cmdsesion.CommandType = CommandType.Text
cmdsesion.CommandText = "select [IMAGEN] from Fuente where [id_control]=" & id (Busqueda de la Imagen)
reader = cmdsesion.ExecuteReader
reader.Read()
Dim nombreFicheroBDD As String = "Imagen"
Dim nSave As String = savetofolder & nombreFicheroBDD
Dim arrImg() As Byte = reader.Item(0)
Dim ms As MemoryStream = New MemoryStream(arrImg)
Dim fs As FileStream = New FileStream(nSave, FileMode.Create, FileAccess.Write, FileShare.ReadWrite)
ms.WriteTo(fs)
fs.Flush()
fs.Close()
ms.Close()
Catch ex As Exception
Throw New Exception(ex.Message)
End Try
End Sub
Es Urgente necesito su ayuda
Valora esta pregunta


0