《Access基礎(chǔ)與應(yīng)用教程PPT課件第9章VBA的數(shù)據(jù)庫(kù)編程》由會(huì)員分享，可在線閱讀，更多相關(guān)《Access基礎(chǔ)與應(yīng)用教程PPT課件第9章VBA的數(shù)據(jù)庫(kù)編程（44頁(yè)珍藏版）》請(qǐng)?jiān)谘b配圖網(wǎng)上搜索。

1、 在 開 發(fā) Access數(shù) 據(jù) 庫(kù) 應(yīng)用 系 統(tǒng) 時(shí) ， 為 了 能 開 發(fā) 出更 實(shí) 用 、 更 有 效 的 Access數(shù)據(jù) 庫(kù) 應(yīng) 用 程 序 ， 以 便 能 快速 、 有 效 地 管 理 好 數(shù) 據(jù) ，還 應(yīng) 當(dāng) 學(xué) 習(xí) 和 掌 握 VBA的數(shù) 據(jù) 庫(kù) 編 程 方 法 。 退出 9.1 數(shù) 據(jù) 庫(kù) 訪 問 接 口9.2 數(shù) 據(jù) 訪 問 對(duì) 象 （ DAO）9.3 ActiveX數(shù) 據(jù) 對(duì) 象 （ ADO） 為了在VBA程序代碼中能方便地實(shí)現(xiàn)對(duì)數(shù)據(jù)庫(kù)的數(shù)據(jù)訪問功能，VBA語(yǔ)言提供有相應(yīng)的通用的接口方式。 VBA是通過 Microsoft Jet 數(shù)據(jù)庫(kù)引擎工具來支持對(duì)數(shù)據(jù)庫(kù)的訪問。所謂

2、數(shù)據(jù)庫(kù)引擎實(shí)際上是一組動(dòng)態(tài)鏈接庫(kù)（DLL），當(dāng)程序運(yùn)行時(shí)被連接到 VBA 程序而實(shí)現(xiàn)對(duì)數(shù)據(jù)庫(kù)的數(shù)據(jù)訪問功能。數(shù)據(jù)庫(kù)引擎是應(yīng)用程序與物理數(shù)據(jù)庫(kù)之間的橋梁，它以一種通用接口的方式，使各種類型物理數(shù)據(jù)庫(kù)對(duì)用戶而言都具有統(tǒng)一的形式和相同的數(shù)據(jù)訪問與處理方法。 在VBA語(yǔ)言中，提供了如下三種基本的數(shù)據(jù)庫(kù)訪問接口: （1）開放數(shù)據(jù)庫(kù)互連應(yīng)用編程接口（簡(jiǎn)稱ODBC API）。 （2）數(shù)據(jù)訪問對(duì)象（簡(jiǎn)稱DAO）。 （3）Active數(shù)據(jù)對(duì)象（簡(jiǎn)稱ADO）。 在VBA語(yǔ)言程序設(shè)計(jì)中，通過數(shù)據(jù)庫(kù)引擎可以訪問如下三種類型的數(shù)據(jù)庫(kù)： （1）本地?cái)?shù)據(jù)庫(kù)，即是 Access 數(shù)據(jù)庫(kù)。 （2）外部數(shù)據(jù)庫(kù)，即是所有的索引順序

3、訪問方法 (ISAM)數(shù)據(jù)庫(kù)。 （3）ODBC數(shù)據(jù)庫(kù)，即是符合開放數(shù)據(jù)庫(kù)連接 (ODBC)標(biāo)準(zhǔn)的數(shù)據(jù)庫(kù)，例如，Oracle、 Microsoft SQL Server等。 數(shù)據(jù)訪問對(duì)象（DAO）是VBA語(yǔ)言提供的一種數(shù)據(jù)訪問接口，包括數(shù)據(jù)庫(kù)、表和查詢的創(chuàng)建等功能，通過運(yùn)行VBA程序代碼可以靈活地控制數(shù)據(jù)訪問的各種操作。 在Access 2010中，可以在VBA程序中使用DAO來訪問（*.mdb）數(shù)據(jù)庫(kù)和（*.accdb）數(shù)據(jù)庫(kù)。 9.2.1 DAO模 型 結(jié) 構(gòu) DAO 模型的分層結(jié)構(gòu)圖如圖10-2所示。它包含了一個(gè)復(fù)雜的可編程數(shù)據(jù)關(guān)聯(lián)對(duì)象的層次，其中 DBEngine對(duì)象處于最頂層，它是模型

