浏览图形数据库的记录

（相关vb.net教程)

程序运行时显示的界面如图2所示。程序的设计过程与上面的所讲的操作基本一样，不同之处是：这个程序不需要使用OleDbCommand，要把图2中的文本框与数据表中的相应的字段进行绑定(但图片框不能与Picture字段进行绑定)。绑定的方法是：选择一个文本框，按 F4 键以显示“属性”窗口。 在 “数据”选项下选择“Text”，再选择相应的字段名就可以了。程序主要部分如下：
①：先引用一个对象
Imports System.IO
②：定义一个通用过程把当前记录的图片在图片框中显示出来
Dim n As Integer  'n表示当前记录的位置
Sub JTH()
n = Me.BindingContext(Ds1, "Graph").Position
Dim arrPicture() As Byte = CType(Ds1.Tables(0).Rows(n)("Picture"), Byte())
Dim ms As New MemoryStream(arrPicture)
PictureBox1.Image = Image.FromStream(ms)
End Sub
读出数据库中的图片的关键技术还是引用MemoryStream类。
③：窗体装载事件对应的代码
Dba.Fill(Ds1, "Graph")
JTH()
④“下一记录”命令按钮对应的代码
Me.BindingContext(Ds1, "Graph").Position += 1
JTH()
“上一记录”、“第一条”、“最后一条”对应的命令分别是：Me.BindingContext(Ds1, "Graph").Position -= 1；Me.BindingContext(Ds1, "Graph").Position = 0；Me.BindingContext(Ds1, "Graph").Position=Me.BindingContext(Ds1,"Graph").Count- 1