VB.NET Winform显示保存在数据库中的图片

Private   Sub DataGrid1_DoubleClick(ByVal sender As ObjectByVal e As System.EventArgs) Handles DataGrid1.DoubleClick
        StrSQL 
= "Select * from PackingImage WHERE SysID='" & Me.DataGrid1.Item(Me.DataGrid1.CurrentRowIndex, 0& "'"
        
Dim obj_Command As New SqlCommand(StrSQL, Myconn)
        obj_Command.CommandType 
= CommandType.Text
        
Dim obj_Dr As SqlDataReader
        Myconn.Open()
        obj_Dr 
= obj_Command.ExecuteReader
        obj_Dr.Read()
        
Me.Label2.Text = obj_Dr.Item("PartName")
        
If Not IsDBNull(obj_Dr.Item("image")) Then
            
Dim obj_byte() As Byte = obj_Dr.Item("image")
            
Dim obj_Stream As New MemoryStream(obj_byte, True)
            obj_Stream.Write(obj_byte, 
0, obj_byte.Length)
            
Me.PictureBox1.Image = New Bitmap(obj_Stream)
        
Else
            
Me.PictureBox1.Image = Nothing
            
Me.Label2.Text = ""

        
End If

        Myconn.Close()
        obj_Command.Dispose()
        obj_Stream 
= Nothing
    
End Sub
 
  • 0
    点赞
  • 2
    收藏
    觉得还不错? 一键收藏
  • 0
    评论

“相关推荐”对你有帮助么?

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值