4、中惟一不被其他對(duì)象所包含的數(shù)據(jù)庫(kù)引擎本身。層次低一層對(duì)象是，Errors和 Workspaces對(duì)象。層次再低一層對(duì)象如Errors對(duì)象的低一層對(duì)象是Error；Workspaces 對(duì)象的低一層對(duì)象是 Workspace。Databases 的低一層對(duì)象是 Database。Database 的低一層對(duì)象是 Containers、 QueryDefs、RecordSets、Relations 和 TableDefs。TableDefs對(duì)象的低一層對(duì)象是 TableDef。同理如此類推，在此不作詳列。 其中對(duì)象名的尾字符為“s”的那些對(duì)象（如，Errors、Workspaces、Databas

5、es、TableDefs、Fields 等）是集合對(duì)象，集合對(duì)象下一層包含其成員對(duì)象。 對(duì)象說明DBEngine表示Microsoft Jet數(shù)據(jù)庫(kù)引擎。它是DAO模型的最上層對(duì)象，而且包含并控制DAO模型中的其余全部對(duì)象。Workspace表示工作區(qū)。Database表示操作的數(shù)據(jù)庫(kù)對(duì)象。Container表示數(shù)據(jù)庫(kù)中各種對(duì)象的基本數(shù)據(jù)，如使用權(quán)限等。Document表示文檔QueryDef表示數(shù)據(jù)庫(kù)查詢信息。Parameter表示參數(shù)查詢中的參數(shù)。RecordSet表示數(shù)據(jù)操作返回的記錄集。Relation表示數(shù)據(jù)表之間的關(guān)系。TableDef表示數(shù)據(jù)庫(kù)中的表。 Field表示字段，包含數(shù)

6、據(jù)類型和屬性等。Index表示數(shù)據(jù)表中定義的索引字段。Group表示數(shù)據(jù)庫(kù)中的組。User表示使用數(shù)據(jù)庫(kù)的用戶信息。Error包含使用DAO對(duì)象產(chǎn)生的錯(cuò)誤信息。 9.2.2 DAO對(duì) 象 變 量 的 聲 明 和 賦 值 DAO 對(duì)象必須通過 VBA 程序代碼來控制和操作。在代碼中，必須設(shè)置對(duì)象變量，然后再通過對(duì)象變量使用其下的對(duì)象、或者對(duì)象的屬性和方法。 1對(duì)象變量的聲明 同普通變量的聲明一樣，聲明的關(guān)鍵字可以是 Dim、Private、Public 等。 聲明對(duì)象變量的語(yǔ)句格式： Dim 對(duì)象變量名 As 對(duì)象類型 例如： Dim wks As Workspace 聲明wks為工作區(qū)對(duì)象變量

7、 Dim dbs As Database 聲明dbs為數(shù)據(jù)庫(kù)對(duì)象變量 2 對(duì) 象 變 量 的 賦 值 Dim 只是聲明了對(duì)象變量的類型，對(duì)象變量的值必須通過 Set 賦值語(yǔ)句來賦值。Set賦值語(yǔ)句的格式： Set 對(duì)象變量名稱 = 對(duì)象指定聲明例如： Set wks = DBEngine.Workspaces(0) 打開默認(rèn)工作區(qū)（即0號(hào)工作區(qū)） Set dbs = wks.OpenDatabase(E:Access職工管理.accdb) 打開數(shù)據(jù)庫(kù) 例 9-1 例9-1 通過 DAO 編程，顯示當(dāng)前打開的數(shù)據(jù)庫(kù)的名稱。Private Sub Cmd1_Click() Dim wks As W

