ACCESS實(shí)例教程(數(shù)據(jù)庫(kù)的編程)教學(xué)課件

Access實(shí)例教程

2021/8/231精品PPT模板ACCESS實(shí)例教程

——數(shù)據(jù)庫(kù)編程（第9章）2021/8/232精品PPT模板1，用ADO訪問(wèn)數(shù)據(jù)庫(kù)2，用DAO訪問(wèn)數(shù)據(jù)庫(kù)3，程序運(yùn)行錯(cuò)誤處理本章要點(diǎn)：2021/8/233精品PPT模板

9.1VBA數(shù)據(jù)庫(kù)訪問(wèn)接口

VBA數(shù)據(jù)庫(kù)訪問(wèn)接口是指VBA與后臺(tái)數(shù)據(jù)庫(kù)的連接部分，也就是VBA與Access數(shù)據(jù)庫(kù)連接的方法。9.1.1三種數(shù)據(jù)庫(kù)訪問(wèn)接口1．ODBC（OpenDatabaseConnectivity），

ODBC稱(chēng)為“開(kāi)放式數(shù)據(jù)庫(kù)連接”，是一種關(guān)系數(shù)據(jù)源的接口界面。ODBC基于SQL（StructuredQureyLanguage），把SQL作為訪問(wèn)數(shù)據(jù)庫(kù)的標(biāo)準(zhǔn)，一個(gè)應(yīng)用程序通過(guò)一組通用代碼訪問(wèn)不同的數(shù)據(jù)庫(kù)管理系統(tǒng)。ODBC可以為不同的數(shù)據(jù)庫(kù)提供相應(yīng)的驅(qū)動(dòng)程序。2021/8/234精品PPT模板2．DAO（DataAccessObjects）

DAO稱(chēng)為“數(shù)據(jù)訪問(wèn)對(duì)象”，是一種面向?qū)ο蟮慕缑娼涌?，提供一個(gè)訪問(wèn)數(shù)據(jù)庫(kù)的對(duì)象模型，用其中定義的一系列數(shù)據(jù)訪問(wèn)對(duì)象，實(shí)現(xiàn)對(duì)數(shù)據(jù)庫(kù)的各種操作。使用DAO的程序編碼非常簡(jiǎn)單。3．ADO（ActiveXDataObjects）

ADO稱(chēng)為“Active數(shù)據(jù)對(duì)象”，是基于組件的數(shù)據(jù)庫(kù)編程接口。ADO實(shí)際是一種提供訪問(wèn)各種數(shù)據(jù)類(lèi)型的連接機(jī)制，是一個(gè)與編程語(yǔ)言無(wú)關(guān)的COM（ComponentObjectModel）組件系統(tǒng)。ADO設(shè)計(jì)為一種極簡(jiǎn)單的格式，可以方便地連接任何符合ODBC標(biāo)準(zhǔn)的數(shù)據(jù)庫(kù)。2021/8/235精品PPT模板

數(shù)據(jù)庫(kù)引擎是一組動(dòng)態(tài)鏈接庫(kù)DLL（DynamicLinkLibrary），在程序運(yùn)行時(shí)被連接到VBA，實(shí)現(xiàn)對(duì)數(shù)據(jù)庫(kù)的數(shù)據(jù)訪問(wèn)功能。是應(yīng)用程序與物理數(shù)據(jù)庫(kù)之間的橋梁。

VBA通過(guò)DAO和數(shù)據(jù)引擎可以識(shí)別3類(lèi)數(shù)據(jù)庫(kù)：

1．本地?cái)?shù)據(jù)庫(kù)：即Access數(shù)據(jù)庫(kù)。

2．外部數(shù)據(jù)庫(kù)：所有索引順序訪問(wèn)方法（ISAM）數(shù)據(jù)庫(kù)，如VFP。也可以訪問(wèn)文本文件數(shù)據(jù)庫(kù)和MicrosoftExcel或Lotus1-2-3電子表格。

3．ODBC數(shù)據(jù)庫(kù)：符合ODBC標(biāo)準(zhǔn)的C/S數(shù)據(jù)庫(kù)，如SQLServer、Oracle。2021/8/236精品PPT模板9.2.1DAO模型結(jié)構(gòu)

