VB中用数据库存取图片的实现.doc

VB中用数据库存取图片的实现摘 要：VB 数据库中图像数据的存取对初学者来说是个难点，本文利用ADO 对象的AppendChunk 和GetChunk 方法来实现数据库存取图片，以供初学者参考。关键字：VB；数据库；图片；存取；AppendChunk ；GetChunk图像数据的存取对初学者来说是个难点，而当前的VB 教学因课时较短，所选教材或讲授过程对数据库一章要么忽略要么只是简单地介绍，很少涉及到图像的存取问题，而专业数据库开发书籍中的大量源代码又让初学者看得头疼，所以本文利用ADO 对象的AppendChunk 和GetChunk 方法来实现数据库存取图片，以供参考。一、界面设计在Form1中添加控件1个PictureBox（名称为picture1），1个TextBox（名称为txtfilepath），1个CommonDialog（名称为cmdlFilePath），7个CommandButton（名称分别为cmdBrowse、cmdSave、cmdExit、cmdFirst、cmdPrev、cmdNext和cmdLast），整体界面如下图所示：主界面示意图二、编程思路利用Access创建一个数据库命名为image，在image数据库中创建一个数据表imagestore，在imagestore数据表中创建srno和picimage两个字段，其中srno字段类型为自动编号，picimage字段类型为OLE对象。在程序中点击cmdBrowse按钮打开CommonDialog，选择要插入的图片，选中后该图片的路径在txtfilepath中显示，点击保存按钮后图片被保存进image.mdb，同时在picture1中显示图片。保存多个图片后可利用cmdFirst、cmdPrev、cmdNext和cmdLast按钮进行浏览。三、代码实现1、 声明常量和变量：Dim cnnImage As New ADODB.ConnectionDim rsImage As New ADODB.RecordsetDim strSql As StringDim Chunk() As ByteDim lngLengh As LongDim intChunks As IntegerDim intFragment As IntegerConst ChunkSize = 1000Const lngDataFile = 12、 窗体的FormLoad事件代码：Private Sub Form_Load() rsImage.LockType = adLockOptimistic rsImage.CursorType = adOpenKeyset cnnImage.Provider = Microsoft.Jet.OLEDB.4.0 strSql = App.Path & Image.mdb cnnImage.Open strSql strSql = Select * From ImageStore rsImage.Open strSql, cnnImage If (rsImage.BOF = True) And (rsImage.EOF = True) Then Exit Sub Call cmdFirst_ClickEnd Sub主要利用ADO对象建立程序与数据库的链接。3、 定义公共函数ShowPic Public Sub ShowPic() On Error Resume Next Open pictemp For Binary Access Write As lngDataFile lngLengh = rsImage!picImage.ActualSize intChunks = lngLengh ChunkSize intFragment = lngLengh Mod ChunkSize ReDim Chunk(intFragment) Chunk() = rsImage!picImage.GetChunk(intFragment) Put lngDataFile, , Chunk() For I = 1 To intChunks ReDim Buffer(ChunkSize) Chunk() = rsImage!picImage.GetChunk(ChunkSize) 建立图片临时文件 Put lngDataFile, , Chunk() Next I Close lngDataFile FileName = pictemp Picture1.PaintPicture LoadPicture(FileName), 0, 0, Picture1.Width, Picture1.HeightEnd Sub 4、 打开对话框（cmdBrowse按钮）代码 Private Sub cmdBrowse_Click() 选择JPG OR Bmp 文件 On Error Resume Next With cmdlFilePath .Filter = JPG Files|*.JPG|Bitmaps|*.BMP .ShowOpen txtFilePath.Text = .FileName End WithEnd Sub5、 保存按钮(cmdSave)代码： Private Sub cmdSave_Click() 保存文件到数据库中去 If Trim(txtFilePath.Text) = Then MsgBox .!, vbInformation + vbSystemModal, 保存出错 Exit Sub End If If (Dir(Trim(txtFilePath.Text) = ) Then Exit Sub以二进制的方式打开文件Open Trim(txtFilePath.Text) For Binary Access Read As lngDataFilelngLengh = LOF(lngDataFile) 文件大小If lngLengh = 0 Then Close lngDataFile: Exit Sub intChunks = lngLengh ChunkSize intFragment = lngLengh Mod ChunkSize 新建记录 rsImage.AddNew ReDim Chunk(intFragment) Get lngDataFile, , Chunk() rsImage!picImage.AppendChunk Chunk() ReDim Chunk(ChunkSize) For I = 1 To intChunks Get lngDataFile, , Chunk() rsImage!picImage.AppendChunk Chunk() Next I rsImage.Update Close lngDataFile Call ShowPicEnd Sub6、 各功能按钮（cmdExit、cmdFirst、cmdPrev、cmdNext和cmdLast）代码： Private Sub cmdExit_Click() EndEnd SubPrivate Sub cmdFirst_Click() On Error Resume Next rsImage.MoveFirst Call ShowPicEnd SubPrivate Sub cmdNext_Click() On Error Resume Next rsImage.MoveNext Call ShowPicEnd SubPrivate Sub cmdPrev_Click() On Error Resume Next rsImage.MovePrevious Call ShowPicEnd SubPrivate Sub cmdLast_Click() On Error Resume Next rsImage.MoveLast Call ShowPicEnd Sub四、结束语本实例主要是利用ADO 对象的AppendChunk 和GetChunk 方法来实现数据库存取图片，过程清晰，方法简单易懂，适合初学者参考学习。参考文献