ACCESS實例教程(數(shù)據(jù)庫的編程)-課件

Access實例教程1ppt課件ACCESS實例教程

——數(shù)據(jù)庫編程（第9章）2ppt課件1，用ADO訪問數(shù)據(jù)庫2，用DAO訪問數(shù)據(jù)庫3，程序運行錯誤處理本章要點：3ppt課件

9.1VBA數(shù)據(jù)庫訪問接口

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

ODBC稱為“開放式數(shù)據(jù)庫連接”，是一種關(guān)系數(shù)據(jù)源的接口界面。ODBC基于SQL（StructuredQureyLanguage），把SQL作為訪問數(shù)據(jù)庫的標(biāo)準(zhǔn)，一個應(yīng)用程序通過一組通用代碼訪問不同的數(shù)據(jù)庫管理系統(tǒng)。ODBC可以為不同的數(shù)據(jù)庫提供相應(yīng)的驅(qū)動程序。4ppt課件2．DAO（DataAccessObjects）

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

ADO稱為“Active數(shù)據(jù)對象”，是基于組件的數(shù)據(jù)庫編程接口。ADO實際是一種提供訪問各種數(shù)據(jù)類型的連接機制，是一個與編程語言無關(guān)的COM（ComponentObjectModel）組件系統(tǒng)。ADO設(shè)計為一種極簡單的格式，可以方便地連接任何符合ODBC標(biāo)準(zhǔn)的數(shù)據(jù)庫。5ppt課件

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

VBA通過DAO和數(shù)據(jù)引擎可以識別3類數(shù)據(jù)庫：

1．本地數(shù)據(jù)庫：即Access數(shù)據(jù)庫。

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

3．ODBC數(shù)據(jù)庫：符合ODBC標(biāo)準(zhǔn)的C/S數(shù)據(jù)庫，如SQLServer、Oracle。6ppt課件9.2.1DAO模型結(jié)構(gòu)

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

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

用DAO訪問數(shù)據(jù)庫的一般語句和步驟。DimwsasDAO.Workspace'定義Workspace對象變量DimdbasDAO.Database'定義Database對象變量DimrsasDAO.RecordSet'定義RecordSet對象變量DimfdasDAO.Field'定義Field對象變量Setws=DBEngine.Workspace(o)'打開默認(rèn)工作區(qū)Setdb=ws.OpenDatabase(數(shù)據(jù)庫的地址與文件名)'打開數(shù)據(jù)庫Setrs=db.OpenRecordSet(表名、查詢名或SQL語句)'打開記錄集9ppt課件DoWhilenotrs.EOF'循環(huán)遍歷整個記錄集直至記錄集末尾

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

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

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

Connection對象與RecordSet對象是兩個ADO中最重要的對象。RecordSet對象可以分別與Connection對象和Command對象聯(lián)合使用。16ppt課件9.3.3用ADO訪問數(shù)據(jù)庫

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

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

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

Setcn=CurrentProject.Connection()18ppt課件2．RecordSet對與Command對象聯(lián)合使用DimcmasnewADOBD.Command'建立命令對象DimrsasnewADOBD.RecordSet'建立記錄集對象cm.ActiveConnection=連接字符串'建立命令對象的活動連接cm.CommandType=查詢類型'指定命令對象的查詢類型cm.CommandText=查詢字符串'建立命令對象的查詢字符串rs.Opencm,其他參數(shù)'打開記錄集dowhilenotrs.EOF'循環(huán)開始

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

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

MsgBox"添加成功，請繼續(xù)！"EndIfrs.Closecn.CloseSetrs=NothingSetcn=Nothing說明：·在程序中，用"+t1+"取得文本框t1中的值，原來用雙引號定界的地方改為單引號。兩個相同的引號不能連著寫?！xecute是Command對象和Connection對象的方法，執(zhí)行指定的查詢，并將執(zhí)行產(chǎn)生的結(jié)果存儲在Recordset對象中。22ppt課件（5）轉(zhuǎn)到窗體視圖，如果輸入的編號與表中的編號有重復(fù)，單擊命令按鈕后顯示消息框，輸入的信息不能追加到表中。

23ppt課件圖1-15層次模型

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

……aa:'行號aa

錯誤處理程序代碼'處理錯誤

……功能：當(dāng)程序發(fā)生錯誤，跳轉(zhuǎn)到aa位置執(zhí)行。26ppt課件2．OnErrorResumeNext

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

關(guān)閉錯誤處理，禁止當(dāng)前過程中任何已啟動的錯誤處理程序。27ppt課件9.4.2了解錯誤信息1．Err對象

Err是一個含有運行時錯誤信息的對象，Err對象的number屬性返回錯誤代碼。用Err.Source可以幫助確定是哪個對象產(chǎn)生錯誤，用Err.Number可以幫助確定是哪個對象將錯誤代碼放在其中。Err是全