文档介绍：在我们做的许多管理系统中,除了保存大量的文字信息以外,有时候也需要保存一定数量的图片。例如:一个人事管理系统,就需要对每个人的照片进行保存,以便可以方便的对每个人的信息进行处理。 ess数据库除了保存文本,还可以保存图片,保存图片的数据类型就是"OLE对象":它用来保存Excel电子表格、Word文档、图形、声音或其他二进制数据。我现在用一个例子介绍利用vb保存图片的方法,首先我们要介绍vb中处理二进制数据的语句:Put、Get。 Put、Get语句语法如下: Put[#]filenumber,[umber],varname Get[#]filenumber,[umber],varname Filenumber:必需的。任何有效的文件号 umber:可选的。Variant(Long)。记录号(Random方式的文件)或字节数(Binary方式的文件),指明在此处开始写入 Varname:必需的。包含要写入磁盘的数据的变量名说明:文件中的第一个记录或字节位于位置1,第二个记录或字节位于位置2,依次类推。umber,则将上一个Get或Put语句之后的下一个记录或字节写入。所有用于分界的逗号都必须罗列出来。现在我们来开始建一个工程,功能是保存一个文档,同时可以保存一幅图片。首先我们建一个表(表名为photo),字段如下: 字段名类型标题 class类别文档的分类 photoOLE对象保存图片文件 photo_ext文本图片的扩展名 inputtime日期/时间文档输入的时间 modifytime日期/时间文档的修改时间 subject文本文本现在我们就可以创建finput窗口文件来保存图片。首先我们要连接我们的数据库,代码如下: str="Provider=;PersistSecurityInfo=False;"_ amp;"DataSource="amp;;"\;JetOLEDB:database" cn..CursorLocation=adUseClient 这段代码可以放在form_load事件中,当做一个多窗口的系统时,最好放到一个模块文件中,连接。下面是具体的窗口代码: Object="{F9043C88-F6F2-101A-A3C9-08002B2F49FB}##0";"" Object="{3B7C8863-D78F-101B-B9B5-04021C009402}##0";"" BorderStyle=0'None Caption="文档输入" ClientHeight=6240 ClientLeft=0 ClientTop=0 ClientWidth=8955 ControlBox=0'False LinkTopic="Form1" MDIChild=-1'True ScaleHeight=6240 ScaleWidth=8955 ShowInTaskbar=0'False monDialog1 Left=8040 Top=3840 _ExtentX=847 _ExtentY=847 _Version=393216 End bo1 Height=300 Left=7080 TabIndex=10 Top=480 Width=1335 End mand3 Caption="关闭" Height=375 Left=5280 TabIndex=8 Top=5640 Width=1095 End mand2 Caption="保存" Height=375 Left=2520 TabIndex=7 Top=5640 Width=1095 End mand1 Caption="浏览" Height=255 Left=8040 TabIndex=6 Top=4800 Width=735 End Height=375 Left=1200 TabIndex=5 Top=4800 Width=6375 End Height=3615 Left=1200 TabIndex=3 Top=960 Width=6375 _ExtentX=11245 _ExtentY=6376 _Version=393217 Enabled=-1'True TextRTF=$"":0000 End Height=375 Left=1200 TabIndex=2 Top=4