DAO模型是設(shè)計(jì)關(guān)系數(shù)據(jù)庫(kù)系統(tǒng)結(jié)構(gòu)的對(duì)象類(lèi)的集合，它們提供了管理關(guān)系型數(shù)據(jù)庫(kù)系統(tǒng)所需的全部操作的屬性和方法，這其中包括創(chuàng)建數(shù)據(jù)庫(kù)、定義表、字段和索引、建立表之間的關(guān)系、定位和查詢(xún)數(shù)據(jù)庫(kù)等。9.2用DAO訪問(wèn)數(shù)據(jù)庫(kù)2021/8/237精品PPT模板3.2統(tǒng)配符、運(yùn)算符與常用函數(shù)9.2.2DAO對(duì)象簡(jiǎn)介1．DBEngine對(duì)象，處于最頂層，表示數(shù)據(jù)庫(kù)引擎，是模型中惟一不被其他對(duì)象所包含的對(duì)象，它包含并控制DAO模型中其他全部對(duì)象。2．Workspace對(duì)象，表示工作區(qū)，可以使用隱含的workspace對(duì)象。3．Database對(duì)象，代表到數(shù)據(jù)庫(kù)的連接，表示操作的數(shù)據(jù)庫(kù)對(duì)象。4．RecordSet對(duì)象，代表一個(gè)數(shù)據(jù)記錄的集合，該集合的記錄來(lái)自于一個(gè)表、一個(gè)查詢(xún)或一個(gè)SQL語(yǔ)句的運(yùn)行結(jié)果。5．Field對(duì)象，表示記錄集中的字段。6．QueryDef對(duì)象，表示數(shù)據(jù)庫(kù)查詢(xún)信息。7．Error對(duì)象，表示數(shù)據(jù)提供程序出錯(cuò)時(shí)的擴(kuò)展信息。2021/8/238精品PPT模板9.2.3用DAO訪問(wèn)數(shù)據(jù)庫(kù)

用DAO訪問(wèn)數(shù)據(jù)庫(kù)時(shí)，先在程序中設(shè)置對(duì)象變量，然后通過(guò)對(duì)象變量調(diào)用訪問(wèn)對(duì)象的方法、設(shè)置訪問(wèn)對(duì)象的屬性，從而實(shí)現(xiàn)對(duì)數(shù)據(jù)庫(kù)的各種訪問(wèn)。定義DAO對(duì)象要在對(duì)象前面加上前綴“DAO”

用DAO訪問(wèn)數(shù)據(jù)庫(kù)的一般語(yǔ)句和步驟。DimwsasDAO.Workspace'定義Workspace對(duì)象變量DimdbasDAO.Database'定義Database對(duì)象變量DimrsasDAO.RecordSet'定義RecordSet對(duì)象變量DimfdasDAO.Field'定義Field對(duì)象變量Setws=DBEngine.Workspace(o)'打開(kāi)默認(rèn)工作區(qū)Setdb=ws.OpenDatabase(數(shù)據(jù)庫(kù)的地址與文件名)'打開(kāi)數(shù)據(jù)庫(kù)Setrs=db.OpenRecordSet(表名、查詢(xún)名或SQL語(yǔ)句)'打開(kāi)記錄集2021/8/239精品PPT模板DoWhilenotrs.EOF'循環(huán)遍歷整個(gè)記錄集直至記錄集末尾

……'對(duì)字段的各種操作rs.MoveNext'記錄指針移到下一條Loop'返回到循環(huán)開(kāi)始處rs.close'關(guān)閉記錄集db.close'關(guān)閉數(shù)據(jù)庫(kù)setrs=nothing'釋放記錄集對(duì)象變量所占內(nèi)存空間setdb=nothing'釋放數(shù)據(jù)庫(kù)對(duì)象變量所占內(nèi)存空間說(shuō)明：如果是本地?cái)?shù)據(jù)庫(kù)，可以省略定義Workspace對(duì)象變量，打開(kāi)工作區(qū)和打開(kāi)數(shù)據(jù)庫(kù)兩條語(yǔ)句用下面一條語(yǔ)句代替：Setdb=CurrentDb()該語(yǔ)句是Access的VBA給DAO提供的數(shù)據(jù)庫(kù)打開(kāi)快捷方式。

