【正文】 r對(duì)象的、特定提供者的錯(cuò)誤代碼 表 26 Field對(duì)象方法列表 方法 功能 AppendChunk 將數(shù)據(jù)追加到大型 文本、二進(jìn)制數(shù)據(jù)中 GetGhunk 返回大型文本或二進(jìn)制數(shù)據(jù) Field對(duì)象的全部或部分內(nèi)容 錯(cuò)誤集合 —— Errors Errors對(duì)象包含與單個(gè)操作（涉及提供者）有關(guān)的數(shù)據(jù)訪問(wèn)錯(cuò)誤的詳細(xì)信息。 任何涉及 ADO對(duì)象的操作都會(huì)生成一個(gè)或多個(gè)提供者錯(cuò)誤。每個(gè)錯(cuò)誤出現(xiàn)時(shí)，一個(gè)或多個(gè) Errors對(duì)象將被放到 Connection對(duì)象的 Errors集合中。當(dāng)另一個(gè) ADO操作產(chǎn)生錯(cuò)誤時(shí)。Errors集合將被清空，并在其中放入新的 Errors對(duì)象集。 每個(gè) Errors 對(duì)象集都代表特定的提供者錯(cuò)誤而不是 ADO錯(cuò)誤， ADO錯(cuò)誤被記載到運(yùn)行時(shí)的例外處理機(jī)制中。例如，在 Microsoft Visual Basic中，產(chǎn)生特定 ADO的錯(cuò)誤將觸發(fā)On Errors事件并出現(xiàn)在 Err對(duì)象中。 Errors的主要屬性如表 27所示。 表 27 Errors對(duì)象屬性列表 屬性 功能 Description 包含錯(cuò)誤的文本 Number 包含錯(cuò)誤常量的長(zhǎng)整型整數(shù)值 Source 標(biāo)識(shí)產(chǎn)生錯(cuò)誤的對(duì)象。在向數(shù)據(jù)源發(fā)出請(qǐng)求后，如果 Errors 集合有多個(gè) Errors對(duì)象，則會(huì)用到該屬性 SQLSate 指示給定 Errors對(duì)象的 SQL狀態(tài) NativeErrors 指示給定 Errors對(duì)象的、特定提供者的錯(cuò)誤代碼 出現(xiàn)提供者錯(cuò)誤時(shí)， Errors對(duì)象被放在 Connection對(duì)象的 Errors集合中。 ADO支持由單個(gè) ADO操作返回多少錯(cuò)誤，以便顯示在特定提供者的錯(cuò)誤信息。要在錯(cuò)誤處理程序中獲得豐富的錯(cuò)誤信息，可使用相應(yīng)的語(yǔ)言或所在工作環(huán)境下的錯(cuò)誤捕獲功能，然后使用嵌套循環(huán)枚舉出 Errors集合的每個(gè) Errors對(duì)象的屬性。 Errors集合的重要方法如圖 28所示 表 28 Errors集合的方法列表 方 法 功能 Clear 刪除集合內(nèi)的所有對(duì)象 Item 根據(jù)名稱(chēng)或序號(hào)返回集合的特定成員 用 ADO 操作數(shù)據(jù)庫(kù)概述 在使用 ADO操作數(shù)據(jù)庫(kù)時(shí)，主要采取如下的步驟和方法： ? 打開(kāi)數(shù)據(jù)庫(kù)，首先需要?jiǎng)?chuàng)建數(shù)據(jù)庫(kù)連接對(duì)象（ Connection），然后調(diào)用該對(duì)象的 Open方法即可打開(kāi)數(shù)據(jù)庫(kù)。 ? 操作數(shù)據(jù)庫(kù)數(shù)據(jù)。在數(shù)據(jù)庫(kù)打開(kāi)之后，通過(guò) Connection、 Command 對(duì)象執(zhí)行 SQL命令，或者創(chuàng)建記錄集（ RecordSet）對(duì)象，使用該對(duì)象的各種方法就可以進(jìn)行數(shù)據(jù)庫(kù)數(shù)據(jù)的查詢(xún)、定位以及增加、刪除和修改。 ? 關(guān)閉數(shù)據(jù)庫(kù) 。使用上面創(chuàng)建的數(shù)據(jù)庫(kù)連接對(duì)象的 close方法就可以進(jìn)行數(shù)據(jù)庫(kù)的關(guān)閉。 下面就分別詳細(xì)介紹以上所說(shuō)的各個(gè)步驟和方法。 ADO 連接 Access 數(shù)據(jù)庫(kù) 可以使用指定 OLE DB提供者和連接數(shù)據(jù)字符串來(lái)連接 Access數(shù)據(jù)文件。例如： Set Con=New Dim srtcon As String Srtcon=＂ Provider=。Date Source=C:\。＂ _ amp。＂ Persist Security Info=False。＂ strcon 其中 C:\。 如果數(shù)據(jù)庫(kù)有密碼，則： Provider=。Password=sa。UserId=rose。DataSource=C:\gong。 Persist Security Info=True 其中 rose為用戶(hù)名； sa為密碼 如果數(shù)據(jù)庫(kù)是局域網(wǎng)其他計(jì)算機(jī)上的，那么這個(gè)數(shù)據(jù)庫(kù)所在的至少上一層目錄為共享，采用以下 方法： Provider=。UserId=rose。DataSource=C:\\Chybing\chybing\。 Persist Security Info=False 這里“ \\Chybing\chybing\“為在網(wǎng)絡(luò)鄰居中名 chybing的機(jī)器上（ IP也可以）上的 data文件夾下面名為 gongcheng的 Access數(shù)據(jù)。 ADO 對(duì)數(shù)據(jù)庫(kù)基本操作 用記錄集（ Recordset） 對(duì)象操縱數(shù)據(jù) 記錄集（ Recordset）對(duì)象是 ADO 操作數(shù)據(jù)最常用的對(duì)象，在此對(duì) Recordset的基本操作做一個(gè)說(shuō)明 1）創(chuàng)建并打開(kāi) Recordset對(duì)象 Dim rstADO As ADODB. Recordset 如果在缺省情況下， Visual Basic 將按照引用數(shù)據(jù)庫(kù)的先后順序判斷一個(gè) Recordset是 ADO對(duì)象還是 DAO對(duì)象。 以 Microsoft Jet引擎的數(shù)據(jù)庫(kù)為例子， ADO打開(kāi)記錄集的方式如下： Sub ADOOpenJetDatabase() Dim n As New ＂ Provider= Microsoft. 。＂ amp。＂ Data Source=.\＂ End Sub ２）瀏覽數(shù)據(jù)庫(kù)記錄（定位當(dāng)前記錄） 關(guān)鍵在于 ADO需要先建立 Connection．下面來(lái)舉一個(gè)例子： Sub ADOOpenJetDatabase() Dim n As New Dim rst As New Dim fld As ＇打開(kāi)連接 ＂ Provider= ；＂ amp。 ＂ Data Source=.\；＂ ＇打開(kāi)方式： forwardonly,＇ readonly ＂ SELECT *FROM Customers＂＆ _ ＂ WHERE Region=＇ WA＇＂， n,adOpenForwardOnly,adLockReadOnly ＇輸出第一個(gè)記錄的所有字段值 For Each fld In amp。＂；＂； Next ＇關(guān)閉數(shù)據(jù)記錄集對(duì)象 End Sub 至于 Move， MoveNext， FindFirst之類(lèi)的方法，兩者用法相同。 3）查詢(xún)數(shù)據(jù)記錄 ADO 的查詢(xún)數(shù)據(jù)庫(kù)記錄的方法和 DAO 有所不同， DAO 可以利用 RecordSet 對(duì)象的FindFirst、 FindNext、 Findlast、 FindPrevious 方法，依 次用 Move 瀏覽查詢(xún)到的記錄，并顯示出來(lái)。而 ADO只有 Find方法，該方法允許使用一個(gè)查找字符串，它由單引號(hào)（‘）或數(shù)碼符號(hào)（ ）加以封閉。雙引號(hào)（“）不能使用，數(shù)碼符號(hào)必須封閉數(shù)值。 如果使用 Like操作符，就可以用星號(hào)（ *）作為字符串值中的通配符號(hào)。然而，星號(hào)必須的值中的最后一個(gè)字符或值中的唯一字符。否則會(huì)發(fā)生運(yùn)行時(shí)的錯(cuò)誤。 除了搜尋條件外， Find方法還有幾個(gè)參數(shù)。應(yīng)指明開(kāi)始搜索時(shí)要跳過(guò)的記錄數(shù)；否則，搜索當(dāng)從當(dāng)前記錄開(kāi)始。當(dāng)要開(kāi)始搜索下一個(gè)值時(shí)，應(yīng)當(dāng)指明一個(gè)起始值。 在記錄集中也可以指明是否向 回搜索（相開(kāi)頭）或者向前（向尾部），可以通過(guò)指明書(shū)簽作為搜索的開(kāi)始位子。 Find方法的調(diào)用語(yǔ)法是： strCriteria[,IngSkipRecords,IngSe archDirection[,varStart]] 其中 strCriteria是查找條件，比較符僅限于“ =”、“ ”、“ ”、“ =”、“ =”、和“ LIKE” ,比較只是針對(duì)表中的單個(gè)字段。 4）增、刪、改數(shù)據(jù)記錄 ADO可以用與 DAO完全相同的方法進(jìn)行添加、刪除的操作。唯一不同的是要先建立一個(gè)Connection對(duì)象。 ADO還提供了一個(gè)快捷的添加方式： Array( ＂ CompanyName ＂ , ＂ Phone ＂ ),Array( ＂ ABCD CD ＂ ， ＂(010)1234567＂ ) 修改現(xiàn)有記錄時(shí)， ADO 不需要調(diào)用 Edit 方法，直接對(duì)當(dāng)前記錄某字段屬性賦值之后調(diào)用 Update方法就可以實(shí)現(xiàn)。 用 Connection對(duì)性運(yùn)行查詢(xún)語(yǔ)句 使用 Connection對(duì)象的 Execute方法，可執(zhí)行任何在指定連接的參數(shù)中傳送給方法的查詢(xún)。如果參數(shù)指定按行返回的查詢(xún)，執(zhí)行產(chǎn)生的任何結(jié)果 將存儲(chǔ)在新的 Connection對(duì)象中。如果命令不是按返回的查詢(xún)，則提供返回者關(guān)閉的 Connection對(duì)象，應(yīng)首先創(chuàng)建具有所需要屬性的設(shè)置的 Connection對(duì)象，然后用 Connection 對(duì)象的 Open方法執(zhí)行查詢(xún)并返回所需要游標(biāo)的類(lèi)型。具體的語(yǔ)法如下： 對(duì)于非按行返回的命令字符串： CommandText,RecordsAffected,Options 對(duì)于按行返回的命令字符串： Set recordset=(CommandText,RecordsAffected,Options) ADO 和 DAO/RDO 的比較 ADO 是 DAO/RDO 的后繼產(chǎn)物。 ADO 在功能上與 RDO 更相似，而且一般來(lái)說(shuō)，在這兩 種模型之間有一種相似的映射關(guān)系。 ADO 擴(kuò)展了 DAO 和 RDO 所使用的對(duì)象模型，這意味 著它包含較少的對(duì)象、更多的屬性、方法 （ 和參數(shù)），以及事件。例如， ADO 沒(méi)有與 rdoEngine 和 rdoEnvironment對(duì)象相 等 同的對(duì)象，可以顯露 ODBC 驅(qū)動(dòng)程序管理器和 hEnv接口。盡管 事實(shí)上接口可能是通過(guò) ODBC OLE DB 服 務(wù)提供程序?qū)崿F(xiàn)的，但當(dāng)前也不能從ADO 中創(chuàng)建 ODBC 數(shù)據(jù)源。 ADO 并不是自動(dòng)和現(xiàn)存的數(shù)據(jù)訪問(wèn)應(yīng)用程序代碼兼容的。當(dāng) ADO 封裝 DAO 和 RDO的 功能性的時(shí)候，必須將許多語(yǔ)言要素轉(zhuǎn)換為 ADO 語(yǔ)法。在某些情況下，這將意味著現(xiàn)存代 碼的某些功能的一個(gè)簡(jiǎn)單轉(zhuǎn)換。在其他情況下，最佳的做法可能是用 ADO 的新功能重寫(xiě)該 應(yīng)用程序。 包含在 DAO 和 RDO 模型中的許多功能被合并為單個(gè)對(duì)象，這樣就生成了一個(gè)簡(jiǎn)單得 多的對(duì)象模型。與 DAO 和 RDO 不同的是，盡管 ADO 對(duì)象是分層結(jié)構(gòu)的，但在分層結(jié)構(gòu)范圍 之外也是可以創(chuàng)建的。不過(guò)，應(yīng) 當(dāng)注意， ADO 當(dāng)前并不支持 DAO 的所有功能。 ADO 主要包括 RDO 風(fēng)格的功能性，以便和 OLE DB 數(shù)據(jù)源交互，另外還包括遠(yuǎn)程和 DHTML 技術(shù)。 ADO 新內(nèi)容 ADO 除了具備 RDO在遠(yuǎn)程數(shù)據(jù)庫(kù)訪問(wèn)的優(yōu)越性 ， 如異步查詢(xún)、批處理更新、服務(wù)器側(cè)的游 標(biāo)、存儲(chǔ)過(guò)程的調(diào)用及事務(wù)處理等，還有以下新內(nèi)容 ： Recordset 持久性通過(guò)記錄集持久性，可將 Recordset 數(shù)據(jù)和數(shù)據(jù)元作為文件保存。隨后使用持久文件重創(chuàng)建 Recordset對(duì)象。持久文件可保存于本地驅(qū)動(dòng)器、網(wǎng)絡(luò)服務(wù)器或使用 URL 的 Web站點(diǎn)上。索引支持以 及查找、排序和篩選對(duì)字段的索引可極大增強(qiáng)新 Recordset對(duì)象 的 Find 方法以及 Sort 和 Filter 屬性的性能。在 ADO 中，可通過(guò)設(shè)置 Field 對(duì)象的動(dòng)態(tài)Optimize 屬性來(lái)為它創(chuàng)建內(nèi)部索引。將 CursorLocation 設(shè)置為 adUseClient 時(shí) ， 該動(dòng)態(tài)屬性被添加到 Field 對(duì)象的 Properties 集合中。請(qǐng)注意該索引內(nèi)置于 ADO ，因此無(wú)法對(duì)它進(jìn)行 訪問(wèn)或用于其他方面。 Sort 屬性決定移動(dòng) Recordset 行的順序； Filter 屬性決定移動(dòng)行時(shí)哪些 行是可用的 ； Find 方法可 在 Recordset 已索引的列（字段）中快速找出數(shù)值。這是對(duì) DAO方法的擴(kuò)展， RDO 不支持上述方法和屬性。而且它也不是對(duì)任何的數(shù)據(jù)庫(kù)都適用。 ADO 事件 ADO 支持事件，事件是對(duì)某些操作將要或已經(jīng)發(fā)生的通知。 有兩類(lèi) 事 件： ConnectionEvent 和 RecordsetEvent。 Connection 對(duì)象產(chǎn)生 ConnectionEvent事件，而 Recordset 對(duì)象則產(chǎn)生 RecordsetEvent 事件。事件由事件處理程序例程處理，該例程在某個(gè)操作開(kāi)始之前或結(jié)束之后被調(diào)用。 某些事件是成對(duì)出現(xiàn)的。 開(kāi)始操作前調(diào)用的事件名格式為 WillEvent（ Will事件），而操作結(jié)束后調(diào)用的事件名 格式 為 EventComplete（ Complete 事件）。其余的不成對(duì)事件只在操作結(jié)束后發(fā)生（其名稱(chēng)沒(méi)有任何固定模式）。事件處理程序由狀態(tài)參數(shù)控制。附加信息由錯(cuò)誤和對(duì)象參數(shù)提供?？梢哉?qǐng)求事件處理程序不接受第一次通知以后的任何通知。例如，可以 選擇只接收 Will 事件或 Complete 事件。 在某種編程語(yǔ)言中，來(lái)自多個(gè) ADO 對(duì)象的事件可以由一個(gè)事件處理程序處理。一個(gè)事件 也可以用多個(gè)事件處理 程序 處理，但不太常見(jiàn)。 分級(jí)游標(biāo)和 數(shù)據(jù)構(gòu)形概述 ADO ，通過(guò)該功能可將子 Recordset對(duì)象定義為父 Recordset 中某個(gè)字段的值。 可以這樣理解分級(jí)游標(biāo)：假設(shè)有一個(gè)可視控件，如文件打開(kāi)對(duì)話框，它可依分級(jí)方式顯示文件和子目錄?？蓪⒚恳粋€(gè)目錄都看作 Recordset對(duì)象，并將該目錄中的每個(gè)文件看作 Field 對(duì)象 ； 同樣，將該目錄中的每個(gè)子目錄也看作 Field 對(duì)象，這樣該對(duì)象的值就成為另一個(gè)Recordset。 ADO 還推出了新的形狀數(shù)據(jù)操作語(yǔ)言語(yǔ)法，它可以使查詢(xún)結(jié)果表示為分級(jí)Recordset。 發(fā)出形狀語(yǔ) 言命令的 方式 與發(fā)出任何其他 ADO 命令字符串沒(méi)有什么區(qū)別。形