步骤 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