步骤 2: 调用服务器程序（RDS 教程）

目录

您所在的步骤...

• 指定在服务器上调用的程序，并获得代理。
  
  
• 调用服务器程序，将参数传递给表明数据源和所发命令的服务器程序。
  
  
• 典型情况下通过使用 ADO，服务器程序从数据源获得 Recordset 对象。
  
  
• 服务器程序将最终的 Recordset 对象返回客户端应用程序。
  
  
• 在客户端，可选择将 Recordset 对象设置为可视控件易于使用的形式。
  
  
• 将对 Recordset 对象的更改返回服务器，并用来更新数据源。

讨论

当调用客户端代理程序的方法时，服务器上的实际程序将执行该方法。在该步骤中，将在服务器上执行查询。

A 部分   在本教程中，如果不使用 RDSServer.DataFactory，那么执行该步骤最简便方法是使用 RDS.DataControl 对象。RDS.DataControl 将该步骤和上一步骤中的创建代理合并，用于发出查询。

设置 RDS.DataControl 对象 Server 属性以标识服务器程序被实例化的位置；设置 Connect 属性以指定访问数据源的连接字符串；设置 SQL 属性以指定查询命令文本。然后发出 Refresh 方法使服务器程序与数据源相连接，检索查询指定的行，并将 Recordset 对象返回客户端。

该教程不使用 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 对象调 RDS，我们仍在这里给出它的形式：

Dim rs as New ADODB.Recordset
rs.Open "SELECT * FROM authors", "Provider=MS Remote;Data Source=pubs;Remote Server=http://YourServer"

B 部分  执行该步骤的一般方法是调用 RDSServer.DataFactory 对象的 Query 方法。该方法使用用于连接数据源的连接字符串，以及用于指定从数据源返回行的命令文本。

该教程使用 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")
...

下一页   步骤 3