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)