Vb保存一幅图到Access数据库

Vb保存一幅图到Aｃceｓs数据库在我们做的很多管理系统中，除了保存大量的文字信息以外,有时候也需要保存肯定数量的图片。例如：一个人事管理系统,就需要对每个人的照片进行保存,以便可以便利的对每个人的信息进行处理.Ofｆiｃe中的Ａｃｃｅｓｓ数据库除了保存文本，还可以保存图片，保存图片的数据类型就是”OLＥ对象”：它用来保存Ｅｘceｌ电子表格、Woｒｄ文档、图形、声音或其他二进制数据。我现在用一个例子介绍利用vb保存图片的方法，首先我们要介绍ｖb中处理二进制数据的语句:Puｔ、Ｇeｔ。Pｕt、Ｇｅt语句语法如下:Ｐｕｔ［#]ｆilenumbeｒ,[reｃｎｕmbeｒ］,varｎameGet[#］ｆｉleｎumbeｒ,[recnumber],ｖaｒnameFｉlｅnｕｍｂｅr：必需的。任何有效的文件号Rｅcｎumbeｒ：可选的.Vａｒiａnt（Lｏnｇ）.记录号（Rａnｄom方式的文件)或字节数（Bｉnary方式的文件）,指明在此处开头写入Varnamｅ:必需的.包含要写入磁盘的数据的变量名说明:文件中的第一个记录或字节位于位置1,其次个记录或字节位于位置2，依次类推.若省略ｒｅcnｕmber，则将上一个Ｇet或Put语句之后的下一个记录或字节写入.全部用于分界的逗号都必须排列出来.现在我们来开头建一个工程,功能是保存一个文档，同时可以保存一幅图片。首先我们建一个表（表名为pｈｏｔｏ),字段如下：字段名类型标题ｃｌass类别文档的分类pｈｏtoＯＬE对象保存图片文件pｈｏｔo_exｔ文本图片的扩展名ｉnputtimｅ日期/时间文档输入的时间ｍodifytiｍe日期／时间文档的修改时间suｂject文本文本现在我们就可以创建ｆinpuｔ窗口文件来保存图片.首先我们要连接我们的数据库，代码如下：ＤiｍcnｓtｒAsStringcnstr=＂Prｏvider=Mｉcroｓoft。Jet．OLEDB．4．0；ＰersｉstＳeｃｕrityＩｎｆｏ=Ｆaｌse;"_aｍｐ；＂DatａＳｏｕｒce=”aｍｐ；Apｐ。Ｐathamp;＂\realｉzｅ.ｍｄb；JetＯLEDB：ｄａｔａｂａse＂cn.Openｃｎｓtrcｎ。CｕrsorLｏcａｔｉon=ａdＵsｅClienｔ这段代码可以放在form＿load大事中，当做一个多窗口的系统时，最好放到一个模块文件中,这样在其它窗口中都可以调用这个cｎ连接。下面是简略的窗口代码：ＶERＳＩOＮ５．00Objeｃt="｛F9043C8８－F6F2－10１A－A3C9—08002Ｂ2F49ＦB｝＃1.2#0＂;”comdlg32.ocｘ＂Ｏbｊeｃｔ＝＂｛3B7C8８６3—Ｄ７8F-10１B-Ｂ9B5—040２1C０09402｝＃1.2＃0＂；”rｉｃhｔｘ32．oｃx”BｅｇinVB.ＦormfｉｎｐuｔBorderStyle＝0＇NoｎeＣaptiｏｎ="文档输入”ＣlieｎtＨｅｉgｈｔ＝62４0ＣlientＬeｆt=0CliｅntTop=0ClｉenｔWｉdtｈ=8９5５ＣoｎtrolBｏx=0'FaｌseLiｎkTopic=＂Form１"ＭＤIＣhiｌd=－1'TruｅScaｌeHｅiｇht=624０ScalｅWｉdth=8955ShowInTaskbａr＝０’FalsｅBegｉnMSCｏｍＤlｇ．ＣｏmmｏnDialogCｏmｍonDialog1Left=80４0Tｏp=３840_ＥxtentX=847_ExtｅntY=847_Versiｏn＝39３216EnｄBeｇｉｎVＢ。CoｍｂoBｏxCｏｍbｏ1Hｅｉgｈt＝300Leｆt=7０80TａbIｎdex=10Tｏp=４8０Wｉｄth＝１３3５ＥnｄＢeｇinVB。CommandButtonComｍａnd3Cａptｉoｎ=＂关闭”Heｉght=375Leｆt＝５28０TabIndex=8Ｔop=5６4０Wｉdth＝1０95EndBｅginVB.CoｍｍandBｕttoｎCｏｍmａｎd2Ｃaｐtiｏn＝"保存＂Heigｈt＝３75Lｅfｔ=2５20TａｂIndｅx=7Ｔoｐ=5６４0Ｗiｄｔh=1095EndBｅgｉnVＢ。ＣｏmmａndBｕtｔoｎＣｏmｍand１Cａｐtion=＂扫瞄＂Heｉgｈt=2５5Ｌeｆｔ＝804０TabIndeｘ=6Toｐ=4800Widｔｈ＝7３5EｎdＢeginVB.ＴextBoxText2Ｈｅｉght＝３75Ｌｅft=１２00TａbＩndex=5Toｐ=4８00Ｗiｄth=6３７５ＥｎdBegｉnRｉchTｅxtLｉb。RichTeｘｔBoｘＲichTｅxtBox1Hｅigｈt=3615Left＝1200TaｂInｄex=3Tｏp=９60Wｉdｔh＝6375_ExｔenｔX＝1１2４５＿ExｔentY=6３7６_Vｅｒsioｎ=３93217Ｅnableｄ＝—1’ＴｒueTｅｘtRＴF＝$＂finpｕt．ｆrx"：0000EnｄＢeginVB。ＴｅｘｔＢoxＴext1Ｈeｉght=３75Lefｔ＝1２０0ＴaｂＩnｄeｘ=2Top＝４43Width=469５EndＢeginＶB.LabｅｌLaｂeｌ４Captioｎ="类别”Height=2５5Lｅft＝6２4０TabInｄex＝9Ｔop＝480Wiｄth=61５EndＢegiｎVＢ.LabｅlLaｂｅl３Ｃaption=”图片＂Heｉght=２５5Ｌeft＝４８0ＴａbInｄeｘ=4Tｏp=４８00Ｗiｄth=４95EndＢｅｇinVＢ。ＬａbｅlLａｂｅl２Ｃaptioｎ="内容”Ｈｅigｈt＝２５5Ｌeｆt=4８0TaｂIｎｄex＝１Toｐ=960Ｗｉｄtｈ=４95EnｄBｅgiｎVB.LabｅlＬabel1Capｔion＝＂标题”Hｅｉght＝２５5Lｅfｔ=４80ＴaｂInｄex=０Top=503Width=4９5EndEndAttribuｔeVB_Nａme=”finpｕt"ＡttriｂuｔeVB＿GlｏbalNamｅSpａcｅ=FalｓeＡｔtribuｔｅＶB＿Creａtaｂle＝FａlｓeＡｔｔribuｔｅVB_PｒedｅclaｒedId=TruｅＡtｔｒｉbuｔeVB_Expｏsed=FalｓｅOｐtionEｘplｉcｉtPｒiｖaｔeＳubCoｍｍanｄ1_Ｃlｉck（）CommoｎＤｉaloｇ１.DefauｌtＥxt=App。PathCｏｍmｏnＤiａlog1。Ｆiｌtｅｒ＝”Picｔuｒｅｓ（*．bmp;*．jpg；*．ｇif）＊。bmp；＊.jpg；＊.giｆ”＇注意要加引号CoｍmｏｎDｉalｏｇ１．ShowＯpeｎＴexｔ２.Text＝CommonDiaｌog1.FileNameＥｎdＳub＇保存文档的标题，和文档的内容，以及相应的图片PrivateＳｕｂＣomｍaｎd2_Clｉｃk（）'推断是否所写的文档是否已经存在数据库了,如果没有,则保存，否则'不能保存（利用一个"临时ｒs”查询标题）Dimｓｕｂjecｔ,sｑlAｓStｒiｎgDimｔｅmp_photoAsStｒｅａmDimrsAsＮeｗADODB.ＲecordsetDimｒs1AｓNｅwADODＢ．Ｒecｏｒｄseｔ’定义ｒｓ１得到类别的iｄＤｉmcｌａsｓ_iｄAsＩntｅger＇定义得到类别的IＤ号suｂｊｅｃt＝Trｉm(Text1。Texｔ)＇获得标题sｑl="seｌeｃt＊frｏmｐａｐerwheｒeｓubjｅｃt=’＂+ｓuｂject+＂'"'开头查询rｓ。Ｏpｅnsql，ｃn,adＯpｅnＤynａmiｃ，ａdLoｃkPessｉｍiｓtiｃ’推断标题是否存在Ｉfrs.EOFＴｈｅn＇文档不存在,开头保存DｉmｔempｄateAsDａtｅ＇临时时间变量ｔempｄａｔｅ=Ｄaters。AｄdＮew＇得到类别的IDｓｑl=＂selectｃl_nｕｍber,ｃｌassfrｏmｃｌａｓsｗｈereｃlass='＂+Ｃombo1.Teｘｔ+”'”rs1．Opeｎｓqｌ,cn，adOｐenDynａｍｉc,aｄLockPessｉmisｔiｃrｓ("cｌass"）＝ｒs1（"ｃｌ_ｎumber”）rs1．Clｏse＇关闭rs1rs（"sｕbjeｃt”）＝sｕbjeｃｔrs（"conteｎｔ＂）=RｉchTeｘｔBｏｘ1．TeｘtIｆTrim（Tｅxt２。Texｔ）＜>＂”Ｔhen＇假如有图片,开头得到图片文件Ｄimimaｇe_datａ（)ＡsBｙte＇定义图片保存的变量OpenＴrｉm（Tｅxt2．Texｔ)ForBinａryAs＃1RｅDiｍｉmａｇe_datａ（ＬＯF(1)－1）Ｇet＃１，，imagｅ_daｔａ（)ｒｓ（"ｐｈｏto”）.AppｅnｄChuｎｋiｍagｅ_ｄata(）EnｄIfrｓ("inputtiｍe”）＝ｔempdateｒs("mｏdifyｔime”)=teｍpdateｒs。Ｕpｄａtｅ'可能消灭保存不成功的现象，所以要考虑可能会消灭错误ＭsｇBox("保存成功！＂)'保存成功Text1。Tｅxt=＂＂RｉｃhTextBｏx1。Ｔexｔ=”＂Tｅxt2.Ｔｅｘt＝＂”’此处清空选择图片的框Elsｅ’存在,不能保存,显示错误信息ＭｓgBox(＂文档已经存在，不能保存，请修改！”）EndIfrs.Clｏse’关闭结果集EｎｄSubPrivaｔeSｕbCｏｍｍanｄ３_Ｃlick（）UｎｌｏａdＭｅEndＳubＰriｖａteSubFoｒｍ＿Loaｄ(）Me.Leｆt=０Ｍｅ。Top=0fmａin．Wｉdth=Mｅ。Wｉdtｈ+3４0ｆmain．Height=Me.Height+155０＇显示文档的类别DｉmrsAsNewＡＤODB.ＲeｃoｒdｓetDｉmsｑlＡsＳtrｉｎgsql="select*fromclaｓｓ”rs。Ｏpeｎsql,cｎ,１，1ＤoWhilｅNoｔｒs．EOＦ’类别不空，则添加进去,对应类别的ｎumbeｒ为索引Cｏmbｏ1。ＡdｄＩｔemrs（＂clasｓ”）rs.MｏvｅNextＬooｐIfｒｓ。ＲeｃorｄCoｕnt〈>0Ｔｈen'只有查询结果集不为空时,才能设定显示第一项，利用纪录总数不为０判定Comｂo１。ＬistＩｎdex＝0'不能用nｏtrs．eｏf判定,由于现在cｕrsｏr已经到了最后ＥndIfrs.CｌoｓeEｎdＳub当然,在上面这段代码中,还用到了另一个表(表名为claｓs），字段如下:字段名类型意义clａss文本文档类别的名称cｌ_nｕｍbeｒ数字类别的编号上面的代码可以较好的保存我们的文档和图片，我们还需要显示我们的图片和文档，现在我们还要显示我们的图片,我做了一个显示窗口（ｆsｈow）,现在我假设数据库中有一条记录，subｊect为＂ｉpx协议简介＂，里面有一个图片（ipｘ体系结构）,窗口代码如下：VERＳIOＮ5.0０Oｂｊect=”｛8３1FDD16—0Ｃ5C—1１D２-A9FＣ—００00F8754DA１}#２。０＃0";”msｃomcｔl.ocx＂Ｏbjｅct＝”｛3B7C8８63－D78F-101B—B９B５-04021Ｃ0０９402}＃1。２#0”；"ｒｉchtx3２。ｏｃx"BeｇiｎVB。FormfshowBordeｒＳtyｌe=0’ＮｏｎeＣaptiｏn=”显示图片”CｌｉeｎtHeｉght=712５ClientLeｆt＝0ＣlientTｏｐ=0CｌieｎtWiｄth=10275LinｋTopic="Forｍ１＂MDIChiｌd=－１’ＴｒueScaｌeHｅighｔ=7125ScaｌeＷidth=1027５ＳhowＩnＴａsｋｂaｒ=0＇ＦａlseBegｉnＶＢ。FｒａmeFrａｍe2Hｅｉｇｈt=66１5Ｌｅft=2８8０TａbＩndex=１Ｔoｐ=240Wｉｄth=7３３5BｅgｉnVＢ．ＣommaｎｄＢｕｔtｏｎCｏｍｍａnd1Cａpｔiｏｎ=”关闭"Heiｇｈt=3７5Ｌｅft＝５880TaｂＩｎdeｘ=5Top=5８８0Wｉｄth=1２15EｎdBｅginRｉchＴｅｘtLiｂ。RichＴextBoxRichＴｅxtＢoｘ1Heigｈt＝4０95Ｌeｆｔ=１２０TabＩｎｄex=４Top=1２0０Widtｈ＝6975_ExtenｔＸ＝1２3０3_ExｔｅntY=7２23_Verｓｉon＝３93217TｅxtRTＦ＝$"fｓhoｗ．fｒx"：0０00ＥnｄBeｇinVB.ImaｇｅIｍaｇe１Ｈeｉght=８５5Left＝1２0Ｓtｒetcｈ＝－1’TrueＴｏp=56４０Wｉdth=１095EndＢeginVＢ．ＬｉnｅLine4X1=552０Ｘ2＝552０Ｙ1=5５2０Y2＝6６０0ＥndBegiｎＶB。LineLinｅ３X１=０Ｘ2=７３20Y1＝５５２０Y2=５520ＥndBｅgiｎVB.LiｎeLine2X1=0X２=7３20Y1＝９6０Y2=96０ＥndBeｇinＶB．ＬabelＬａbｅｌ1BaｃｋCｏｌｏｒ=aｍp；H8００0０009aｍp；Heｉｇｈt=6１5Ｌefｔ=１２０ＴabＩｎｄｅｘ=3Ｔｏp＝240Wiｄth＝7095EndEnｄＢｅｇｉｎVB．ＦrａmeＦrａme1Ｈeｉgｈｔ=６7３5Ｌeft=12０TabIndｅx=０Top=24０Wiｄth=2535BegｉnMＳComcｔlLｉb．TreeＶｉeｗTｒeeＶiew１Ｈeｉｇｈt=６37５Lｅｆt=120TabIndex＝２Top=２40Widｔｈ＝２295＿ＥxtenｔX=40４８_ExtｅｎtY=11245＿Vｅrsion＝3９３2１7PatｈＳepaｒａｔor＝”＂Styｌe＝７Ａppeａrａｎcｅ=1ＥndEｎｄBｅginＶB.LiｎeLiｎe１BｏrderColoｒ＝aｍp;Ｈ80０000０１amp；X１＝2760Ｘ2＝２7６0Ｙ1=１20Y2=696０EｎｄＥnｄAttriｂuteVB_Ｎａme＝＂ｆshｏｗ"AtｔribｕｔｅVB＿GlobaｌNameＳpacｅ=FalsｅAttrｉbuteVB_Ｃｒｅatａｂlｅ＝ＦａｌseAttribｕteＶB＿ＰreｄeｃlaｒedIｄ＝ＴrｕeＡttｒibutｅVB_Exposed=FａｌseOptioｎＥxpｌiｃｉtPｒｉｖateSubCｏmmａｎd1_Cliｃk(）UｎloadMeＥndSｕｂPriｖateＳuｂForm_Lｏａｄ（)Dimteｍptoｐ，teｍｐlｅｆｔＡｓLoｎｇ