在vb.net中显示/检索sql数据库中的图像

对于专业人士来说,这应该非常简单.我在sql server数据库中有图像,我想在我的aspx(vb.net)文件中检索它们.
我在aspx这个图像控件 –

在vb.net中我已经启动了这段代码

Private Sub Imagedisplay()
    Dim sqlCnn As sqlConnection = nothing,sql As String = ""
    ConnectDB(sqlCnn)
    Try
        sql = "SELECT image FROM employees (NOLOCK) WHERE ID =" & emp_id
        sqlcmd = New sqlCommand(sqlstr,sqlCnn)
        Dim imageData As Byte() = DirectCast(sqlcmd.ExecuteScalar(),Byte())
        Dim newImage As Image = nothing
        If Not imageData Is nothing Then
            Using ms As New MemoryStream(imageData,imageData.Length)
                ms.Write(imageData,imageData.Length)
                newImage = Image.FromStream(ms,True)
            End Using
            image1.Image = newImage
        End If
    Catch ex As Exception
        ReportError(ex)
    Finally
        CloseDB(sqlCnn)
    End Try
End Sub

我在2个地方收到错误.
– newImage = Image.FromStream(ms,True)
– image1.Image = newImage
Fromstream不是system.web.ui.webcontrols.image的成员
和第二个错误Image不是system.web.ui.webcontrols.image的成员

您需要命令对象和数据读取器.但是,您将它们放在错误页面中.

如果您检查图像控件的属性,您将看到它没有任何Image属性,因此您无法加载图像并放入控件.原因是您不能在同一响应中发送页面和图像,而是浏览器必须在页面加载时单独请求图像.

要从数据库获取图像并在网页中显示,您需要一个单独的代理页面,您可以使用该页面仅从数据库获取图像数据.在Image控件的ImageUrl属性中,您可以输入类似“Getimage.ashx”的内容.然后,您创建一个具有该名称的HTTP处理程序,该处理程序将从数据库获取图像数据并写入响应流.

例:

Private Sub HandleRequest(context as HttpContext)
  Dim sqlCnn As sqlConnection = nothing,sql As String
  Dim emp_id As Integer
  emp_id = Int32.Parse(context.Request.QueryString("id"))
  ConnectDB(sqlCnn)
  Try
    sql = "SELECT image FROM employees (NOLOCK) WHERE ID =" & emp_id
    sqlcmd = New sqlCommand(sqlstr,sqlCnn)
    Dim imageData As Byte() = DirectCast(sqlcmd.ExecuteScalar(),Byte())
    context.Response.ContentType = "image/jpeg"
    context.Response.BinaryWrite(imageData)
  Catch ex As Exception
    ReportError(ex)
  Finally
    CloseDB(sqlCnn)
  End Try
End Sub

相关文章

Format[$] ( expr [ , fmt ] ) format 返回变体型 format$ 强...
VB6或者ASP 格式化时间为 MM/dd/yyyy 格式,竟然没有好的办...
在项目中添加如下代码:新建窗口来显示异常信息。 Namespace...
转了这一篇文章,原来一直想用C#做k3的插件开发,vb没有C#用...
Sub 分列() ‘以空格为分隔符,连续空格只算1个。对所选...
  窗体代码 1 Private Sub Text1_OLEDragDrop(Data As Dat...