http://www.vbnew.net/artcile/2j.asp?page=12&id=11&cid=9

 

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

数据库可以采用微软的Access97或者SQL Server来进行，首先新建一张表，取名为Table，添加三个字段，分别是：姓名 Char型（SQL Server中）文本型（Access中）；编号Char型（SQL Server中）文本型（Access中）；照片image型（SQL Server中）OLE对象（Access中），设计好后存盘。为了可以进行远程调用，我们采用ODBC的方法进行，双击打开控制面板里的ODBC数据源，界面如图1所示：

　　点“系统DSN”选项卡，按“添加”按钮选择对应的数据源驱动程序Access的＊.mdb或者SQL Server，依照添加向导加添加数据源，下面就可以开始程序的编写了。

　　二、 程序的编写

　　运行VB，新建一个工程。本程序采用ADO控件和动态链接库访问数据库，需要加入ADO的运行库，单击“工程\引用”菜单，出现引用对话框，选择Microsoft ActiveX Data Objects2.0 Library并确定。

　　添加一个Form，四个Label控件，两个TextBox控件，一个PictureBox控件，一个ADODC控件，三个CommandButton控件，一个CommandDialog控件，如果ADODC和CommandDialog控件没有出现在工具框上，请单击菜单“工程\部件”。点“控件”选项卡，在其中选中Microsoft ADO Data Control 6.0(OLEDB)和Microsoft Common Dialog Control 6.0两项按“确定”按钮。

　　下面是以上各个控件的一些属性：

　　Form1.MaxButton=False

　　Label1.Caption=姓名：

　　Label2.Caption=编号：

　　Label3.Name= ResName

　　Label3.BackColor= ＆H80000009＆

　　Label3.BorderStyle=1－Fixed Single

　　Label3.DataField=姓名

　　Label3.DataSource= AdoCtr

　　Label4.Name= ResNumb

　　Label4.BackColor= ＆H80000009＆

　　Label4.BorderStyle=1－Fixed Single

　　Label4.DataField=编号

　　Label4.DataSource= AdoCtr

　　Text1.Name= Names

　　Text2.Name= Numb

　　CommonDialog1.Name= CDlg

　　Adodc1.Name=AdoCtr

　　CommonButton1.Name=PreView

　　CommonButton1.Caption=预览

　　CommonButton2.Name=Save

　　CommonButton2.Caption=保存

　　CommonButton3.Name= Update

　　CommonButton3.Caption=更新

　　PictureBox1.Name= PicBox

　　PictureBox1.AutoSize=False

　　PictureBox1.AutoRedraw=False

　　PictureBox1.DataField=照片

　　PictureBox1.DataSource=AdpCtr

　　下面是程序代码：

　　′此工程需有Microsoft ActiveX Data Object 2.1 Library(msado15.dll)

　　Dim Constr As String ′ODBC路径

　　Dim FileName As String ′图片文件名

　　Const BLOCKSIZE = 4096 ′每次读写块的大小