遠程數據對象

RDO(Remote Data Objects)處理一組對象以完成遠程資料的存取，它是在ODBC API和驅動程序之上的一個可程序的薄層(thin code layer)，用以建立資料結果集(result set)和游標，以及用最小的工作站資源執行複雜的程序。

注意RDO祇能在32位的操作系統上執行(如Windows95或NT)

主題

l RDO的特性 介紹RDO的重要特性

l 以RDO寫程序 介紹RDO對象模型

l 和Jet/DAO之間的比較 RDO的特性如何與DAO對應

l 初始化rdoEngine對象 rdoEngine對象的概觀與如何去設定它的屬性

l 建立rdoEnvironment對象 rdoEnvironment對象的概觀以及如何應用它的屬性來做數據存取

l 使用RDO來執行查詢 如何建立以及執行有參數的查詢

l 使用RDO來執行stored procedure 介紹如何與有特殊需求的store procedure一起運作

l 建立RDO游標 介紹如何建立RDO游標

l 使用RDO結果集 介紹如何使用從查詢傳回的資料以及參數

l 使用ODBC API函數 介紹RDO支持的ODBC handles

l 使用RemoteData控制項(control) 如何用RemoteData控制項處理數據

RDO的特性和客戶端/伺服端的設計目標

使用RDO時，程序可以直接存取ODBC的資料源而不需要本地端的查詢處理。這會在存取遠程的資料庫引擎時大大地提高效率和彈性。

使用RDO可以得到下列的好處。特別是在客戶端/伺服端架構

l 提高自遠程ODBC資料源存取資料的效率。

l 建立簡單而無游標的結果集，或是較為複雜的游標。

