读取图片
Dim fs As FileStream = New FileStream("e:\Net.jpg", FileMode.Open, FileAccess.Read)
Dim b()
As
Byte =
New
Byte(fs.Length) {}
fs.Read(b, 0, Convert.ToInt32(fs.Length))
fs.Close()
Dim ms As MemoryStream = New MemoryStream(b, 0, CType(b.Length, Integer))
Me.PictureEdit1.Image = System.Drawing.Image.FromStream(ms)
fs.Read(b, 0, Convert.ToInt32(fs.Length))
fs.Close()
Dim ms As MemoryStream = New MemoryStream(b, 0, CType(b.Length, Integer))
Me.PictureEdit1.Image = System.Drawing.Image.FromStream(ms)
保存图片
Dim fs As FileStream = New FileStream("e:\Net.jpg", FileMode.Open, FileAccess.Read)
Dim b()
As
Byte =
New
Byte(fs.Length) {}
fs.Read(b, 0, Convert.ToInt32(fs.Length))
fs.Close()
Dim l As New List( Of SqlParameter)
Dim SQL As String = " UPDATE SYS_COMPANY SET ILOGO=@img "
Dim par As SqlParameter = New SqlParameter( " @img ", SqlDbType.Image)
par.Value = b
l.Add(par)
DataDBExchange.ExecuteSQL(BasicDefine.SysConnectionString, SQL, l, " save ")
fs.Read(b, 0, Convert.ToInt32(fs.Length))
fs.Close()
Dim l As New List( Of SqlParameter)
Dim SQL As String = " UPDATE SYS_COMPANY SET ILOGO=@img "
Dim par As SqlParameter = New SqlParameter( " @img ", SqlDbType.Image)
par.Value = b
l.Add(par)
DataDBExchange.ExecuteSQL(BasicDefine.SysConnectionString, SQL, l, " save ")
显示SQL图片
Private
Sub SimpleButton2_Click(
ByVal sender
As System.Object,
ByVal e
As System.EventArgs)
Handles SimpleButton2.Click
Dim DR As DataRow = AppDBOperation.ExecteDataRow( " SELECT * FROM SYSDATA.DBO.SYS_COMPANY ")
Dim b As Byte() = CType(DR.Item( " ILogo "), Byte())
' 通过MemoryStream流实例化Image对象
Dim ms As MemoryStream = New MemoryStream(b, 0, CType(b.Length, Integer))
Dim DR As DataRow = AppDBOperation.ExecteDataRow( " SELECT * FROM SYSDATA.DBO.SYS_COMPANY ")
Dim b As Byte() = CType(DR.Item( " ILogo "), Byte())
' 通过MemoryStream流实例化Image对象
Dim ms As MemoryStream = New MemoryStream(b, 0, CType(b.Length, Integer))
Me.PictureEdit1.Image = System.Drawing.Image.FromStream(ms)