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

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

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

我有一个包含列表框的表单,显示图像名称列表。它绑定到数据库表。单击图像名称时,它分别在图片框和文本框中显示图像和图像名称。如果在列表框中未选择任何图像,则可以通过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的参数值。

热门问答

关于web表情包集成?

最爱开车啦互联网的敏感者
推荐
表情使用方式有两种方式: 1)是使用 TIMFaceElem 中的 index,标识表情的索引,比如 Android 和 iOS 两端都有同一套表情图,索引2为笑脸,index=2 就表示笑脸,两端发送和接收都显示同一张索引表情图片即可。 2 ) 是使用 TIMFaceElem ...... 展开详请

如何将本地的.json格式的文件部署到服务器上, 通过url请求?

使用 CDS-Mask 做数据合作,怎么确保双方都不能反推对方的 ID?

用户2134289

腾讯科技 · 高级工程师 (已认证)

推荐
您好,两种方案可以解决您的需求 1)如果您这边ID不需要在业务上使用,将ID进行加星脱敏即可,加星后的所有数据字符将变为*,无法还原; 2)如果您这边ID在业务上需要使用,也就是ID在处理后必须保持唯一性,那么需要采用腾讯数港算法解决该问题,数港算法目前灰度中,如需要申请,烦请通...... 展开详请

cos.sliceUploadFile支持断点续传吗?

如果用的是 cos-js-sdk,那么 cos.restartTask 是会断点续传的,用法没有问题。 PS: sdk 使用可以参考 demo.js https://github.com/tencentyun/cos-js-sdk-v5/blob/master/demo/demo...... 展开详请

腾讯云通信SDK接入问题?

人生的旅途辣鸡前端
推荐
您好,为了进一步优化管理通知,Google在发布android 8 时对通知做了修改优化,出现了通知渠道功能。具体可以参考以下文章: https://www.jianshu.com/p/8baa62c5bfc2 如有其它异常,可联系QQ3268519604 感谢您对云通信的支持与...... 展开详请

急急急!!核验图片验证码填写到接入备案企业侧备案系统中,在哪操作啊?

无聊至极互联网重度用户
推荐
你反馈的上海备案的APP核验验证码吗?如果是的话,提交订单的时候直接写验证码就可以的。 在补充材料的下面 image.png ... 展开详请

所属标签

扫码关注云+社区

领取腾讯云代金券