l 執行查詢以及同時運作多結果集：經由一個單一的查詢可以傳回多個結果集，這可以提高查詢處理器和系統資源的使用效率。例如可以使用一個查詢來提供多個顯示資料對象的資料(如data-driven的list box或查詢一起運作，可以正確的設定scroll bar和progress status bars。

l 以單一批次(batch)執行多個action查詢：在很多狀況下可能是以單一的SQL述句來執行多個新增(INSERT)、刪除(DELETE)和修改(UPDATE)的動作，這可以減少網路和遠程處理的負載，同時讓處理交易(transaction)更方便。

l 可以使用參數輸入stored procedure，以及傳回結果：從stored procedure輸出參數是從Oricle的stored procedure上獲得運算結果的唯一來源。這會在單一查詢以及許多管理的運作上有用。在很多狀況下，必須藉由stored procedure傳回的結果來判斷所執行的運作是否成功。RDO經由rdoParameter對象來處理這些輸入、輸出的參數。

l 限制處理以及傳回的記錄數：在某些狀況下，使用者所選的記錄數目可能超過實際運作的量，RDO可以設定經查詢傳回的記錄數目量。以這種方式可以預測響應時間，也更容易管理工作站和伺服器的資源。以同樣的機制可以限制修改查詢(data-modification query)所能影響記錄數的量。

l 利用伺服端游標：一些伺服端資料庫引擎也提供了游標的運作，在某些狀況下使用伺服端游標可以減輕網路負荷以及工作站的資源以提升效率。

l 監控遠程資料源所產生的訊息或錯誤但不妨礙正在執行的查詢。

l 執行非同步查詢：能夠使用同步、非同步事件驅動((event-driven)非同步等處理，使程序不會在執行大量查詢時停滯。且不需要使用Polling機制。在非同步查詢期間，Connection會一直保留著。

l 在初始設定的查詢截止時間到時，仍可繼續：當查詢的運作時間超過QueryTimeout屬性時，RDO允許繼續另一個查詢等待時間，而不直接停止查詢。

l 提供改良的多形(polymorphism)和“free-standing”的對象產生方式：RDO支持以DIM宣告且產生對象的方式，這種free-standing的對象可以被連結到其它的對象以執行運作。例如，可以獨立的產生rdoQuery和rdoConnection對象，而後聯合在一起運作。

l 提供分離的結果集：RDO允許產生靜態的讀寫游標而後中斷與遠方伺服器的連結。在rdoResultset對象中的資料仍可存取，一但以另一個rdoConnection對象再連結上遠程伺服機時，可以以BatchUpdate方法以完成這種離線(offline)的改變。

l 產生和管理開放式的批次更新：當ODBC游標鏈接庫提供開放式更新時，它是以一筆接著一筆的方式而非批次更新。這種做法需要較多的網路和伺服器的頻寬。RDO提供新的客戶端批次(Client Batch)游標，將一群被新增，修改和刪除的記錄集合起來。這種方式祇需要與伺服端連結一次，因此可以提升效率

l 讓Stored Procedures使用更容易：RDO允許將可輸入參數的查詢和stored procedure當成rdoConnection對象的方法。可以像使用VB函數傳入參數的方式一樣傳入參數而不需要rdoParameter對象。

l 提供之下的ODBC handles：當需要更直接，更有彈性的資料存取時，RDO提供直接存取ODBC環境(environment)，connection和statement 等handles。

l 減少內存使用

以RDO寫作程序【2】

RDO對象和集合提供了寫作程序和維護遠程ODBC資料的的架構。對象和集合有描述資料庫特性的屬性和操作資料庫的方法。使用這種包含子對象的架構可以建構出對象與對象或對象與集合等等的關係，而這些關係表現了資料庫系統的邏輯結構。

除了rdoEngine對象外，其餘所有的對象都是由相關的集合在維護。當RDO在第一次存取而被初始化時，會自動產生rdoEngine對象以及內含的rdoEnvironments(0)對象。

RDO的程序寫作結構與DAO相似，但更注重在stored procedure的操作和傳回的資料集，相對的對ISAM資料的存取則較不重視。

下表為各對象的簡介

RDO對象 描述 rdoEngine 最基礎的對象，當第一次存取RDO對象時會自動產生。 rdoError 處理ODBC錯誤以及RDO所產生的訊息。也是自動產生的。 rdoConnection 代表一個連到遠程資料來源的開啟的connection，或是一個擁有但未開啟的對象，該對象可以在稍後開啟。 rdoTable 代表一個儲存著的基本資料表(base table)的定義或是一個view rdoResultset 代表執行一個查詢后所傳回的記錄 rdoColumn 代表擁有一般的資料型態以及屬性的一個數據域位 rdoQuery 一個可以擁有參數的SQL查詢 rdoParameter 代表輸出入的參數，關聯於rdoQuery對象

注意：要支持分散式交易(distributed transaction)需要搭配SQL Server6.5版以及Distributed Transction Coordinator。

注意：RDO 1.0版提供的rdoPreparedStatement對象和rdoPreparedStatements集合，在RDO 2.0版仍然支持，但是是為了向前兼容，所以在RDO 2.0版后最好改用rdoQuery對象和rdoQueries集合。

產生遠程資料對象

RDO對象可以經由父對象產生或經由Dim述句。如果是經由Dim as New述句產生的RDO對象不會被加入到相關的集合中。下表列出如何產生主要的RDO對象

1.1產生遠程資料對象

雖然RDO與DAO大致相似，但RDO是專門操作關係型資料庫的對象，且沒有自己的查詢處理(processor)，它完全靠資料來源處理查詢併產生結果集 以下是RDO與DAO/Jet 的比較表 RDO對象 相對的DAO/Jet對象 rdoEngine DBEngine DBEngeine rdoError Error Error rdoEnvironment Workspace Workspace rdoConnection Database Connection rdoTable TableDef 不支持 不支持 索引 不支持 rdoResultset Recordset Recordset 不支持 Table-type 不支持 Keyset-type Dynaset-type Dynaset-type Static-type(r/w) Snapshot-type(r/o) Snapshot-type(r/o) Dynamic-type 不支持 Dynamic-type Forward-only-type Forward-only-type Forward-only-type (cursorless) 不支持 (cursorless) rdoColumn Field Field rdoQuery QueryDef QueryDef rdoParameter Parameter Parameter 不支持 Relation 不支持 不支持 Group 不支持 不支持 User 不支持 一些DAO的對象、方法、和屬性是設計來操作ISAM架構下的Jet資料庫。例如可以利用索引(Index)對象和Seek方法來處理ISAM的索引以及找尋記錄。但是因為RDO所使用的後端資料庫處理索引的方式完全不同，所以RDO並不需要去支持這些索引的運作。 DAO也支持建造和修改資料庫架構(schema)，參照的完整性以及安全上的維護。這些對RDO來說都是後端資料庫伺服器在維護的，所以本身並不提供相關的對象或方法。但仍然可以利用RDO的make-table查詢；以標準的SQL述句來執行動作查詢(action queries)以產生、修改或刪除資料庫和資料表。同時也可以以複雜的stored procedures還處理資料庫的架構和執行為或的工作，這些是DAO做不到的。

2.1RDO的集合管理

rdoEngine對象是所有RDO對象的最上層對象。它不能被重複產生，以及使用集合來包含。它可以讓好幾個應用程序共享，但會為每一個參與共享的應用程序產生私有資料區，而不會讓應用程序彼此之間互相干擾。

3.1初始化rdoEngine的內定值

做啥。例如執行了一個統計的查詢后，這個訊息會經由rdoErrors集合傳回，而應用程序可以經由InfoMessage事件的觸發而知道。

3.2處理RDO的錯誤和訊息

在大部分的狀況下並不需要產生額外的rdoEnvironment對象，內定的rdoEnvironments(0)應該夠用。但若應用程序需要更多的交易處理，或不同的帳號密碼環境，那就需要以rdoCreateEnvironment方法給予不同的使用者名稱、密碼來產生另外一個rdoEnvironment對象。這時要給予一個唯一的rdoEnvironment名稱，若與已經產生的相同，則會有可捕捉的錯誤。內定的rdoEnvironments(0)的名稱為”Default_Environment”，使用者名稱及密碼都是空字元串。若提供了唯一的名子，新產生的rdoEnvironment對象會自動加入rdoEnvironments集合。反之，若以空字元串當name參數的值，則新產生的對象不會加入。快取(cached)登入信息 若在使用OpenConnection方法時，沒有在connect參數設定使用者帳號密碼，或是使用RemoteData控制項，但未在Connect內指定，則RDO會用rdoEnvrionment的帳號密碼建立連結。如下例，會用使用者帳號(Fred)和密碼(Blond)在rdoEnvironment對象En內建立連結 Dim En As rdoEnvironment Set En = rdoCreateEnvironment(“”,”Fred”,”Blond”)

4.1使用rdoEnvironment對象管理交易(Transaction)

注意：交易模型並不支持巢狀交易(nested transaction)，所以不能在前一個BeginTrans還未與CommitTrans或RollbackTrans成對之前再使用一個BeginTrans方法。但若ODBC的資料源本身如SQL Server支持巢狀交易，則可以透過SQL述句，叫伺服端進行巢狀交易。當使用ODBC交易時，一個開啟的連結並不會影響另一個連結，即使這兩個連結是連到同一個資料庫的同一個資料表。捕捉rdoEnvironment交易事件 當rdoEnvironment完成一筆交易後會引發一個事件，可以利用這個事件來管理其它的交易。

4.2在rdoEnvironment對象管理Connections

密碼保護的環境。在這個環境下可以開啟多條連結與管理多個ODBC交易。 l l 使用OpenConnection方法在rdoEnvironment之內建立一個以上的連結 l l 在rdoEnvironment內使用BeginTrans，CommitTrans和RollbackTrans方法來管理ODBC交易。 l l 使用多個rdoEnvironment對象來建立多個、同時、獨立和重疊的交易。 l l 使用Dim X As New rdoConnection來產生一個獨立(stand-alone)rdoConnection對象，接著使用Add方法加入到rdoEnvironment對象內的rdoConnections集合。 l l 使用Remove方法將特定的rdoConneciton對象從他的父集合rdoConnections中移除。 l l 使用Close方法來結束環境和連結注意：rdoConnection對象不一定要屬於某個rdoEnvironment，它可以獨立產生。

在參照一個遠程資料庫內的資料之前，要先建立一條連結到資料源。這個資料源可以是遠程的資料庫伺服器，像MS SQL Server或Oracle，或其它支持適合的ODBC驅動程序的資料庫。 RDO建立連結有好幾種方法，與DAO不同的是，它並不為應用程序管理這些連結；僅僅收集要傳給SQLDriverConnect函數的參數，和使用SQLDisconnect函數來關掉連結。RDO並不快取這些資料以分享給使用相同DSN來建立連結的後來者。當使用RDO的Close方法來關掉連結時，它立刻就會被關掉。可以以下的方法開啟連結 l l 使用RemoteData控制項自己的Connection屬性來建立連結對象rdoConnection l l 宣告一個rdoConnection對象，再以rdoEnvironment對象的OpenConnection方法開啟后賦予 l l 用Dim 變數名 As New語法產生一個獨立的rdoConnction，設定它的屬性后再以EstablishConneciton方法建立連結 l l 無論在獨立的rdoConnection或是使用過Close方法的rdoConnection都可以用EstablishConnection方法建立連結 在不同的情況下，可以選擇不同的方法。例如要對一些遠程資料庫完成象，再透過rdoQuery對象的ActiveConnection屬性將rdoConnection對象設定(Assign)給這些rdoQuery。在大部分狀況下，RemoteData控制項建立連結較為簡單。以上的這些方法都是要與資料源如SQL Server，或Oracle；建立一個實體的連結(link)。要建立這個連結需要提供資料源的網路位置、驅動程序型態以及一些用來確認使用者身份的選擇性參數。一但建立了連結，可以用它來 l l 使用OpenResult方法來執行一個查詢以傳回一或多個結果集。 l l 使用Execute方法以執行一個動作查詢(action query) l l 產生一個rdoQuery對象，好接著執行參數查詢或預存程序。 l l 定義執行一個以上預存程序的查詢來當成rdoConnection的方法。 l l 利用rdoResultset對象的ActiveConnection屬性連結rdoConnection對象 l l 使用Add方法將rdoConnection加到rdoConnections集合 l l 使用Remove方法將rdoConnection從rdoConnections集合移除

5.1提供RDO的連結字元串(ConnectionStrings)

注意：

安全漏洞。可以改成應用程序直接以某幾種的帳號密碼登入。若要搭配NT網路系統的DOMAIN安全管理，則上述兩個方法的連結字元串內的UID和PWD要保持空白。寫法如下 Conn$=”DSN=MyRemote;UID=;PWD=;”設定內定的資料庫 若rdoConnection對象在建立之初，未設定DATABASE參數，則內定使用的資料庫可能是註冊的DSN內定義的資料庫；或是伺服端系統管理員定義的資料庫。但內定的資料庫可以藉由執行Transaction SQL的“USE予以更改。範例如下 cn.Execute “USE Pubs”傳遞連結字元串給RDO或RemoteData控制項 可以以下列方式傳遞連結字元串給RDO或RemoteData控制項 l l 執行OpenDatabase方法時，設定Connect參數。 l l 設定RemoteData控制項的Connect屬性。 l l 當rdoConnection使用EstablishConnection方法時，設定Connect屬性 若使用RemoteData控制項，則有一些屬性都與連結有關，但如果Connect屬性內有設，其它相關的屬性也有設定的下，Connect內的屬性會蓋過其它的屬性。

5.2使用已經註冊好的DSN

sa;PWD=;")

5.3產生不用DSN的RDO連結

5.4設定rdoConnection選項

5.5使用rdoConnection對象的事件(Event)

時間間隔用完或查詢結束。若輸入True，則直接停掉該執行中的查詢。注意：當查詢查詢被激活時，QueryTimeout屬性就已經傳給ODBC驅動程序，所以若之後才改變這項屬性將對已經被產生的查詢沒有作用。使用WillExecute事件處理 這個事件會在執行任何查詢前先發生，而不管是action或row-returning查詢。可以藉由捕捉這個事件做執行查詢前的最後修正工作項查詢而RDO會產生可捕捉的錯誤。這個事件可以用來過濾某些查詢是否可以執行。程序範例如下 Option Explicit Dim WithEvents cn As rdoConnection Dim rs As rdoResultset Dim SQL As String Dim col As rdoColumn Public Qd As rdoQuery Dim dTime As Date Private Sub cn_Connect(ByVal ErrorOccurred As Boolean) If Not ErrorOccurred Then MsgBox "連結建立完成" Else Dim er As rdoError Debug.Print Err, Error$ For Each er In rdoErrors Debug.Print er.Description, er.Number Next End If End Sub Private Sub cn_QueryComplete(ByVal Query As RDO.rdoQuery, ByVal ErrorOccurred As Boolean) If Not ErrorOccurred Then MsgBox Str(Second(Now - dTime)) Debug.Print Qd(0) Else Dim er As rdoError Debug.Print Err, Error$ For Each er In rdoErrors Debug.Print er.Description, er.Number Next End If End Sub Private Sub cn_QueryTimeout( _ ByVal Query As RDO.rdoQuery, Cancel As Boolean) Dim ans As Integer ans = MsgBox("Query Timed out... Press Retry to continue waiting", _ vbRetryCancel + vbCritical, "Query Took Too Long") If ans = vbRetry Then Cancel = False Else Cancel = True End If End Sub Private Sub RunQuery_Click() On Error GoTo RunQueryEH Qd.QueryTimeout = 5 Set rs = Qd.OpenResultset(rdOpenKeyset, _ rdConcurReadOnly) Exit Sub RunQueryEH: Dim er As rdoError Debug.Print Err, Error$ For Each er In rdoErrors Debug.Print er.Description, er.Number Next rdoErrors.Clear Resume Next End Sub Private Sub cn_WillExecute(ByVal Query As RDO.rdoQuery, Cancel As Boolean) dTime = Now End Sub Private Sub Form_Load() Set cn = New rdoConnection With cn .Connect = "uid=sa;pwd=;database=Pubs;dsn=Public;" .CursorDriver = rdUseClientBatch .EstablishConnection Prompt:=rdDriverNoPrompt, ReadOnly:=True, Options:=rdAsyncEnable .QueryTimeout = 5 End With Set Qd = cn.CreateQuery("LongQuery", "") With Qd .SQL = "{?=call pubs.dbo.VeryLongProcedure}" .rdoParameters(0).Direction = rdParamReturnValue End With End Sub

5.6非同步地開啟連結

5.7使用獨立的(stand-alone)rdoConnection對象

5.8使用rdoConnection對象

資料庫結構(schema)，或執行管理的動作(administrative function) l l 執行預存程序來管理結果集、輸出的參數或return values l l 使用rdoConnection的Close方法以停止到資料源的連結，同時釋放所使用的資源。

5.9與RDO資料源連結失敗

5.10使用rdoTable對象

5.11關掉不需要的RDO連結

通常應用程序需要利用查詢來完成對遠程資料庫資料、使用者許可權或資料庫伺服程序運作的管理。而查詢可分為以下兩部分 l l 送出一個內含SQL述句描述所需結果集的查詢，或參照一個預存程序 l l 處理結果記錄，參數和傳回值(預存程序回傳的部分) 在送出一個查詢前，需要問以下的問題以確認查詢的目的與效率 l l 應用程序是否需要瀏覽資料記錄？若需要瀏覽，則是雙向的還是祇向前瀏覽？ l l 是否需要更新資料？如果需要，是否可以運作查詢直接更改？使用者是否需要許可權來修改？ l l 有多少使用者會在同時，運作同樣的資料？可否控制這些同時執行的應用程序？這些應用程序是否共享資料？ l l 查詢將會傳回多少筆資料？應用程序端的系統是否有能力存放這些記錄？網路使否在傳這些記錄時有頻寬的瓶頸？ l l 記錄是以何種格式傳回—書籤還是靜態資料？ l l 查詢是否要傳參數？ l l 這個查詢在應用程序運作時會常常被執行，還是僅有一兩次？管理RDO查詢 當開啟一條連結時，可以在其上執行許多查詢，可以參考下述原則使用不同形式的查詢 l l 若查詢僅僅使用一次，可以用rdoConnection對象的OpenResultset或Execute方法來產生rdoResultset對象，還是直接執行動作查詢。這兩種選項最後都會經由執行ODBC API的SQLExecDirect函式完成查詢，所以可以在使用OpenResultset或Execute方法時，直接在Options參數輸入rdExecDirect以直接指定SQLExecDirect函式。 l l 若執行的查詢可能會使用一次以上同時要輸入參數，則可以CreateQuery方法產生rdoQuery對象。該對象允許多次使用，且在使用時輸入不同的參數。一但使用rdoQuery對象，則可以透過這個對象的OpenResultset或Execute方法來產生rdoResultset對象，或是直接執行動作查詢。若要改變輸入的參數，則可以經由改變rdoParameter對象辦到。這種做法會經由ODBC API的SQLPrepare和SQLExecute函式。

6.1產生rdoResultset對象

6.2使用OpenResultset方法

注意：

6.3編寫SQL述句