在VB中存取數(shù)據(jù)庫(kù)中的圖片

2019-11-18 17:46:26

字體：大中小

供稿：網(wǎng)友

　　一、數(shù)據(jù)庫(kù)的設(shè)計(jì)

　　數(shù)據(jù)庫(kù)可以采用微軟的 access97或者SQLServer來(lái)進(jìn)行，首先新建一張表，取名為Table，添加三個(gè)字段，分別是：姓名Char型（SQLServer中）文本型（Access中）；編號(hào)Char型（SQLServer中）文本型（Access中）；照片image型（SQLServer中）OLE對(duì)象（Access中），設(shè)計(jì)好后存盤。為了可以進(jìn)行遠(yuǎn)程調(diào)用，我們采用ODBC的方法進(jìn)行，雙擊打開控制面板里的ODBC數(shù)據(jù)源，界面如圖1所示：
　　點(diǎn)“系統(tǒng)DSN”選項(xiàng)卡，按“添加”按鈕選擇對(duì)應(yīng)的數(shù)據(jù)源驅(qū)動(dòng)程序Access的＊.mdb或者SQLServer，依照添加向?qū)Ъ犹砑訑?shù)據(jù)源，下面就可以開始程序的編寫了。

　　二、程序的編寫

　　運(yùn)行VB，新建一個(gè)工程。本程序采用ADO控件和動(dòng)態(tài)鏈接庫(kù)訪問數(shù)據(jù)庫(kù)，需要加入ADO的運(yùn)行庫(kù)，單擊“工程/引用”菜單，出現(xiàn)引用對(duì)話框，選擇MicrosoftActiveXDataObjects2.0Library并確定。
　　添加一個(gè)Form，四個(gè)Label控件，兩個(gè)TextBox控件，一個(gè)PictureBox控件，一個(gè)ADODC控件，三個(gè)CommandButton控件，一個(gè)CommandDialog控件，如果ADODC和CommandDialog控件沒有出現(xiàn)在工具框上，請(qǐng)單擊菜單“工程/部件”。點(diǎn)“控件”選項(xiàng)卡，在其中選中MicrosoftADODataControl6.0(OLEDB)和MicrosoftCommonDialogControl6.0兩項(xiàng)按“確定”按鈕。
　　下面是以上各個(gè)控件的一些屬性：
　　Form1.MaxButton=False
　　Label1.Caption=姓名：
　　Label2.Caption=編號(hào)：
　　Label3.Name=ResName
　　Label3.BackColor=＆H80000009＆
　　Label3.BorderStyle=1－FixedSingle
　　Label3.DataField=姓名
　　Label3.DataSource=AdoCtr
　　Label4.Name=ResNumb
　　Label4.BackColor=＆H80000009＆
　　Label4.BorderStyle=1－FixedSingle
　　Label4.DataField=編號(hào)
　　Label4.DataSource=AdoCtr
　　Text1.Name=Names
　　Text2.Name=Numb
　　CommonDialog1.Name=CDlg
　　Adodc1.Name=AdoCtr
　　CommonButton1.Name=PReView
　　CommonButton1.Caption=預(yù)覽
　　CommonButton2.Name=Save
　　CommonButton2.Caption=保存
　　CommonButton3.Name=Update
　　CommonButton3.Caption=更新
　　PictureBox1.Name=PicBox
　　PictureBox1.AutoSize=False
　　PictureBox1.AutoRedraw=False
　　PictureBox1.DataField=照片
　　PictureBox1.DataSource=AdpCtr
　　下面是程序代碼：
　　′此工程需有MicrosoftActiveXDataObject2.1Library(msado15.dll)
　　DimConstrAsString′ODBC路徑
　　DimFileNameAsString′圖片文件名
　　ConstBLOCKSIZE=4096′每次讀寫塊的大小
　　DimADOConAsNewADODB.Connection′ADODBConnection對(duì)象
　　DimADORstAsNewADODB.Recordset′ADODBRecordset對(duì)象
　　DimADOFldAsADODB.Field′ADODBField對(duì)象
－－－－－－－－－－－－－－－－－－－－－－－－
　　PrivateSubSaveToDB(ByRefFldAsADODB.Field,DiskFileAsString)
　　DimbyteData()AsByte′定義數(shù)據(jù)塊數(shù)組
　　DimNumBlocksAsLong′定義數(shù)據(jù)塊個(gè)數(shù)
　　DimFileLengthAsLong′標(biāo)識(shí)文件長(zhǎng)度
　　DimLeftOverAsLong′定義剩余字節(jié)長(zhǎng)度
　　DimSourceFileAsLong′定義自由文件號(hào)
　　DimiAsLong′定義循環(huán)變量
　　SourceFile=FreeFile′提供一個(gè)尚未使用的文件號(hào)
　　OpenDiskFileForBinaryAccessReadAsSourceFile′打開文件
　　FileLength=LOF(SourceFile)′得到文件長(zhǎng)度
　　IfFileLength=0Then′判斷文件是否存在
　　CloseSourceFile
　　MsgBoxDiskFile＆″無(wú)內(nèi)容或不存在!″
　　Else
　　NumBlocks=FileLength/BLOCKSIZE′得到數(shù)據(jù)塊的個(gè)數(shù)
　　LeftOver=FileLengthModBLOCKSIZE′得到剩余字節(jié)數(shù)
　　Fld.Value=Null
　　ReDimbyteData(BLOCKSIZE)′重新定義數(shù)據(jù)塊的大小
　　Fori=1ToNumBlocks
　　GetSourceFile,,byteData()′讀到內(nèi)存塊中
　　Fld.AppendChunkbyteData()′寫入FLD
　　Nexti
　　ReDimbyteData(LeftOver)′重新定義數(shù)據(jù)塊的大小
　　GetSourceFile,,byteData()′讀到內(nèi)存塊中
　　Fld.AppendChunkbyteData()′寫入FLD
　　CloseSourceFile′關(guān)閉源文件
　　EndIf
　　EndSub
　?。?br>　　PrivateSubForm_Load()
　　Constr=″DSN=image″′定義ODBC連接
　　ADOCon.OpenConstr′創(chuàng)建一個(gè)連接
　　ADORst.Open″table″,ADOCon,adOpenDynamic,adLockOptimistic
　　′打開一個(gè)ADO動(dòng)態(tài)集表名為table
　　SetAdoCtr.Recordset=ADORst′將動(dòng)態(tài)集賦給ADO控件
　　EndSub
　?。?br>　　PrivateSubForm_Unload(CancelAsInteger)
　　′記得關(guān)閉打開的數(shù)據(jù)集，釋放資源
　　ADORst.Close
　　ADOCon.Close
　　SetADORst=Nothing
　　SetADOCon=Nothing
　　EndSub
　?。?br>　　PrivateSubPreView_Click()
　　′顯示打開文件的公用對(duì)話框，選擇需要加入數(shù)據(jù)庫(kù)的圖片
　　CDlg.Filter=″位圖(＊.bmp)|＊.bmp″
　　CDlg.ShowOpen
　　FileName=CDlg.FileName
　　PicBox.Picture=LoadPicture(FileName)′預(yù)覽圖片
　　EndSub
　?。?br>　　PrivateSubSave_Click()
　　ADORst.AddNew′新增紀(jì)錄
　　ADORst(″姓名″).Value=Names.Text′給動(dòng)態(tài)集的第一個(gè)字段賦值
　　ADORst(″編號(hào)″).Value=Numb.Text′給動(dòng)態(tài)集的第二個(gè)字段賦值
　　SetADOFld=ADORst(″照片″)′給ADODB.Field對(duì)象賦值
　　CallSaveToDB(ADOFld,FileName)′調(diào)用子程序，給第三個(gè)字段（image）賦值
　　ADORst.Update
　　EndSub
　?。?br>　　PrivateSubUpdate_Click()
　　′重新打開紀(jì)錄集，刷新紀(jì)錄
　　ADORst.Close
　　ADOCon.Close
　　SetADORst=Nothing
　　SetADOCon=Nothing
　　ADOCon.OpenConstr
　　ADORst.Open″table″,ADOCon,adOpenDynamic,adLockOptimistic
　　SetAdoCtr.Recordset=ADORst
　　EndSub
　　程序運(yùn)行后的結(jié)果如圖2。
　　本程序在VB6.0／Windows98／WindowsNT下編譯通過。->

上一篇：ADO控件和DATA控件的沖突（不能共存）的解決方法

下一篇：ADO簡(jiǎn)介