问从PictureBox将图像保存到数据库中的问题。VB.Net 2008。框架3.5

EN

Private ms As MemoryStream
Private arrImage（）As Byte
私有conn As SqlConnection
私有cmd作为SqlCommand

Private Sub Form1_Load（ByVal sender As System.Object，ByVal e As System.EventArgs）处理MyBase.Load
    '绑定列表框的方法。
    BindListBox（lst，“选择Keycode，来自tbltest的LogoName”，“Logoname”，“keycode”）
        标签=“插入”
结束子

Private Sub lst_DoubleClick（ByVal sender As Object，ByVal e As System.EventArgs）处理lst.DoubleClick
        Dim dr As SqlDataReader

        dr = CreateReader（“选择LogoName，来自tblTest的徽标，其中keycode =”＆lst.SelectedValue）
        如果dr.Read那么
            txtLogoName.Text = vbNullString＆dr（“Logoname”）
            如果不是IsDBNull（dr（“Logo”））那么
                arrImage = CType（dr（“Logo”），Byte（））
                ms =新的MemoryStream（arrImage）
                pic.Image = Image.FromStream（ms）
                ms.Close（）
            其他
                pic.Image =没什么
                pic.Invalidate（）
            万一
            Tag =“更新”
        万一
        dr.Close（）
        closeconnection（）
        arrImage =没什么
        ms =没什么
结束子

Private Sub btnOk_Click（ByVal sender As System.Object，ByVal e As System.EventArgs）处理btnOk.Click
        昏暗的com作为SqlCommand
        Dim strSql As String

        如果Tag =“Insert”那么
            strSql =“插入tbltest（logoname，logo）值（'”＆Trim（txtLogoName.Text）＆“'，@ Logo）”
        其他
            strSql =“更新tbltest set logoname ='”＆Trim（txtLogoName.Text）＆“'，Logo = @ Logo Where keycode =”＆lst.SelectedValue
        万一

        com = CreateCommand（strSql）
        com.Parameters.Add（New SqlParameter（“@ Logo”，SqlDbType.Image））
        如果不是pic.Image则没有
            ms =新的MemoryStream（）
            pic.Image.Save（ms，pic.Image.RawFormat）
            arrImage = ms.GetBuffer
            ms.Close（）
            com.Parameters（“@ Logo”）。Value = arrImage
        其他
            com.Parameters（“@ Logo”）。Value = DBNull.Value
        万一

        如果com.ExecuteNonQuery = 1那么
            closeconnection（）
            BindListBox（lst，“选择Keycode，来自tbltest的LogoName”，“Logoname”，“keycode”）
            pic.Image =没什么
            pic.Invalidate（）
            txtLogoName.Clear（）
            标签=“插入”
        万一


        arrImage =没什么
        ms =没什么
        strSql =没什么
结束子

Private Sub btnBrowse_Click（ByVal sender As System.Object，ByVal e As System.EventArgs）处理btnBrowse.Click
        用dlg
            .Filter =“所有文件| *。* |位图| * .bmp | GIF | * .gif |图标| * .ico | JPEG | * .jpg | PNG | * .png”
            .FilterIndex = 5
        结束

        如果dlg.ShowDialog（）= DialogResult.OK然后pic.Image = Image.FromFile（dlg.FileName）
结束子

Public Sub setconnection（）
        尝试
            conn = New SqlConnection（“Data Source = MyServer; Initial Catalog = TestDB; User Id = sa; Password =;”）
            conn.Open()
        赶上前例外
            MSGBOX（ex.Message）
        结束尝试
结束子

Public Sub closeconnection（）
        conn.Close（）
结束子

公共函数CreateCommand（ByVal query As String）作为SqlCommand
        setconnection（）
        Dim命令As New SqlCommand（query，conn）
        返回命令
结束功能

公共函数CreateReader（ByVal query As String）作为SqlDataReader
        Dim reader As SqlDataReader
        setconnection（）
        cmd = CreateCommand（查询）
        reader = cmd.ExecuteReader（）
        返回读者
结束功能