巧用V B字符串進行數據庫圖片處理

張園園

（山西省大同市大同煤炭職業技術學院，山西大同037003）

我們在設計某些信息管理系統時經常遇到需要處理圖片的情況。如圖1所示的一個學生信息管理系統的界面中，我們希望把每名學生的照片放在窗體上，使界面更加生動、信息更加全面。同樣，在進行報名信息管理時，我們也希望在界面上能看到考生的照片，方便考生進行信息核對。諸如此類圖片的處理一直都是比較復雜的，尤其是對于初學者。

圖1 學生管理

在數據庫中，圖片的特殊性有兩點：1、圖片所占存儲空間常常是比較大的；2、圖片的處理常常需要外部的程序。編寫代碼對于初學者有一定難度。

我們常用ACCESS來設計一般的小型數據庫。在ACCESS中，備注數據類型可以存儲最多65,535個字符，而OLE對象數據類型可以存儲最多1 G字節的鏈接或嵌入的對象（例如Microsoft Excel電子表格、Microsoft Word文檔、圖形、聲音或其它二進制數據）。因為圖片的大小常超出備注數據類型的限制，且用OLE類型更方便，所以我們利用ACCESS數據庫中的OLE數據類型存儲圖片，在VB程序中用OLE控件處理圖片。但是由于OLE對象不能支持ADO和OLEDB，我們要用DAO來連接數據，處理起來不方便。

下面介紹一種在VB程序中處理ACCESS數據庫中處理圖片的辦法。準確地說圖片沒有真正放在ACCESS數據庫，巧妙在于筆者是把圖片文件的文件名以字符型數據存放在數據庫中。同樣可以實現如圖1所示添加記錄中的圖片，還可以更改原有照片。

VB前臺用戶界面與后臺數據庫的連接采用方便、靈活、性能更優的ADO控件。

具體方法如下：

1.數據庫的設計

在設計數據庫時除如圖2所示的平常字段外，還需添加名稱為“zaop”的字段來存放圖片文件名的信息。字段的類型用文本型。這是問題的關鍵，“zaop”的字段必需為文本型，而不是OLE對象。

圖2 學生表

2.連接數據庫

第一步：加入部件

在“工程”菜單的“部件”選項卡的“控件”列表中找到Microsoft ADO Data Control 6.0，單擊左端的復選框，使之顯示對號√，然后單擊“確定”鈕，完成添加。同時在工具箱可見ADO控件。

第二步：添加控件、改變屬性

為窗體添加ADO控件，默認名稱為Adodc1。并連接數據庫文件和表。

這里要注意的是：如圖3所示，連接到數據庫后要刪除數據庫前面的路徑，只留下數據庫文件名。而且數據庫文件要與工程文件放在同一目錄中。

圖3 連接數據庫

第三步：將窗體上有關的文本框綁定到ADODC控件上

對除命令按鈕和圖像框的其它對象設置如下兩個屬性值：

DataSource：數據源就是ADODC控件；

Datafield：數據字段就是表的字段，此處選擇你該使用的字段。

第四步：在代碼中使用ADODC控件對象的屬性和方法

主要是調動其Recordset記錄集對象的屬性、方法等來實現按鈕的功能。這里要討論的是“添加或更換照片”這個按鈕功能的實現，其它的不再贅述。

3.圖像的處理：即“添加或更換照片”這個按鈕功能的實現

(1)首先在窗體上需要添加一個通用對話框：“MicroSoft Common Dialog Control 6.0”。

(2)編寫“添加或更換照片”按鈕的功能，這是本程序的最關鍵的地方，代碼如下：

lj=App.Path'對工程所在路徑賦值給變量

Cd2.ShowOpen'通用對話框執行打開方法選取準備添加或更改的圖片文件

ff=Cd2.FileName'把上面通用對話框所選取的圖片文件保存在變量中，注意此時保存的文件的絕對路徑

zaopian=Mid(ff,Len(App.Path)+2,Len(ff)-Len(App.Path))'利用函數截取所選取的圖片文件的文件名部分

student.Recordset.Fields("zaop").Value=zaopian'把圖片文件名寫入到數據庫存放圖片字段名的字段zaop中

student.Recordset.Update

ChDrive App.Path'設當前驅動器為工程所在驅動器

ChDir App.Path'設當前目錄為工程所在目錄

Image1.Picture=LoadPicture(zaopian)

(3)在瀏覽數據庫的記錄的各按鈕上實現照片的顯示功能，以“下一條”按鈕為例，代碼如下：

在設計程序時可以把所有學生的照片文件存放在工程所在目錄的一個子目錄中如“PIC”，這樣管理起來比較方便。以上是筆者對數據庫中的圖片處理摸索的另一種途徑，希望能對有需要的VB的初學者以及本課程的教師有所幫助。