VB.net 2010 视频教程 VB.net 2010 视频教程 python基础视频教程
SQL Server 2008 视频教程 c#入门经典教程 Visual Basic从门到精通视频教程
当前位置:
首页 > VB.net教程 >
  • vb.net教程之浏览图形数据库的记录

浏览图形数据库的记录

(相关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
 

相关教程