2021/8/2310精品PPT模板例：用DAO訪問(wèn)數(shù)據(jù)庫(kù)（1）在窗體建2個(gè)文本框→名稱(chēng)分別為t1和t2→附加標(biāo)簽的標(biāo)題分別為“姓名”和“工資”。（2）在窗體頁(yè)眉添加標(biāo)簽→標(biāo)題為“工資增加10%”。（3）在窗體頁(yè)腳建命令按鈕→名稱(chēng)為c1→標(biāo)題為“顯示第一條記錄”。2021/8/2311精品PPT模板（4）給命令按鈕的單擊事件寫(xiě)代碼如下：DimdbasDAO.Database'定義Database對(duì)象變量DimrsasDAO.Recordset'定義Recordset對(duì)象變量DimfdasDAO.Field'定義Field對(duì)象變量Setdb=CurrentDb()'建立與當(dāng)前數(shù)據(jù)庫(kù)的連接Setrs=db.OpenRecordset("gz")'建立與gz表的連接Setfd=rs.Fields("工資")'設(shè)置對(duì)“工資”字段的引用DoWhileNotrs.EOF'如果指針沒(méi)有到最后就執(zhí)行循環(huán)體rs.Edit'使rs處于可編輯狀態(tài)fd=fd+fd*0.1'給指定字段值增加10%rs.Update'更新表2021/8/2312精品PPT模板rs.MoveNext'向下移動(dòng)指針Loop'返回到循環(huán)開(kāi)始處rs.MoveFirst'指針移到第一條記錄t1=rs.Fields("姓名")'將姓名字段的值顯示在t1中t2=rs.Fields("工資")'將工資字段的值顯示在t2中rs.Closedb.CloseSetrs=NothingSetdb=Nothing2021/8/2313精品PPT模板（5）轉(zhuǎn)到窗體視圖→單擊命令按鈕，可以看到t2文本框中顯示第一條記錄更新后的工資值。2021/8/2314精品PPT模板9.3用ADO訪問(wèn)數(shù)據(jù)庫(kù)

9.3.1ADO模型結(jié)構(gòu)ADO對(duì)象模型是一系列對(duì)象的集合，對(duì)象不分級(jí)，除Field對(duì)象和Error對(duì)象之外，其他對(duì)象可直接創(chuàng)建。使用時(shí)，通過(guò)對(duì)象變量調(diào)用對(duì)象的方法、設(shè)置對(duì)象的屬性，實(shí)現(xiàn)對(duì)數(shù)據(jù)庫(kù)的訪問(wèn)。2021/8/2315精品PPT模板9.3.2ADO對(duì)象簡(jiǎn)介1．Connection對(duì)象，建立到數(shù)據(jù)源的連接。2．Command對(duì)象，表示一個(gè)命令。3．RecordSet對(duì)象，表示數(shù)據(jù)操作返回的記錄集合。4．Field對(duì)象，表示記錄集中的字段。5．Error對(duì)象，表示數(shù)據(jù)提供程序出錯(cuò)時(shí)的擴(kuò)展信息。

Connection對(duì)象與RecordSet對(duì)象是兩個(gè)ADO中最重要的對(duì)象。RecordSet對(duì)象可以分別與Connection對(duì)象和Command對(duì)象聯(lián)合使用。2021/8/2316精品PPT模板9.3.3用ADO訪問(wèn)數(shù)據(jù)庫(kù)

首先創(chuàng)建對(duì)象變量，然后用對(duì)象的方法和屬性訪問(wèn)數(shù)據(jù)庫(kù)。為了與DAO中同名對(duì)象有所區(qū)分，ADO對(duì)象的前面要加上前綴“ADODB”。用ADO訪問(wèn)數(shù)據(jù)庫(kù)的一般語(yǔ)句和步驟：

1．RecordSet對(duì)與Connection對(duì)象聯(lián)合使用DimcnasnewADOBD.Connection'建立連接對(duì)象DimrsasnewADOBD.RecordSet'建立記錄集對(duì)象cn.Provider="Microsoft.Jet.OLEDB.4.0"'設(shè)置數(shù)據(jù)提供者cn.Open連接字符串'打開(kāi)數(shù)據(jù)庫(kù)rs.Open查詢(xún)字符串'打開(kāi)記錄集dowhilenotrs.EOF'循環(huán)開(kāi)始

