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

内容来源于 Stack Overflow,并遵循CC BY-SA 3.0许可协议进行翻译与使用

  • 回答 (2)
  • 关注 (0)
  • 查看 (10)

我有一个包含列表框的表单,显示图像名称列表。它绑定到数据库表。单击图像名称时,它分别在图片框和文本框中显示图像和图像名称。如果在列表框中未选择任何图像,则可以通过openfiledialog在图片框中浏览新图像,在文本框中写入图像名称并按OK按钮来插入新记录。选择图像后,可以通过按相同的OK按钮更新记录。数据保存到MSSQL Server 2005.相应的表字段是Keycode int autono,logoname nvarchar(50),徽标图像。现在问题是,当我使用图像插入新数据时,一切都很顺利,但每当我尝试用图像更新现有数据时,它都会抛出异常 - “GDI +中发生了一般错误”。在以下行 - 'pic.Image.Save(ms,pic.Image.RawFormat)'。令人惊讶的是,当我在图片框中没有任何图像的情况下更新现有数据时,不会产生异常。我已经越过检查它,似乎问题只是在某一点 - '从图片框更新图像'。我几乎完成了所有工作,但坚持这一点。请帮忙。问候。

我的代码通过OK按钮插入/更新数据并通过listbox doubleclick填充它:

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()
        返回读者
结束功能
提问于
用户回答回答于

使用参数。改变这个:

strSql = "Update tbltest set logoname='" & Trim(txtLogoName.Text) & "',Logo=@Logo Where keycode=" & lst.SelectedValue

strSql = "Update tbltest set logoname=@LogoName,Logo=@Logo Where keycode=@KeyCode"

然后,提供@LogoName和@KeyCode的参数值。

用户回答回答于

帮自己一个大忙,将图像保存为数据库外共享网络驱动器上的单独文件。只存储数据库中的文件名。

这有两个好处:调试图像文件会更容易,并且您的数据库将更小并且运行速度更快。

扫码关注云+社区

领取腾讯云代金券