在我们做的许多管理系统中，除了保存大量的文字信息以外，有时候也需要保存一定数量的图片。例如：一个人事管理系统，就需要对每个人的照片进行保存，以便可以方便的对每个人的信息进行处理。

　　　　 Office中的Access数据库除了保存文本，还可以保存图片，保存图片的数据类型就是"OLE对象"：它用来保存 Excel 电子表格、 Word 文档、图形、声音或其他二进制数据。

　　　　 我现在用一个例子介绍利用vb保存图片的方法，首先我们要介绍vb中处理二进制数据的语句：Put、Get。

　　 Put、Get语句语法如下：

　　 Put [#] filenumber,[recnumber],varname

　　 Get [#] filenumber,[recnumber],varname

　　 Filenumber :必需的。任何有效的文件号

　　 Recnumber :可选的。Variant(Long)。记录号（Random方式的文件）或字节数（Binary方式的文件），指明在此处开始写入

　　 Varname :必需的。包含要写入磁盘的数据的变量名

　　　　 说明：文件中的第一个记录或字节位于位置1，第二个记录或字节位于位置2，依次类推。若省略recnumber,则将上一个Get或Put语句之后的下一个记录或字节写入。所有用于分界的逗号都必须罗列出来。



　　　 现在我们来开始建一个工程，功能是保存一个文档，同时可以保存一幅图片。

　　　 首先我们建一个表（表名为photo），字段如下：





　　 字段名 类型 标题

　　 class 类别 文档的分类

　　 photo OLE对象 保存图片文件

　　 photo_ext 文本 图片的扩展名

　　 inputtime 日期/时间 文档输入的时间

　　 modifytime 日期/时间 文档的修改时间



　　 subject 文本 文本





　　 现在我们就可以创建finput窗口文件来保存图片。

　　 首先我们要连接我们的数据库，代码如下：

　　 Dim cnstr As String

　　 cnstr = "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;" _

　　 & "Data Source=" & App.Path & "/realize.mdb;Jet OLEDB:database "

　　 cn.Open cnstr

　　 cn.CursorLocation = adUseClient

 1/2    1 2 下一页 尾页