ACCESS實例教程(第9章)

1、ACCESS實例教程1，用ADO訪問數(shù)據(jù)庫2，用DAO訪問數(shù)據(jù)庫3，程序運行錯誤處理本章要點：本章要點：ACCESS實例教程 9.1 VBA數(shù)據(jù)庫訪問接口 VBA數(shù)據(jù)庫訪問接口是指VBA與后臺數(shù)據(jù)庫的連接部分，也就是VBA與Access數(shù)據(jù)庫連接的方法。 9.1.1 三種數(shù)據(jù)庫訪問接口1ODBC（Open Database Connectivity）， ODBC稱為“開放式數(shù)據(jù)庫連接”，是一種關系數(shù)據(jù)源的接口界面。ODBC基于SQL（Structured Qurey Language），把SQL作為訪問數(shù)據(jù)庫的標準，一個應用程序通過一組通用代碼訪問不同的數(shù)據(jù)庫管理系統(tǒng)。ODBC可以為不同的數(shù)據(jù)

2、庫提供相應的驅動程序。ACCESS實例教程2DAO（Data Access Objects） DAO稱為“數(shù)據(jù)訪問對象”，是一種面向對象的界面接口，提供一個訪問數(shù)據(jù)庫的對象模型，用其中定義的一系列數(shù)據(jù)訪問對象，實現(xiàn)對數(shù)據(jù)庫的各種操作。使用DAO的程序編碼非常簡單。3ADO（ActiveX Data Objects） ADO稱為“Active數(shù)據(jù)對象”，是基于組件的數(shù)據(jù)庫編程接口。ADO實際是一種提供訪問各種數(shù)據(jù)類型的連接機制，是一個與編程語言無關的COM（Component Object Model）組件系統(tǒng)。ADO設計為一種極簡單的格式，可以方便地連接任何符合ODBC標準的數(shù)據(jù)庫。 ACCE

3、SS實例教程 數(shù)據(jù)庫引擎是一組動態(tài)鏈接庫DLL（Dynamic Link Library），在程序運行時被連接到VBA，實現(xiàn)對數(shù)據(jù)庫的數(shù)據(jù)訪問功能。是應用程序與物理數(shù)據(jù)庫之間的橋梁。 VBA通過DAO和數(shù)據(jù)引擎可以識別3類數(shù)據(jù)庫： 1本地數(shù)據(jù)庫：即Access數(shù)據(jù)庫。 2外部數(shù)據(jù)庫：所有索引順序訪問方法（ISAM）數(shù)據(jù)庫，如VFP。也可以訪問文本文件數(shù)據(jù)庫和Microsoft Excel或Lotus1-2-3電子表格。 3ODBC數(shù)據(jù)庫：符合ODBC標準的C/S數(shù)據(jù)庫，如SQL Server、Oracle。ACCESS實例教程9.2.1 DAO模型結構 DAO模型是設計關系數(shù)據(jù)庫系統(tǒng)結構的對象

4、類的集合，它們提供了管理關系型數(shù)據(jù)庫系統(tǒng)所需的全部操作的屬性和方法，這其中包括創(chuàng)建數(shù)據(jù)庫、定義表、字段和索引、建立表之間的關系、定位和查詢數(shù)據(jù)庫等。 9.2 用DAO訪問數(shù)據(jù)庫ACCESS實例教程3.2 統(tǒng)配符、運算符與常用函數(shù)統(tǒng)配符、運算符與常用函數(shù)9.2.2 DAO對象簡介1DBEngine對象，處于最頂層，表示數(shù)據(jù)庫引擎，是模型中惟一不被其他對象所包含的對象，它包含并控制DAO模型中其他全部對象。2Workspace對象，表示工作區(qū)，可以使用隱含的workspace對象。3Database對象，代表到數(shù)據(jù)庫的連接，表示操作的數(shù)據(jù)庫對象。4RecordSet對象，代表一個數(shù)據(jù)記錄的集合，該

5、集合的記錄來自于一個表、一個查詢或一個SQL語句的運行結果。5Field對象，表示記錄集中的字段。6QueryDef對象，表示數(shù)據(jù)庫查詢信息。7Error對象，表示數(shù)據(jù)提供程序出錯時的擴展信息。 ACCESS實例教程9.2.3 用DAO訪問數(shù)據(jù)庫 用DAO訪問數(shù)據(jù)庫時，先在程序中設置對象變量，然后通過對象變量調(diào)用訪問對象的方法、設置訪問對象的屬性，從而實現(xiàn)對數(shù)據(jù)庫的各種訪問。定義DAO對象要在對象前面加上前綴“DAO” 用DAO訪問數(shù)據(jù)庫的一般語句和步驟。Dim ws as DAO.Workspace 定義Workspace對象變量Dim db as DAO.Database 定義Databa

