VB中使用ADO對(duì)象模型編程訪問(wèn)數(shù)據(jù)庫(kù)

1、VB中使用ADO對(duì)象模型編程訪問(wèn)數(shù)據(jù)庫(kù)樊繼(平頂山工業(yè)職業(yè)技術(shù)學(xué)院,河南平頂山467001 Usage of ADO object model programme interview database in Visual BasicFANJI(Pingdingshan Industrial College of Technology, henan 467001 , China摘要:本文介紹了幾種Visual Basic中訪問(wèn)數(shù)據(jù)庫(kù)方法,主要是使用ADO訪問(wèn)數(shù)據(jù)庫(kù)的方法,通過(guò)一個(gè)簡(jiǎn)單的使用ADO訪問(wèn)ACCESS數(shù)據(jù)庫(kù)實(shí)例示范如何使用ADO訪問(wèn)數(shù)據(jù)庫(kù),并對(duì)ADO可編程的對(duì)象集合進(jìn)行了分析。關(guān)鍵字:

2、數(shù)據(jù)庫(kù)訪問(wèn)方式;ADO;Command對(duì)象;Connection對(duì)象;Recordset對(duì)象中圖分類號(hào):文獻(xiàn)標(biāo)識(shí)碼:Abstract:This text introduced same methods of the interview database in Visual Basics, mainly the method that uses the ADO interview database, pass a solid example of a simple usage that ADO interview ACCESS database show the demonstration th

3、at use the ADO interview database, and get the programmable object gathered of ADO to carry on analysis.Key words:the database interview method; ADO; command object; connection object; recordset object 在VB的開(kāi)發(fā)環(huán)境中,可以使用三種數(shù)據(jù)庫(kù)訪問(wèn)方式,它們分別是:數(shù)據(jù)訪問(wèn)對(duì)象(DAO、遠(yuǎn)程數(shù)據(jù)對(duì)象(RDO和ADO對(duì)象模型。ADO作為最新的數(shù)據(jù)庫(kù)訪問(wèn)模式,具有易于使用、訪問(wèn)靈活、應(yīng)用廣泛的特點(diǎn).。它

4、比RDO和DAO更加簡(jiǎn)單、更加靈活的對(duì)象模型。對(duì)于新工程,應(yīng)該使用ADO作為數(shù)據(jù)訪問(wèn)接口。本文重點(diǎn)介紹ADO訪問(wèn)數(shù)據(jù)庫(kù)的具體實(shí)現(xiàn)。1 三種數(shù)據(jù)庫(kù)訪問(wèn)方式1.1DAO(Data Access Objects數(shù)據(jù)訪問(wèn)對(duì)象DAO一種面向?qū)ο蟮慕缑娼涌?。通過(guò)DAO/Jet功能可以訪問(wèn)ISAM數(shù)據(jù)庫(kù),使用DAO/ODBC Direct功能可以實(shí)現(xiàn)遠(yuǎn)程RDO功能。使用DAO的程序編碼非常簡(jiǎn)單,DAO提供豐富的游標(biāo)(Cursor類型的結(jié)果集和非游標(biāo)(Cursor-Less類型的結(jié)果集,同DDL(數(shù)據(jù)描述語(yǔ)言的功能很類似。DAO可通過(guò)ODBC像直接連接到其它數(shù)據(jù)庫(kù)一樣,直接連接到Access數(shù)據(jù)庫(kù)。DAO最適

5、用于單系統(tǒng)應(yīng)用程序或小范圍本地分布使用。DAO模型是設(shè)計(jì)關(guān)系數(shù)據(jù)庫(kù)系統(tǒng)結(jié)構(gòu)的對(duì)象類的集合。它們提供了完成管理這樣一個(gè)系統(tǒng)所需的全部操作的屬性和方法,包括創(chuàng)建數(shù)據(jù)庫(kù),定義表、字段和索引,建立表間的關(guān)系,定位和查詢數(shù)據(jù)庫(kù)等工具。1.2RDO(Remote Data Objects遠(yuǎn)程數(shù)據(jù)對(duì)象RDO是一個(gè)到ODBC的、面向?qū)ο蟮臄?shù)據(jù)訪問(wèn)接口,它同易于使用的DAO style組合在一起,提供了一個(gè)接口,形式上展示出所有ODBC的底層功能和靈活性。盡管RDO在很好地訪問(wèn)Jet或ISAM數(shù)據(jù)庫(kù)方面受到限制,而且它只能通過(guò)現(xiàn)存的ODBC驅(qū)動(dòng)程序來(lái)訪問(wèn)關(guān)系數(shù)據(jù)庫(kù)。但是,RDO已被證明是許多SQL Server

6、、Oracle 以及其他大型關(guān)系數(shù)據(jù)庫(kù)開(kāi)發(fā)者經(jīng)常選用的最佳接口。RDO提供了用來(lái)訪問(wèn)存儲(chǔ)過(guò)程和復(fù)雜結(jié)果集的更多和更復(fù)雜的對(duì)象、屬性,以及方法。和DAO一樣,在VB中也把其封裝為RDO控件了,其使用方法與DAO控件的使用方法完全一樣。1.3ADO(Active Data ObjectsActive數(shù)據(jù)對(duì)象ADO是一項(xiàng)新的數(shù)據(jù)庫(kù)的存取技術(shù),可以訪問(wèn)任何種類數(shù)據(jù)源的數(shù)據(jù)訪問(wèn)接口。通過(guò)ADO 來(lái)可引用包括SQL Server、Oracle、ACCESS 等數(shù)據(jù)庫(kù)、甚至EXCEL表格、文本文件、圖形文件和無(wú)格式的數(shù)據(jù)文件在內(nèi)的任何一種OLE DB數(shù)據(jù)源。ADO涉及的數(shù)據(jù)存儲(chǔ)有DSN(數(shù)據(jù)源名稱、ODBC

7、(開(kāi)放式數(shù)據(jù)連接以及OLE DB三種方式。ADO技術(shù)為連接數(shù)據(jù)源提供了三種方法:ADO數(shù)據(jù)控件、Data environment designer 和代碼中定義的對(duì)象。本例重1點(diǎn)介紹在代碼中定義對(duì)象的方法。2 ADO可編程對(duì)象集合(ADO對(duì)象模型使用ADO對(duì)象模型編程首先必須在工程中添加對(duì)ADO庫(kù)的引用。在你的工程/引用中選擇Microsoft ActiveX Data Objects 2.6 Library。2.1 Connection 對(duì)象包含關(guān)于某個(gè)數(shù)據(jù)提供程序的信息。并且包含了關(guān)于結(jié)構(gòu)描述的信息。它還包含某些RDOEnvironment 對(duì)象的功能,例如transaction 控件。C

8、onnection對(duì)象用于建立與數(shù)據(jù)庫(kù)的連接,通過(guò)連接可從應(yīng)用程序訪問(wèn)數(shù)據(jù)源。它保存諸如指針類型、連接字符串、查詢超時(shí)、連接超時(shí)和缺省數(shù)據(jù)庫(kù)這樣的連接信息。2.2 Error對(duì)象包含數(shù)據(jù)提供程序出錯(cuò)時(shí)的擴(kuò)展信息。2.3 Property對(duì)象包含某個(gè) ADO 對(duì)象的提供程序定義的特征。2.4 Command 對(duì)象包含關(guān)于某個(gè)命令,例如查詢字符串、參數(shù)定義等的信息。在建立Connection后,可以發(fā)出命令操作數(shù)據(jù)源。一般情況下Command對(duì)象可以在數(shù)據(jù)庫(kù)中添加、刪除或更新數(shù)據(jù),或者在表中進(jìn)行數(shù)據(jù)查詢。Command對(duì)象在定義查詢參數(shù)或執(zhí)行一個(gè)有輸出參數(shù)的存儲(chǔ)過(guò)程時(shí)非常有用。2.5 Parame

9、ter 對(duì)象包含參數(shù)化的Command對(duì)象的某單個(gè)參數(shù)的信息。該 Command對(duì)象有一個(gè)包含其所有Parameter 對(duì)象的 Parameters 集合。2.6 Recordset對(duì)象用來(lái)存儲(chǔ)數(shù)據(jù)操作返回的記錄集。Recordset對(duì)象只代表一個(gè)記錄集,這個(gè)記錄集是一個(gè)連接的數(shù)據(jù)庫(kù)中的表,或者是Command對(duì)象的執(zhí)行結(jié)果返回的記錄集。在ADO對(duì)象模型中,是在行中檢查和修改數(shù)據(jù)的最主要的方法,所有對(duì)數(shù)據(jù)的操作幾乎都是在Recordset對(duì)象中完成的。Record對(duì)象用于指定行、移動(dòng)行、添加、更改、刪除記錄。2.7 Field 對(duì)象包含記錄集中數(shù)據(jù)的某單個(gè)列的信息。掌握其中的:Command、

10、Connection、Recordset對(duì)象就可以實(shí)現(xiàn)基本的數(shù)據(jù)庫(kù)操作。3 使用ADO訪問(wèn)數(shù)據(jù)庫(kù)的具體步驟3.1 連接數(shù)據(jù)源利用Connection對(duì)象的Open方法可以創(chuàng)建一個(gè)數(shù)據(jù)源的連接。語(yǔ)法:Connection對(duì)象.Open ConnectionString, UserID, PassWord, OpenOptions 其中:Connection對(duì)象為你定義的Connection對(duì)象的實(shí)例;ConnectionString為可選項(xiàng),包含了連接的數(shù)據(jù)庫(kù)的信息;UserID 可選項(xiàng),包含建立連接的用戶名;PassWord為可選項(xiàng),包含建立連接的用戶密碼;OpenOptions為可選項(xiàng),假如

11、設(shè)置為adConnectAsync,則連接將異步打開(kāi)。3.2打開(kāi)記錄集對(duì)象收稿日期:;修訂日期:作者簡(jiǎn)介:樊繼(1961女,漢,河南,平頂山工業(yè)職業(yè)技術(shù)學(xué)院計(jì)算機(jī)系網(wǎng)絡(luò)教研室。講師。碩士在讀主要從事網(wǎng)絡(luò)數(shù)據(jù)庫(kù)等教學(xué)實(shí)際上記錄集返回的是一個(gè)從數(shù)據(jù)庫(kù)取回的查詢結(jié)果集。因此他有兩種打開(kāi)方法:一種使用記錄集的Open方法,另一種是用Connection對(duì)象的Execute方法。3.2.1 記錄集的Open方法語(yǔ)法:Recordset.Open Source, ActiveConnection, CursorType, LockType, Options 其中:Recordset為所定義的記錄集對(duì)象的實(shí)

12、例。Source可選項(xiàng),指明了所打開(kāi)的記錄源信息?？梢允呛戏ǖ拿?、對(duì)象變量名、SQL語(yǔ)句、表名、存儲(chǔ)過(guò)程調(diào)用或保存記錄集的文件名。ActiveConnection可選項(xiàng),合法的已打開(kāi)的Connection對(duì)象的變量名或者是包含ConnectionString參數(shù)的字符串。CursorType可選項(xiàng),確定打開(kāi)記錄集對(duì)象使用的指針類型。LockType可選項(xiàng),確定打開(kāi)記錄集對(duì)象使用的鎖定類型。3.2.2 Connection對(duì)象的Execute方法語(yǔ)法:Set recordset=Connection.Execute(CommandText,RecordsAffected,Options 其中:

13、 CommandText 一個(gè)字符串,返回要執(zhí)行的SQL命令、表名、存儲(chǔ)過(guò)程或指定文本。 RecordsAffected 可選項(xiàng),Long類型的值,返回操作影響的記錄數(shù)。Options 可選項(xiàng),Long類型值,指明如何處理CommandText參數(shù)。打開(kāi)了recordset對(duì)象之后,我們就可以使用它的addnew、delete、update、movenext、find等方法了。3.3 使用記錄集3.3.1添加新記錄的AddNew方法語(yǔ)法:Recordset.AddNew FieldList, Values其中:Recordset為記錄集對(duì)象實(shí)例FieldList為一個(gè)字段名,或者是一個(gè)字段數(shù)組

14、。Values為給要加信息的字段賦的值,如果FiledList為一個(gè)字段名,那么Values應(yīng)為一個(gè)單個(gè)的數(shù)值。假如FiledList為一個(gè)字段數(shù)組,那么Values必須也為一個(gè)個(gè)數(shù),類型與FieldList相同的數(shù)組。使用AddNew方法為記錄集添加新的記錄后,應(yīng)使用UpDate將所添加的的數(shù)據(jù)存儲(chǔ)在數(shù)據(jù)庫(kù)中。3.3.2修改記錄集用SQL語(yǔ)句將要修改的字段的一個(gè)數(shù)據(jù)找出來(lái)重新賦值。3.3.3 刪除記錄的Delete方法這與DAO對(duì)象的方法相同,但是在ADO中它的能力增強(qiáng)了,可以刪掉一組記錄了.語(yǔ)法:Recordset.Delete AffectRecords其中:AffectRecords參

15、數(shù)是確定Delete方法作用的方式的。它的取值如下: adAffectCurrent 只刪除當(dāng)前的記錄。adAffectGroup 刪除符合Filter屬性設(shè)置的那些記錄。為了一次能刪除一組數(shù)據(jù),應(yīng)設(shè)置Filter屬性。3.3.4 查詢記錄在ADO中查詢的方法很靈活,有幾種查詢的方法。使用連接對(duì)象的Execute方法執(zhí)行SQL命令,返回查詢記錄集。使用Command對(duì)象的Execute方法執(zhí)行CommandText屬性中設(shè)置的SQL命令,返回查詢記錄集。Command對(duì)象的Execute方法的語(yǔ)法:Command.Execute RecordsAffected, Parameters, Opt

16、ions '不返回記錄集Set Rscordset=cmmnad.Execute(RecordsAffected,Parameters,Options'返回記錄集 CommandText的語(yǔ)法:Command.CommandText=stringvariable其中: stringvariable為字符串變量,包含SQL語(yǔ)句、表名或存儲(chǔ)過(guò)程。3.4 斷開(kāi)連接在應(yīng)用程序結(jié)束之前,應(yīng)該釋放分配給ADO對(duì)象的資源,操作系統(tǒng)回收這些資源并可以再分配給其他應(yīng)用程序.使用的方法為:Close方法。語(yǔ)法: Object.Close ' Object為ADO對(duì)象4 使用ADO訪問(wèn)ACC

17、ESS數(shù)據(jù)庫(kù)實(shí)例以數(shù)據(jù)庫(kù)“學(xué)生.mdb ”中的“學(xué)籍”表為基礎(chǔ),設(shè)計(jì)簡(jiǎn)單的學(xué)生學(xué)籍管理程序。4.1 在進(jìn)行ADO對(duì)象的定義與設(shè)置,前必須在工程中引用ADO對(duì)象工程菜單中的引用:Microsoft ActiveX Data Objects 2.6 Library4.2 定義ADO對(duì)象在通用中聲明:Dim Xueji As ADODB.Connection ' Xueji為連接對(duì)象Dim rstXueji As ADODB.Recordset 'rstXueji為記錄集對(duì)象Dim cmmXueji As ADODB.Command 'cmmXueji為命令對(duì)象在Load事件

18、中的代碼Private Sub Form_Load(Set Xueji = New ADODB.Connection '設(shè)置連接對(duì)象實(shí)例Xueji.CursorLocation = adUseClient'打開(kāi)數(shù)據(jù)源連接X(jué)ueji.Open "provider=Microsoft.Jet.OLEDB.4.0;Data Source=學(xué)生.mdb"'設(shè)置記錄集對(duì)象實(shí)例Set rstXueji = New ADODB.RecordsetSet rstXueji.ActiveConnection = Xueji'打開(kāi)記錄集rstXueji.Open

19、 "select * from 學(xué)籍", Xueji, adOpenStatic, adLockOptimistic '設(shè)置命令對(duì)象實(shí)例Set cmmXueji = New ADODB.CommandSet cmmXueji.ActiveConnection = XuejiEnd Sub4.3 界面設(shè)計(jì)如圖1所示 圖1學(xué)籍管理系統(tǒng)界面4.4 代碼設(shè)計(jì)Private Sub Command1_Click( '在表尾添加空白記錄rstXueji.MoveLast '記錄集中的移動(dòng)方法,指針移動(dòng)到記錄集的末尾rstXueji.AddNew '添加新

20、的記錄Text1 = "": Text2 = "": Text3 = "": Text4 = "": Text5 = "":Text1.SetFocusEnd SubPrivate Sub Command2_Click( '更新當(dāng)前記錄If Text1.= "" Or Text2. = "" Or Text3. = "" Or Text4 = "" Or Text5 = "" Then M

21、sgBox "信息輸入不完整,請(qǐng)輸入完整", vbOKOnly + vbExclamation, "提示" ElserstXueji!學(xué)號(hào) = Text1rstXueji!姓名 = Text2rstXueji!性別 = Text3rstXueji!出生日期 = CDate(Text4rstXueji!家庭住址 = Text5rstXueji.Update '將上面所有的信息存儲(chǔ)到數(shù)據(jù)庫(kù)中End IfEnd SubPrivate Sub Command3_Click( '按姓名刪除Dim NAME As StringNAME = InputBox("請(qǐng)輸入姓名"rstXueji.MoveFirstrstXueji.Find ("姓名=" & "'" & NAME & "'"If rstXueji.EOF ThenMsgBox "沒(méi)有所要?jiǎng)h除的紀(jì)錄,不能完