SQL 图片

读取图片

    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)

保存图片

    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 ")

显示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))

        Me.PictureEdit1.Image = System.Drawing.Image.FromStream(ms) 

转载于:https://www.cnblogs.com/gaoshoubuduo/archive/2012/06/15/2550850.html