6、se對象變量Dim rs as DAO.RecordSet 定義RecordSet對象變量Dim fd as DAO.Field 定義Field對象變量Set ws=DBEngine.Workspace(o) 打開默認工作區(qū)Set db=ws.OpenDatabase(數(shù)據(jù)庫的地址與文件名) 打開數(shù)據(jù)庫Set rs=db.OpenRecordSet(表名、查詢名或SQL語句) 打開記錄集ACCESS實例教程Do While not rs.EOF 循環(huán)遍歷整個記錄集直至記錄集末尾 對字段的各種操作rs.MoveNext 記錄指針移到下一條Loop 返回到循環(huán)開始處rs.close 關閉記錄集db

7、.close 關閉數(shù)據(jù)庫set rs=nothing 釋放記錄集對象變量所占內(nèi)存空間set db=nothing 釋放數(shù)據(jù)庫對象變量所占內(nèi)存空間說明： 如果是本地數(shù)據(jù)庫，可以省略定義Workspace對象變量，打開工作區(qū)和打開數(shù)據(jù)庫兩條語句用下面一條語句代替：Set db = CurrentDb()該語句是Access的VBA給DAO提供的數(shù)據(jù)庫打開快捷方式。 ACCESS實例教程例：用例：用DAODAO訪問數(shù)據(jù)庫訪問數(shù)據(jù)庫（1）在窗體建2個文本框名稱分別為t1和t2附加標簽的標題分別為“姓名”和“工資”。（2）在窗體頁眉添加標簽標題為“工資增加10%”。（3）在窗體頁腳建命令按鈕名稱為c1標

8、題為“顯示第一條記錄”。 ACCESS實例教程（4）給命令按鈕的單擊事件寫代碼如下：Dim db as DAO.Database 定義Database對象變量Dim rs as DAO.Recordset 定義Recordset對象變量Dim fd as DAO.Field 定義Field對象變量Set db = CurrentDb() 建立與當前數(shù)據(jù)庫的連接Set rs = db.OpenRecordset(gz) 建立與gz表的連接Set fd = rs.Fields(工資) 設置對“工資”字段的引用Do While Not rs.EOF 如果指針沒有到最后就執(zhí)行循環(huán)體rs.Edit 使r

9、s處于可編輯狀態(tài)fd = fd + fd * 0.1 給指定字段值增加10%rs.Update 更新表ACCESS實例教程rs.MoveNext 向下移動指針Loop 返回到循環(huán)開始處rs.MoveFirst 指針移到第一條記錄t1 = rs.Fields(姓名) 將姓名字段的值顯示在t1中t2 = rs.Fields(工資) 將工資字段的值顯示在t2中rs.Closedb.CloseSet rs = NothingSet db = NothingACCESS實例教程（5）轉到窗體視圖單擊命令按鈕，可以看到t2文本框中顯示第一條記錄更新后的工資值。 ACCESS實例教程9.3 用ADO訪問數(shù)據(jù)

10、庫 9.3.1 ADO模型結構 ADO對象模型是一系列對象的集合，對象不分級，除Field對象和Error對象之外，其他對象可直接創(chuàng)建。使用時，通過對象變量調(diào)用對象的方法、設置對象的屬性，實現(xiàn)對數(shù)據(jù)庫的訪問。ACCESS實例教程9.3.2 ADO對象簡介1Connection對象，建立到數(shù)據(jù)源的連接。2Command對象，表示一個命令。3RecordSet對象，表示數(shù)據(jù)操作返回的記錄集合。4Field對象，表示記錄集中的字段。5Error對象，表示數(shù)據(jù)提供程序出錯時的擴展信息。 Connection對象與RecordSet對象是兩個ADO中最重要的對象。RecordSet對象可以分別與Conn

11、ection對象和Command對象聯(lián)合使用。 ACCESS實例教程9.3.3 用ADO訪問數(shù)據(jù)庫 首先創(chuàng)建對象變量，然后用對象的方法和屬性訪問數(shù)據(jù)庫。為了與DAO中同名對象有所區(qū)分，ADO對象的前面要加上前綴“ADODB”。用ADO訪問數(shù)據(jù)庫的一般語句和步驟： 1 1RecordSetRecordSet對與對與ConnectionConnection對象聯(lián)合使用對象聯(lián)合使用Dim cn as new ADOBD.Connection 建立連接對象Dim rs as new ADOBD.RecordSet 建立記錄集對象cn.Provider=Microsoft.Jet.OLEDB.4.0 設

12、置數(shù)據(jù)提供者cn.Open 連接字符串 打開數(shù)據(jù)庫rs.Open 查詢字符串 打開記錄集do while not rs.EOF 循環(huán)開始 對字段的各種操作rs.movenext 記錄指針移到下一條ACCESS實例教程loop 返回到循環(huán)開始處rs.close 關閉記錄集cn.close 關閉連接set rs=nothing 釋放記錄集對象變量所占內(nèi)存空間set cn=nothing 釋放連接對象變量所占內(nèi)存空間說明： 對于本地數(shù)據(jù)庫，Access的VBA也給ADO提供了類似于DAO的數(shù)據(jù)庫打開快捷方式，可以將設置數(shù)據(jù)提供者和打開數(shù)據(jù)庫兩條語句用下面一條語句代替： Set cn = Curren