8、orkspace 聲明工作區(qū)對(duì)象變量 Dim dbs As Database 聲明數(shù)據(jù)庫(kù)對(duì)象變量 Set wks = DBEngine.Workspaces(0) 打開默認(rèn)工作區(qū)（即0號(hào)工作區(qū)） Set dbs = wks.Databases(0) 打開當(dāng)前（默認(rèn)）數(shù)據(jù)庫(kù)（即0號(hào)數(shù)據(jù)庫(kù)） MsgBox dbs.Name Name 是 Database 對(duì)象變量的屬性End Sub 例 9-1 （ 續(xù) ） 9.2.3 DAO對(duì) 象 的 部 分 屬 性 和 方 法 1Database 對(duì)象的常用屬性和方法 Database 對(duì)象代表數(shù)據(jù)庫(kù)。Database對(duì)象的常用屬性如表9-2所示。Databa

9、se對(duì)象的常用方法如表9-3所示。屬性說明Name標(biāo)識(shí)一個(gè)數(shù)據(jù)庫(kù)對(duì)象的名稱Updatable表示數(shù)據(jù)庫(kù)對(duì)象是否可以被更新（為True 可以更新，為 False 不可以更新）表9-2 Database對(duì)象的常用屬性 表9-3 Database對(duì)象的常用方法方法說明CreatQueryDef 創(chuàng)建一個(gè)新的查詢對(duì)象CreatTableDef創(chuàng)建一個(gè)新的表對(duì)象CreatRelation建立新的關(guān)系OpenRecordSet創(chuàng)建一個(gè)新的記錄集Excute執(zhí)行一個(gè)SQL查詢Close關(guān)閉數(shù)據(jù)庫(kù) 2 TableDef 對(duì) 象 的 CreateField方 法 使用 TableDef 對(duì)象的 CreateFi

10、eld 方法可創(chuàng)建表中的字段。 使用 CreateField方 法的語(yǔ)句格式： Set fed = tbe.CreateField(name, type, size) 其中： fed 是字段對(duì)象變量。tbe 是表對(duì)象變量。name是字段名。type 是字段的數(shù)據(jù)類型，要用英文字符表示，如 dbText 表示文本型，dbInteger 表示整型。size 表示字段大小。 3 RecordSet 對(duì) 象 的 常 用 屬 性 和 方 法 RecordSet 對(duì)象代表一個(gè)表或查詢中的所有記錄。RecordSet 對(duì)象提供了對(duì)記錄的添加、刪除和修改等操作的支持。 RecordSet 對(duì)象的常用屬性如表9

11、-4所示。 RecordSet 對(duì)象的常用方法如表9-5所示。 表9-4 RecordSet對(duì)象的常用屬性 屬性說明Bof若為 True，記錄指針指向記錄集的第一個(gè)記錄之前Eof若為 True，記錄指針指向記錄集的最后一個(gè)記錄之后Filter設(shè)置篩選條件過濾出滿足條件的記錄RecordCount返回記錄集對(duì)象中的記錄個(gè)數(shù)NoMatch使用 Find 方法時(shí)，如果沒有匹配的記錄，則為 True，否則為 False 表9-5 RecordSet 對(duì)象的常用方法的方法方法說明AddNew添加新記錄Delete刪除當(dāng)前記錄Eidt編輯當(dāng)前記錄。FindFirst查找第一個(gè)滿足條件的記錄。FindLas

