Thursday, December 01, 2005

Getting an image out of SQL using a stored procedure.

# Region " Function to Get Banner Image From SQL "
Private Function GetImageFromSQL()
Dim ImgID As String =Request.QueryString("ID")
Dim SqlCon = New
SqlConnection(SharedFunctions.strConnection)
Dim SqlCommand As SqlCommand = New
SqlCommand("Internet_sp_get_featured_image", SqlCon)
SqlCommand.CommandType = CommandType.StoredProcedure
SqlCommand.Parameters.Add(New SqlParameter("@intID", SqlDbType.Int))
SqlCommand.Parameters("@intID").Value = ImgID
SqlCon.Open()
Dim mySQLReader As SqlDataReader = SqlCommand.ExecuteReader(CommandBehavior.CloseConnection)
mySQLReader.Read()
Response.ContentType = mySQLReader("imgContentType").ToString
Response.OutputStream.Write(mySQLReader("imgPic"), 0,
mySQLReader("imgByteSyze"))
Response.Flush()
Response.End()
SqlCon.Close()
End Function
#End Region