我有一个包含列表框的表单,显示图像名称列表。它绑定到数据库表。单击图像名称时,它分别在图片框和文本框中显示图像和图像名称。如果在列表框中未选择任何图像,则可以通过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()
返回读者
结束功能
发布于 2019-06-06 16:16:44
使用参数。改变这个:
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的参数值。
https://stackoverflow.com/questions/-100009080
复制相似问题