利用vb保存一幅图到access数据库

《利用vb保存一幅图到access数据库》由会员上传分享，免费在线阅读，更多相关内容在学术论文-天天文库。

1、利用Vb保存一幅图到Access数据库利用Vb保存一幅图到Access数据库.txt31岩石下的小草教我们坚强，峭壁上的野百合教我们执著，山顶上的松树教我们拼搏风雨，严寒中的腊梅教我们笑迎冰雪。　　在我们做的许多管理系统中，除了保存大量的文字信息以外，有时候也需要保存一定数量的图片。例如：一个人事管理系统，就需要对每个人的照片进行保存，以便可以方便的对每个人的信息进行处理。　　　　Office中的Access数据库除了保存文本，还可以保存图片，保存图片的数据类型就是"OLE对象"：它用来保存Excel电子表格、Word文档、

2、图形、声音或其他二进制数据。　　　　我现在用一个例子介绍利用vb保存图片的方法，首先我们要介绍vb中处理二进制数据的语句：Put、Get。　　Put、Get语句语法如下：　　Put[#]filenumber,[recnumber],varname　　Get[#]filenumber,[recnumber],varname　　Filenumber:必需的。任何有效的文件号　　Recnumber:可选的。Variant(Long)。记录号（Random方式的文件）或字节数（Binary方式的文件），指明在此处开始写入　　Varn

3、ame:必需的。包含要写入磁盘的数据的变量名　　　　说明：文件中的第一个记录或字节位于位置1，第二个记录或字节位于位置2，依次类推。若省略recnumber,则将上一个Get或Put语句之后的下一个记录或字节写入。所有用于分界的逗号都必须罗列出来。　　　　　现在我们来开始建一个工程，功能是保存一个文档，同时可以保存一幅图片。　　　首先我们建一个表（表名为photo），字段如下：　　　　　　字段名类型标题　　class类别文档的分类　　photoOLE对象保存图片文件　　photo_ext文本图片的扩展名　　inputtime

4、日期/时间文档输入的时间　　modifytime日期/时间文档的修改时间　　　　subject文本文本　　　　　　现在我们就可以创建finput窗口文件来保存图片。　　首先我们要连接我们的数据库，代码如下：　　DimcnstrAsString　　cnstr="Provider=Microsoft.Jet.OLEDB.4.0;PersistSecurityInfo=False;"_　　amp;"DataSource="amp;App.Pathamp;"realize.mdb;JetOLEDB:database"　　cn.Op

5、encnstr　　cn.CursorLocation=adUseClient　　这段代码可以放在form_load事件中，当做一个多窗口的系统时，最好放到一个模块文件中，这样在其它窗口中都可以调用这个cn连接。　　下面是具体的窗口代码：　　　VERSION5.00　　　Object="{F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.2#0";"comdlg32.ocx"　　　Object="{3B7C8863-D78F-101B-B9B5-04021C009402}#1.2#0";"rich

6、tx32.ocx"　　　BeginVB.Formfinput　　　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　　　Begin

7、MSComDlg.CommonDialogCommonDialog1　　　Left=8040　　　Top=3840　　　_ExtentX=847　　　_ExtentY=847　　　_Version=393216　　　End　　　BeginVB.ComboBoxCombo1　　　Height=300　　　Left=7080　　　TabIndex=10　　　Top=480　　　Width=1335　　End　　　BeginVB.CommandButtonCommand3　　　Caption="关闭"　　　Height=375　　

8、　Left=5280　　　TabIndex=8　　　Top=5640　　　Width=1095　　End　　　BeginVB.CommandButtonCommand2　　　Caption="保存"　　　Height=375　　　Left=2520　　　TabIndex=7　　　Top=5