12、t查找最后一個(gè)滿足條件的記錄。FindNext查找下一個(gè)滿足條件的記錄。FindPrevious查找前一個(gè)滿足條件的記錄。Move移動(dòng)記錄指針。MoveFirst把記錄指針移到第一個(gè)記錄。MoveLast把記錄指針移到最后一個(gè)記錄。 MoveNext把記錄指針移到下一個(gè)記錄。MovePrevious把記錄指針移到前一個(gè)記錄。Requery重新運(yùn)行查詢，以更新 RecordSet 中的記錄。 9.2.4 利 用 DAO訪 問 數(shù) 據(jù) 庫(kù) 在 VBA 編程中，利用 DAO 實(shí)現(xiàn)對(duì)數(shù)據(jù)庫(kù)訪問時(shí)，要先創(chuàng)建對(duì)象變量，再通過對(duì)象方法和屬性來進(jìn)行操作。 下面通過例子介紹利用 DAO 實(shí)現(xiàn)對(duì)數(shù)據(jù)庫(kù)訪問的一般語(yǔ)

13、句和步驟： 例 9-2 （ DAO數(shù) 據(jù) 庫(kù) 編 程 例 ） 例9-2編寫一個(gè)使用DAO的名為UseDaoUpdateAge的子過程，通過調(diào)用該子過程來完成對(duì)“職工管理”數(shù)據(jù)庫(kù)的“職工基本資料”表的年齡字段值都加1的操作（假設(shè)“職工管理.accdb”數(shù)據(jù)庫(kù)文件存放在E盤“E:Access”文件夾中，“職工基本資料”表中的“年齡”字段的數(shù)據(jù)類型是整型）。本例的窗體名稱為“例9-2使用DAO編程-年齡加1”。 Cmd1 命令按鈕的單擊事件過程和 UseDaoUpdateAge 子過程的VBA程序代碼如下： 例9-2 例 9-3 （ DAO數(shù) 據(jù) 庫(kù) 編 程 例 ） 例9-3 通過在VBA程序中使用

14、DAO，在當(dāng)前數(shù)據(jù)庫(kù)中創(chuàng)建一個(gè)名為“用戶表”的表?！坝脩舯怼钡谋斫Y(jié)構(gòu)如表9-6所示。該表的主鍵是“用戶ID”字段。本例的窗體名是“例9-3 用 DAO 創(chuàng)建數(shù)據(jù)表”，窗體中的命令按鈕名稱是Cmd1。 例 9-3VBA 代 碼 例 9-4 （ DAO數(shù) 據(jù) 庫(kù) 編 程 例 ） 例9-4通過在VBA程序中使用DAO，實(shí)現(xiàn)的當(dāng)前數(shù)據(jù)庫(kù)中的“用戶表”添加新記錄。本例的窗體名是“例9-4用DAO往用戶表添加記錄”，如圖9-2所示。 例 9-4VBA 代 碼 9.3 ActiveX數(shù) 據(jù) 對(duì) 象 （ ADO） ActiveX數(shù)據(jù)對(duì)象（ActiveX Data Objects ，簡(jiǎn)稱ADO）是基于組件的數(shù)據(jù)

15、庫(kù)編程接口，它可以對(duì)來自多種數(shù)據(jù)提供者的數(shù)據(jù)進(jìn)行讀取和寫入操作。 在Access模塊設(shè)計(jì)時(shí)要使用ADO的各個(gè)數(shù)據(jù)對(duì)象，需要增加對(duì)ADO庫(kù)的引用。其中，在Access 2010中，要在VBA程序中使用ADO來訪問（*.accdb）數(shù)據(jù)庫(kù), 需要增加對(duì)“Microsoft ActiveX Data Objects 6.1 Library” 庫(kù)的引用。該引用的設(shè)置方法：打開VBE窗口，單擊菜單欄上的“工具”，單擊“工具”菜單中的“引用”項(xiàng)，彈出“引用”對(duì)話框，從“可使用的引用”列表項(xiàng)中，選中“Microsoft ActiveX Data Objects 6.1 Library”項(xiàng)的復(fù)選框，如圖9-4

