在VB中存取数据库中的图片.doc

《在VB中存取数据库中的图片.doc》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、在VB中存取数据库中的图片一、数据库的设计数据库可以采用微软的Access97或者SQLServer来进行，首先新建一张表，取名为Table，添加三个字段，分别是：姓名Char型（SQLServer中）文本型（Access中）；编号Char型（SQLServer中）文本型（Access中）；照片image型（SQLServer中）OLE对象（Access中），设计好后存盘。为了可以进行远程调用，我们采用ODBC的方法进行，双击打开控制面板里的ODBC数据源,点“系统DSN”选项卡，按“添加”按钮选择对应的数据源驱动程序Access的＊.mdb或者SQLServer，依照

2、添加向导加添加数据源，下面就可以开始程序的编写了。二、程序的编写运行VB，新建一个工程。本程序采用ADO控件和动态链接库访问数据库，需要加入ADO的运行库，单击“工程引用”菜单，出现引用对话框，选择MicrosoftActiveXDataObjects2.0Library并确定。添加一个Form，四个Label控件，两个TextBox控件，一个PictureBox控件，一个ADODC控件，三个CommandButton控件，一个CommandDialog控件，如果ADODC和CommandDialog控件没有出现在工具框上，请单击菜单“工程部件”。点“控件”选项卡，

3、在其中选中MicrosoftADODataControl6.0(OLEDB)和MicrosoftCommonDialogControl6.0两项按“确定”按钮。下面是以上各个控件的一些属性：Form1.MaxButton=FalseLabel1.Caption=姓名：Label2.Caption=编号：Label3.Name=ResNameLabel3.BackColor=＆H＆Label3.BorderStyle=1－FixedSingleLabel3.DataField=姓名Label3.DataSource=AdoCtrLabel4.Name=ResNumbLab

4、el4.BackColor=＆H＆Label4.BorderStyle=1－FixedSingleLabel4.DataField=编号Label4.DataSource=AdoCtrText1.Name=NamesText2.Name=NumbCommonDialog1.Name=CDlgAdodc1.Name=AdoCtrCommonButton1.Name=PreViewCommonButton1.Caption=预览CommonButton2.Name=SaveCommonButton2.Caption=保存CommonButton3.Name=UpdateCo

5、mmonButton3.Caption=更新PictureBox1.Name=PicBoxPictureBox1.AutoSize=FalsePictureBox1.AutoRedraw=FalsePictureBox1.DataField=照片PictureBox1.DataSource=AdpCtr下面是程序代码：′此工程需有MicrosoftActiveXDataObject2.1Library(msado15.dll)DimConstrAsString′ODBC路径DimFileNameAsString′图片文件名ConstBLOCKSIZE=4096′每次读写

6、块的大小DimADOConAsNewADODB.Connection′ADODBConnection对象DimADORstAsNewADODB.Recordset′ADODBRecordset对象DimADOFldAsADODB.Field′ADODBField对象－－－－－－－－－－－－－－－－－－－－－－－－PrivateSubSaveToDB(ByRefFldAsADODB.Field,DiskFileAsString)DimbyteData()AsByte′定义数据块数组DimNumBlocksAsLong′定义数据块个数DimFileLengthAsLong′

7、标识文件长度DimLeftOverAsLong′定义剩余字节长度DimSourceFileAsLong′定义自由文件号DimiAsLong′定义循环变量SourceFile=FreeFile′提供一个尚未使用的文件号OpenDiskFileForBinaryAccessReadAsSourceFile′打开文件FileLength=LOF(SourceFile)′得到文件长度IfFileLength=0Then′判断文件是否存在CloseSourceFileMsgBoxDiskFile＆〃无内容或不存在!〃ElseNumBlocks=Fi