13、tProject.Connection() ACCESS實例教程2 2RecordSetRecordSet對與對與CommandCommand對象聯(lián)合使用對象聯(lián)合使用Dim cm as new ADOBD.Command 建立命令對象Dim rs as new ADOBD.RecordSet 建立記錄集對象cm.ActiveConnection=連接字符串 建立命令對象的活動連接cm.CommandType=查詢類型 指定命令對象的查詢類型cm.CommandText=查詢字符串 建立命令對象的查詢字符串rs. Open cm, 其他參數(shù) 打開記錄集do while not rs.EOF 循環(huán)

14、開始 對字段的各種操作rs.movenext 記錄指針移到下一條loop 返回到循環(huán)開始處rs.close 關閉記錄集set rs=nothing 釋放記錄集對象變量所占內(nèi)存空間ACCESS實例教程例：用例：用ADOADO訪問數(shù)據(jù)庫訪問數(shù)據(jù)庫（1）在窗體建3個文本框名稱分別為t1、t2和t3。（2）在窗體頁眉添加標簽標題為“工員增加”。（3）在窗體頁腳建命令按鈕名稱為c1標題為“追加到表中”。 ACCESS實例教程 （4）命令按鈕c1的單擊事件代碼：Dim cn As New ADODB.ConnectionDim rs As New ADODB.RecordsetDim str1 As St

15、ringSet cn = CurrentProject.Connection 建立本地連接rs.ActiveConnection = cnrs.Open Select 教師編號 From 教師 Where 教師編號= +t1+ If rs.EOF = False ThenMsgBox 該編號已存在，不能追加！Elsestr1 = Insert Into 教師 (教師編號,姓名,性別)“str1 = str1 + Values(+t1+ , +t2+ , +t3+ )cn.Execute str1 執(zhí)行指定的SQL語句ACCESS實例教程 MsgBox 添加成功，請繼續(xù)！ End If rs.C

16、lose cn.Close Set rs = Nothing Set cn = Nothing說明： 在程序中，用 +t1+ 取得文本框t1中的值，原來用雙引號定界的地方改為單引號。兩個相同的引號不能連著寫。 Execute 是Command 對象和Connection對象的方法，執(zhí)行指定的查詢，并將執(zhí)行產(chǎn)生的結果存儲在 Recordset 對象中。 ACCESS實例教程（5）轉到窗體視圖，如果輸入的編號與表中的編號有重復，單擊命令按鈕后顯示消息框，輸入的信息不能追加到表中。 ACCESS實例教程（6）如果輸入的編號與表中的編號不重復，單擊命令按鈕后顯示消息框，輸入的信息被追加表中。 ACCE

17、SS實例教程9.4 VBA程序錯誤處理 VBA提供了On Error語句，用來控制當有錯誤發(fā)生時程序的處理，啟動一個錯誤處理程序并指定該子程序在一個過程中的位置。 一個錯誤處理程序不是 Sub 過程或 Function 過程，它是一段用行號標記的代碼。9.4.1 On Error語句的語法On Error語句的語法通常有3種樣式：ACCESS實例教程1On Error GoTo 行號 啟動錯誤處理程序，如果發(fā)生一個運行時錯誤，控件會轉到行號所指位置，執(zhí)行其中的代碼。指定的行號必須在一個過程中，這個過程與 On Error 語句所在的過程相同。例如：On Error GoTo aa 如果發(fā)生錯誤

18、轉到aa處 aa: 行號aa 錯誤處理程序代碼 處理錯誤 功能：當程序發(fā)生錯誤，跳轉到aa位置執(zhí)行。 ACCESS實例教程2On Error Resume Next 當一個運行錯誤發(fā)生時，不考慮錯誤，繼續(xù)執(zhí)行下一條語句。訪問對象時要使用這種形式而不使用 On Error GoTo語句。3On Error GoTo 0 關閉錯誤處理，禁止當前過程中任何已啟動的錯誤處理程序。ACCESS實例教程9.4.2 了解錯誤信息1Err對象 Err是一個含有運行時錯誤信息的對象，Err對象的number屬性返回錯誤代碼。用Err.Source可以幫助確定是哪個對象產(chǎn)生錯誤，用 Err.Number 可以幫助確定是哪個對象將錯誤代碼放在其中。Err 是全局范圍的固有對象，在代碼中不必建立這些對象的實例。2Rrror函數(shù) 格式：Rrror（錯誤號） Rrror函數(shù)的自變量是一個有效的錯誤號，函數(shù)返回與已知錯誤號對應的錯誤信息。如果不是有效的錯誤號，會導致錯誤發(fā)生。錯誤號是可選項，如果省略，將返回與最近一次運行錯誤對應的消息。如果沒有發(fā)生運行錯誤，或者錯誤號是 0，則 Error函數(shù) 返回一個長度為零的字符串 ()。ACCESS實例教程例：錯誤處理練習 （1）建文本框名稱為t1建立命令按鈕名稱為c1。（2）命令按鈕c1的單擊事