16、所示，然后單擊“確定”按鈕。 本節(jié)僅介紹使用ADO來訪問（*.accdb）數(shù)據(jù)庫(kù). 9.3.1 ADO模 型 結(jié) 構(gòu) ADO對(duì)象模型圖如圖9-5所示，它提供一系列數(shù)據(jù)對(duì)象供使用。不過，ADO 接口與 DAO不同，ADO對(duì)象不須派生，大多數(shù)對(duì)象都可以直接創(chuàng)建（Field 和 Error 除外），沒有對(duì)象的分級(jí)結(jié)構(gòu)。 使用時(shí)，只需在程序中創(chuàng)建對(duì)象變量，并通過對(duì)象變量來調(diào)用訪問對(duì)象方法、設(shè)置訪問對(duì)象屬性，這樣就實(shí)現(xiàn)對(duì)數(shù)據(jù)庫(kù)的各項(xiàng)訪問操作。ADO 只需要九個(gè)對(duì)象和四個(gè)集合（對(duì)象）就能提供其整個(gè)功能。 圖 9-5 ADO對(duì) 象 模 型 圖 表9-7 ADO對(duì)象說明 9.3.2 ADO對(duì) 象 變 量 的

17、聲 明 ADO 對(duì)象必須通過 VBA 程序代碼來控制和操作。在代碼中，必須設(shè)置對(duì)象變量，然后再通過對(duì)象變量使用其下的對(duì)象、或者對(duì)象的屬性和方法。 聲明對(duì)象變量的語(yǔ)句格式： Dim 對(duì)象變量名稱 As ADODB.對(duì)象類型 例如：Dim con As New ADODB.Connection 聲明一個(gè)連接對(duì)象變量Dim res As New ADODB.RecordSet 聲明一個(gè)記錄集對(duì)象變量 注意，ADODB 是 ADO 類型庫(kù)的短名稱，用于識(shí)別與DAO中同名的對(duì)象。例如，DAO中有 RecordSet 對(duì)象，ADO 中也有 RecordSet對(duì)象，為了能夠區(qū)分開來，在 ADO 中聲明 Re

18、cordSet 類型對(duì)象變量時(shí)，用上 ADODB.RecordSet?？傊贏DO中聲明對(duì)象變量時(shí)，一般都要用上“ADODB.”前綴。 9.3.3 ADO對(duì) 象 的 部 分 屬 性 和 方 法1Connection 對(duì)象的常用方法（1）Open方法通過使用Connection 對(duì)象的Open方法來建立與數(shù)據(jù)源的連接。 Open方法的語(yǔ)句格式：Dim 連接對(duì)象變量名 As New ADODB.Connection連接對(duì)象變量名.Open ConnectionString, UserID, Password, OpenOptions例如，創(chuàng)建與“職工管理.mdb”數(shù)據(jù)庫(kù)連接的語(yǔ)句：Dim cnn

19、 As New ADODB.Connection 聲明一個(gè)連接對(duì)象變量cnncnn.Open Provider=Microsoft.Jet.OLEDB.4.0; Data Source=E:Access職工管理.mdb （2）Close方法 通過使用 Connection 對(duì)象的 Close 方法來關(guān)閉與數(shù)據(jù)源的連接。 Close方法的語(yǔ)句格式： 連接對(duì)象變量名.Close 注意，該語(yǔ)句可以關(guān)閉Connection 對(duì)象，斷開應(yīng)用程序與數(shù)據(jù)源的連接。但是Connection 仍在內(nèi)存中，釋放 Connection 對(duì)象變量的方法是使用下面語(yǔ)句格式的語(yǔ)句： 釋放連接對(duì)象變量的語(yǔ)句格式： Set連

20、接對(duì)象變量名= nothing 例如，關(guān)閉與“職工管理.accdb”數(shù)據(jù)庫(kù)連接的語(yǔ)句：cnn.CloseSetcnn = nothing （3）如果指定的數(shù)據(jù)源就是當(dāng)前已經(jīng)打開的數(shù)據(jù)庫(kù)，則必須通過 CurrentProject 對(duì)象的Connection屬性來取得連接。 語(yǔ)句格式：Dim 連接對(duì)象變量名 As New ADODB.ConnectionSet 連接對(duì)象變量名= CurrentProject.Connection 例如：創(chuàng)建與當(dāng)前已經(jīng)打開的數(shù)據(jù)庫(kù)的連接：Dim cnn As New ADODB.Connection Set cnn = CurrentProject.Connecti

