步驟 2: 調(diào)用服務(wù)器程序（RDS 教程）
內(nèi)容
步驟 2: 調(diào)用服務(wù)器程序（RDS 教程）
您所在的步驟...
| ? | 指定在服務(wù)器上調(diào)用的程序，并獲得代理。 |
| ? | 調(diào)用服務(wù)器程序，將參數(shù)傳遞給表明數(shù)據(jù)源和所發(fā)命令的服務(wù)器程序。 |
| ? | 典型情況下通過使用 ADO，服務(wù)器程序從數(shù)據(jù)源獲得 Recordset 對(duì)象。 |
| ? | 服務(wù)器程序?qū)⒆罱K的 Recordset 對(duì)象返回客戶端應(yīng)用程序。 |
| ? | 在客戶端，可選擇將 Recordset 對(duì)象設(shè)置為可視控件易于使用的形式。 |
| ? | 將對(duì) Recordset 對(duì)象的更改返回服務(wù)器，并用來(lái)更新數(shù)據(jù)源。 |
討論
當(dāng)調(diào)用客戶端代理程序的方法時(shí)，服務(wù)器上的實(shí)際程序?qū)?zhí)行該方法。在該步驟中，將在服務(wù)器上執(zhí)行查詢。
A 部分 在本教程中，如果不使用 RDSServer.DataFactory，那么執(zhí)行該步驟最簡(jiǎn)便方法是使用 RDS.DataControl 對(duì)象。RDS.DataControl 將該步驟和上一步驟中的創(chuàng)建代理合并，用于發(fā)出查詢。
設(shè)置 RDS.DataControl 對(duì)象 Server 屬性以標(biāo)識(shí)服務(wù)器程序被實(shí)例化的位置；設(shè)置 Connect 屬性以指定訪問數(shù)據(jù)源的連接字符串；設(shè)置 SQL 屬性以指定查詢命令文本。然后發(fā)出 Refresh 方法使服務(wù)器程序與數(shù)據(jù)源相連接，檢索查詢指定的行，并將 Recordset 對(duì)象返回客戶端。
該教程不使用 RDS.DataControl，僅在這里給出它的形式：
Sub RDSTutorial2A()
Dim DC as New RDS.DataControl
DC.Server = "http://yourServer"
DC.Connect = "DSN=pubs"
DC.SQL = "SELECT * FROM authors"
DC.Refresh
...
本教程同樣不使用 ADO 對(duì)象調(diào) RDS，我們?nèi)栽谶@里給出它的形式：
Dim rs as New ADODB.Recordset
rs.Open "SELECT * FROM authors", "Provider=MS Remote;Data Source=pubs;Remote Server=http://YourServer"
B 部分 執(zhí)行該步驟的一般方法是調(diào)用 RDSServer.DataFactory 對(duì)象的 Query 方法。該方法使用用于連接數(shù)據(jù)源的連接字符串，以及用于指定從數(shù)據(jù)源返回行的命令文本。
該教程使用 RDSServer.DataFactory Query 方法：
Sub RDSTutorial2B()
Dim DS as New RDS.DataSpace
Dim DF
Dim RS as ADODB.Recordset
Set DF = DS.CreateObject("RDSServer.DataFactory", "http://yourServer")
Set RS = DF.Query ("DSN=pubs", "SELECT * FROM authors")
...
下一頁(yè) 步驟 3