修改图形数据库的记录

（相关vb.net教程)

程序运行如图３所示。先找到要修改的记录，然后直接在文本框里修改记录的内容，通过“浏览图片”找到要修改的图片，然后单击“更新”就可以。这个程序实际上具有浏览和修改记录的功能，浏览记录的设计跟图2所对应的操作完全一样，而修改部分所对应程序的设计过程则与图1所对应的差不多。只不过在这里要把OleDbCommand的Commandtext设置为：UPDATE Graph SET PicID = ?, Name = ?, Sex = ?, Age = ?, Picture = ? WHERE (PicID = ?)。图3中“更新” 命令按钮对应的代码是：

图3  修改记录
Dim ms As New MemoryStream()
PictureBox2.Image.Save(ms, PictureBox2.Image.RawFormat)
Dim arrImage() As Byte = ms.GetBuffer
ms.Close()
With Dbcmd
 .Parameters("PicID").Value = Val(TextBox1.Text)
 .Parameters("Original_PicID").Value = Val(TextBox1.Text)
 .Parameters("Picture").Value = arrImage
 .Parameters("Name").Value = TextBox2.Text
 .Parameters("Sex").Value = TextBox3.Text
 .Parameters("Age").Value = Val(TextBox4.Text)
End With
Dbc.Open()
Dbcmd.ExecuteNonQuery()
Dbc.Close()
MessageBox.Show("操作成功,请单击‘返回’按钮可以看到操作后的结果")
　　删除当前记录的操作则比较容易，因为记录的文字字段与文本框进行了绑定，在删除当前记录时，记录中的图片也同时被删除掉。但这只是在数据集里删除，所以还必须单击“确认删除”才能从从数据库里真正删除记录记录。“删除记录” 命令按钮对应的代码是：
If (Me.BindingContext(Ds1, "Graph").Count > 0) Then
Me.BindingContext(Ds1,"Graph").RemoveAt(Me.BindingContext(Ds1,"Graph").Position)
MessageBox.Show("当前记录已经从数据集里删除,请单击‘确认删除’按钮才真正删除")
End If
“确认删除” 命令按钮对应的代码是：
Me.BindingContext(Ds1, "Graph").EndCurrentEdit()
Dba.Update(Ds1, "Graph")
MessageBox.Show("操作成功,请单击‘返回’按钮可以看到操作后的结果")