21、on 建立 Recordset 對(duì)象的語(yǔ)句格式： Dim 記錄集對(duì)象變量名 As ADODB.Recordset Set 記錄集對(duì)象變量名 = New ADODB.Recordset RecordSet 對(duì)象的常用屬性如表9-8所示。 RecordSet對(duì)象的常用方法如表9-9所示。 屬性說明Bof若為True，記錄指針指向記錄集的頂部（即指向第一個(gè)記錄之前）。Eof若為True，記錄指針指向記錄集的底部（即指向最后一個(gè)記錄之后）。RecordCount返回記錄集對(duì)象中的記錄個(gè)數(shù)。 方法說明Open打開一個(gè) Recordset 對(duì)象。Close關(guān)閉一個(gè) Recordset 對(duì)象。AddNew在

22、 Recordset 對(duì)象中添加一個(gè)記錄。Update將 Recordset 對(duì)象中的數(shù)據(jù)保存（即寫入）到數(shù)據(jù)庫(kù)。CancelUpdate取消對(duì) Recordset 對(duì)象的更新操作。Delete刪除 Recordset 對(duì)象中的一個(gè)或多個(gè)記錄。Find在 Recordset 中查找滿足指定條件的行。Move移動(dòng)記錄指針到指定位置。MoveFirst把記錄指針移到第一個(gè)記錄。MoveLast把記錄指針移到最后一個(gè)記錄。MoveNext把記錄指針移到下一個(gè)記錄。 MovePrevious把記錄指針移到前一個(gè)記錄。Clone復(fù)制某個(gè)已存在的 RecordSet 對(duì)象。 （1）建立 Command 對(duì)

23、象 建立 Command 對(duì)象的語(yǔ)句格式： Dim 對(duì)象變量名 As New ADODB.Command（2）Command 對(duì)象的常用屬性如表9-10所示。（3）Command對(duì)象的常用方法如表9-11所示。 屬性說明ActiveConnection指明 Connection 對(duì)象。 CommandText指明查詢命令的文本內(nèi)容，可以是 SQL 語(yǔ)句。 方法說明Execute執(zhí)行在 CommandText 屬性中指定的 SQL 查詢命令。 9.3.4 利 用 ADO訪 問 數(shù) 據(jù) 庫(kù) 在VBA編程中，利用ADO實(shí)現(xiàn)對(duì)數(shù)據(jù)庫(kù)訪問時(shí)，要先創(chuàng)建對(duì)象變量，再通過對(duì)象方法和屬性來進(jìn)行操作。 注意，在

24、Access 的 VBA 語(yǔ)言中，為 ADO 提供了類似 DAO 的數(shù)據(jù)庫(kù)打開快捷方式，即CurrentProject.Connection，它指向一個(gè)默認(rèn)的ADODB.Connection 對(duì)象，該對(duì)象與當(dāng)前數(shù)據(jù)庫(kù)的Jet OLE DB服務(wù)提供者一起工作。不像CurrentDB() 是可選的，用戶必須使用CurrentProject.Connection 作為當(dāng)前打開數(shù)據(jù)庫(kù)的 ADODB.Connection 對(duì)象。 例9-5編寫一個(gè)使用ADO的名為UseAdoUpdateAge的子過程，通過調(diào)用該子過程來完成對(duì)“職工管理”數(shù)據(jù)庫(kù)的“職工基本資料”表的年齡字段值都加1的操作（假設(shè)“職工管理.accdb”數(shù)據(jù)庫(kù)文件存放在E盤“E:Access”文件夾中，“職工基本資料”表中的“年齡”字段的數(shù)據(jù)類型是整型）。本例的窗體名稱為“例9-5使用ADO編程-年齡加1”。 Cmd1 命令按鈕的單擊事件過程和 UseAdoUpdateAge 子過程的 VBA 程序代碼如下：