……'對(duì)字段的各種操作rs.movenext'記錄指針移到下一條2021/8/2317精品PPT模板loop'返回到循環(huán)開(kāi)始處rs.close'關(guān)閉記錄集cn.close'關(guān)閉連接setrs=nothing'釋放記錄集對(duì)象變量所占內(nèi)存空間setcn=nothing'釋放連接對(duì)象變量所占內(nèi)存空間說(shuō)明：對(duì)于本地?cái)?shù)據(jù)庫(kù)，Access的VBA也給ADO提供了類(lèi)似于DAO的數(shù)據(jù)庫(kù)打開(kāi)快捷方式，可以將設(shè)置數(shù)據(jù)提供者和打開(kāi)數(shù)據(jù)庫(kù)兩條語(yǔ)句用下面一條語(yǔ)句代替：

Setcn=CurrentProject.Connection()2021/8/2318精品PPT模板2．RecordSet對(duì)與Command對(duì)象聯(lián)合使用DimcmasnewADOBD.Command'建立命令對(duì)象DimrsasnewADOBD.RecordSet'建立記錄集對(duì)象cm.ActiveConnection=連接字符串'建立命令對(duì)象的活動(dòng)連接cm.CommandType=查詢(xún)類(lèi)型'指定命令對(duì)象的查詢(xún)類(lèi)型cm.CommandText=查詢(xún)字符串'建立命令對(duì)象的查詢(xún)字符串rs.Opencm,其他參數(shù)'打開(kāi)記錄集dowhilenotrs.EOF'循環(huán)開(kāi)始

……'對(duì)字段的各種操作rs.movenext'記錄指針移到下一條loop'返回到循環(huán)開(kāi)始處rs.close'關(guān)閉記錄集setrs=nothing'釋放記錄集對(duì)象變量所占內(nèi)存空間2021/8/2319精品PPT模板例：用ADO訪問(wèn)數(shù)據(jù)庫(kù)（1）在窗體建3個(gè)文本框→名稱(chēng)分別為t1、t2和t3。（2）在窗體頁(yè)眉添加標(biāo)簽→標(biāo)題為“工員增加”。（3）在窗體頁(yè)腳建命令按鈕→名稱(chēng)為c1→標(biāo)題為“追加到表中”。2021/8/2320精品PPT模板

（4）命令按鈕c1的單擊事件代碼：DimcnAsNewADODB.ConnectionDimrsAsNewADODB.RecordsetDimstr1AsStringSetcn=CurrentProject.Connection'建立本地連接rs.ActiveConnection=cnrs.Open"Select教師編號(hào)From教師Where教師編號(hào)='"+t1+"'"Ifrs.EOF=FalseThenMsgBox"該編號(hào)已存在，不能追加！"Elsestr1="InsertInto教師(教師編號(hào),姓名,性別)“str1=str1+"Values('"+t1+"','"+t2+"','"+t3+"')"cn.Executestr1'執(zhí)行指定的SQL語(yǔ)句2021/8/2321精品PPT模板

MsgBox"添加成功，請(qǐng)繼續(xù)！"EndIfrs.Closecn.CloseSetrs=NothingSetcn=Nothing說(shuō)明：·在程序中，用"+t1+"取得文本框t1中的值，原來(lái)用雙引號(hào)定界的地方改為單引號(hào)。兩個(gè)相同的引號(hào)不能連著寫(xiě)?！xecute是Command對(duì)象和Connection對(duì)象的方法，執(zhí)行指定的查詢(xún)，并將執(zhí)行產(chǎn)生的結(jié)果存儲(chǔ)在Recordset對(duì)象中。2021/8/2322精品PPT模板（5）轉(zhuǎn)到窗體視圖，如果輸入的編號(hào)與表中的編號(hào)有重復(fù)，單擊命令按鈕后顯示消息框，輸入的信息不能追加到表中。

2021/8/2323精品PPT模板圖1-15層次模型

