數據庫可以采用微軟的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 ′每次讀寫塊的大小
文章來源于領測軟件測試網 http://www.kjueaiud.com/
