☆ 仲 勇
(海安縣立發(fā)中學(xué),江蘇海安 226611)
在許多單位的各類數(shù)據(jù)管理中經(jīng)常會(huì)用到Access 數(shù)據(jù)庫(kù),而操作者最熟悉的卻是Excel 程序,如果能將Excel程序作為操作的平臺(tái),而用Access 作為后臺(tái)數(shù)據(jù)庫(kù)來存儲(chǔ)和維護(hù)數(shù)據(jù)那就非常方便了。那如何解決兩個(gè)應(yīng)用程序間的接口的問題呢?接下來筆者就給大家介紹最常見的一種方法,即利用ADO 實(shí)現(xiàn)對(duì)Access 數(shù)據(jù)庫(kù)的操作。
小貼士:ADO 是ActiveX Data Objects 的縮寫,又稱為OLE 自動(dòng)化接口,是微軟通用的數(shù)據(jù)庫(kù)訪問技術(shù)。利用ADO 可 以 訪 問 包 括Access、SQLServer、Oracle 等 多 種類型的數(shù)據(jù)庫(kù)。
在Excel 中使用ADO 前必須要設(shè)置ADO 控件的引用。引用的方法是:在Excel VBA 窗口中,單擊“編輯”菜單中的“引用”命令,打開“引用-VBAProject”對(duì)話框,選中“可使用的引用” 列表框中的“Microsoft Active Data Objects 2.8 Library”、“Microsoft Active Data Objects Recordset 2.8 Library”、“Microsoft Jet and Replication Object 2.6 Library” 和“Microsoft Date and Time Picker Control 6.0 (SP4)”(測(cè)試Office 的版本為2003,如圖1),單擊“確定”按鈕即可。
圖1
假設(shè)某單位的職工信息庫(kù)為Access 數(shù)據(jù)庫(kù),文件名為“信息庫(kù).mdb”,庫(kù)中有一張名為“工資表”的表,將Excel 工作簿與該MDB 庫(kù)文件保存在同一路徑下。
首先,在VBA 編輯器中插入一個(gè)用戶窗體,利用窗體控件設(shè)計(jì)(如圖2 所示)的用戶界面。在窗體的“信息錄入或顯示” 區(qū)域中放置的是用來顯示數(shù)據(jù)庫(kù)中各個(gè)字段內(nèi)容所對(duì)應(yīng)的控件;下方放置的是對(duì)數(shù)據(jù)庫(kù)進(jìn)行維護(hù)的功能按鈕(CommandButton1-CommandButton4),右側(cè)放置的用來瀏覽數(shù)據(jù)的功能按鈕(CommandButton6-CommandButton9)。
圖2
(1)首先,對(duì)用戶窗體進(jìn)行初始化,代碼如下:
(2)編寫用于實(shí)現(xiàn)數(shù)據(jù)庫(kù)維護(hù)的“添加”、“刪除”、“查詢”、“更新”的代碼:
(3)調(diào)用“顯示信息”的子程序,用于用戶窗體中記錄的顯示。
(4)分別編寫實(shí)現(xiàn)“首字錄”、“下一條”、“上一條”、“最末條”等用來瀏覽數(shù)據(jù)庫(kù)記錄的按鈕代碼:
(5)應(yīng)用程序窗體關(guān)閉時(shí)要求確認(rèn)的代碼:
另外,還要在工作表中添加一個(gè)命令按鈕,在按鈕的Click 事件中編寫調(diào)用用戶窗體的代碼“UserForm1.Show”,這樣,單擊該按鈕后就可以看到(如圖2 所示)操作界面了。
至此,職工信息管理系統(tǒng)的設(shè)計(jì)就完成了,限于篇幅,我們就不對(duì)各個(gè)功能按鈕的調(diào)試進(jìn)行逐一的介紹了,讀者朋友可下載本案例的示例程序自行調(diào)試。