在VB中存取數據庫中的圖片

一、 數據庫的設計

　　數據庫可以采用微軟的Aclearcase/" target="_blank" >ccess97或者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.anti-gravitydesign.com