用VB.NET设计图形数据库程序

（相关vb.net教程)

 
随着多媒体技术的发展，图形数据库在实际应用中的已经越来越广泛了。图片处理已经成为各种MIS中必不可少的功能，那么，在VB.NET中又如何设计图形数据库程序呢？这就是本文要探讨的问题。
　　
1：把图形写入到数据库中
为了说明问题，我们先在Access2000中创建一个与人事管理有关的Graph数据库，该数据库中有一个名为Graph的数据表，数据表的结构是：PicID(长整型并设置为主键)、Name(文本型，宽度为10)、Sex(文本型，宽度为1)、Age(整型)、Picture(OLE 对象)。
由于数据库中有一个图形字段，而图形是不能直接输入到数据库中，同时，在VB.NET中图形也不能与数据库感知控件(例如：文本框、DataGrid、PictureBox等)实现绑定，所以，如何把图形写入到数据库中是图形数据库程序开发中最重要的问题。为此，我们要编写程序来处理。程序运行时的界面如图１所示。程序运行的过程是：先在文本框里输入记录的
　
　图１　插入记录　　　　　　　　　　　　　　图2 浏览记录
基本资料，然后单击“浏览图片”按钮，通过打开文件对话框从电脑里找到想要的图片，再单击“插入记录”按钮就把记录插入到数据库中，图片也写入到数据库中。实现图片写入的关键技术是引用VB.NET中的MemoryStream类， MemoryStream 类创建这样的流，该流以内存而不是磁盘或网络连接作为支持存储区。MemoryStream 封装以无符号字节数组形式存储的数据，该数组在创建 MemoryStream 对象时被初始化，或者该数组可创建为空数组。可在内存中直接访问这些封装的数据。内存流可降低应用程序中对临时缓冲区和临时文件的需要。要实现图1所示的功能，我们这样来操作：①：在VB.NET中新建Windows 应用程序；②：从“工具箱”的“数据”选项卡中，将 OleDbDataAdapter拖放到窗体上，按屏幕提示建立好数据连接，配只置好数据适配器。③：在窗体下面的OleDbDataAdapter1上单击鼠标右键并选择“生成数据集”。此时在窗体的下面你可以看到三个在程序运行时是不可见的控件，它们分别是：OleDbDataAdapter1、OleDbConnection1、DataSet11，为了书写程序时方便，请把它们分别改名为：Dba、Dbc、Ds1。④：把“工具箱”的“数据”选项卡中的OleDbCommand拖放到窗体上并把它该名Dbcmd，利用OleDbCommand可以实现数据库的插入、更新、删除等操作。请把它的Connection属性设置为Dbc；把它的Commandtext设置为：INSERT INTO Graph (PicID, Name, Sex, Age, Picture) VALUES (?, ?, ?, ?, ?)，这里的几个?就是参数，这些参数的值就是从图1中文本框和“浏览图片”按钮获得的。⑤：在窗体上添加文本框、图片框、打开文件对话框、命令按钮等控件。完成后就要编写代码了。
在程序的最前面加入下面这个引用对象的语句：
Imports System.IO　 '引用它是为了使用MemoryStream
“浏览图片”命令按钮对应的程序是：
With OpenFileDialog1
   .InitialDirectory = "D:\Graphmdb"
   .Filter = "All Files|*.*|Bitmaps|*.bmp|GIFs|*.gif|JPEGs|*.jpg"
   .FilterIndex = 4
End With
If OpenFileDialog1.ShowDialog() = DialogResult.OK Then
PictureBox2.Image = Image.FromFile(OpenFileDialog1.FileName)
End If
 “插入记录”命令按钮对应的程序是：
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("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("操作成功,请单击‘返回’按钮可以看到操作后的结果")
至此，一个插入数据库记录(包括输入图片)的程序已经完成。但插入后的结果不能马上在本程序中看到，为此，我们可以再增加一个窗体并专门设计一个数据库浏览程序来实现这个功能(参见图2和下面一节的内容)。