（6）如果輸入的編號(hào)與表中的編號(hào)不重復(fù)，單擊命令按鈕后顯示消息框，輸入的信息被追加表中。2021/8/2324精品PPT模板9.4VBA程序錯(cuò)誤處理VBA提供了OnError語(yǔ)句，用來(lái)控制當(dāng)有錯(cuò)誤發(fā)生時(shí)程序的處理，啟動(dòng)一個(gè)錯(cuò)誤處理程序并指定該子程序在一個(gè)過(guò)程中的位置。一個(gè)錯(cuò)誤處理程序不是Sub過(guò)程或Function過(guò)程，它是一段用行號(hào)標(biāo)記的代碼。9.4.1OnError語(yǔ)句的語(yǔ)法OnError語(yǔ)句的語(yǔ)法通常有3種樣式：2021/8/2325精品PPT模板1．OnErrorGoTo行號(hào)啟動(dòng)錯(cuò)誤處理程序，如果發(fā)生一個(gè)運(yùn)行時(shí)錯(cuò)誤，控件會(huì)轉(zhuǎn)到行號(hào)所指位置，執(zhí)行其中的代碼。指定的行號(hào)必須在一個(gè)過(guò)程中，這個(gè)過(guò)程與OnError語(yǔ)句所在的過(guò)程相同。例如：OnErrorGoToaa'如果發(fā)生錯(cuò)誤轉(zhuǎn)到aa處

……aa:'行號(hào)aa

錯(cuò)誤處理程序代碼'處理錯(cuò)誤

……功能：當(dāng)程序發(fā)生錯(cuò)誤，跳轉(zhuǎn)到aa位置執(zhí)行。2021/8/2326精品PPT模板2．OnErrorResumeNext

當(dāng)一個(gè)運(yùn)行錯(cuò)誤發(fā)生時(shí)，不考慮錯(cuò)誤，繼續(xù)執(zhí)行下一條語(yǔ)句。訪問(wèn)對(duì)象時(shí)要使用這種形式而不使用OnErrorGoTo語(yǔ)句。3．OnErrorGoTo0

關(guān)閉錯(cuò)誤處理，禁止當(dāng)前過(guò)程中任何已啟動(dòng)的錯(cuò)誤處理程序。2021/8/2327精品PPT模板9.4.2了解錯(cuò)誤信息1．Err對(duì)象

Err是一個(gè)含有運(yùn)行時(shí)錯(cuò)誤信息的對(duì)象，Err對(duì)象的number屬性返回錯(cuò)誤代碼。用Err.Source可以幫助確定是哪個(gè)對(duì)象產(chǎn)生錯(cuò)誤，用Err.Number可以幫助確定是哪個(gè)對(duì)象將錯(cuò)誤代碼放在其中。Err是全局范圍的固有對(duì)象，在代碼中不必建立這些對(duì)象的實(shí)例。2．Rrror函數(shù)格式：Rrror（錯(cuò)誤號(hào)）

Rrror函數(shù)的自變量是一個(gè)有效的錯(cuò)誤號(hào)，函數(shù)返回與已知錯(cuò)誤號(hào)對(duì)應(yīng)的錯(cuò)誤信息。如果不是有效的錯(cuò)誤號(hào)，會(huì)導(dǎo)致錯(cuò)誤發(fā)生。錯(cuò)誤號(hào)是可選項(xiàng)，如果省略，將返回與最近一次運(yùn)行錯(cuò)誤對(duì)應(yīng)的消息。如果沒(méi)有發(fā)生運(yùn)行錯(cuò)誤，或者錯(cuò)誤號(hào)是0，則Error函數(shù)返回一個(gè)長(zhǎng)度為零的字符串("")。2021/8/2328精品PPT模板例：錯(cuò)誤處理練習(xí)

（1）建文本框→名稱(chēng)為t1→建立命令按鈕→名稱(chēng)為c1。（2）命令按鈕c1的單擊事件代碼：PrivateSubc1_Click()OnErrorGoToaa'如發(fā)生錯(cuò)誤轉(zhuǎn)到行號(hào)aaDims1AsStrings1=t1DoCmd.OpenQuerys1,acViewNormal,acEdit'打開(kāi)查詢(xún)bb:'行號(hào)bbExitSub'退出過(guò)程aa:'行號(hào)aaMsgBox"沒(méi)有此查詢(xún),請(qǐng)重新輸入!"Resumebb'轉(zhuǎn)到行號(hào)bbEndSub2021/8/2329精品PPT模板

（3）轉(zhuǎn)到窗體視圖，在文本框輸入“男講師”，單擊命令按鈕，顯示名為“男講師”的查詢(xún)。2021/8/2330精品PPT模板（4）在文本框輸入“女講師”，單擊命令按鈕，調(diào)用錯(cuò)誤處理