您所在的步骤...
? | 指定在服务器上调用的程序,并获得代理。 |
? | 调用服务器程序,将参数传递给表明数据源和所发命令的服务器程序。 |
? | 典型情况下通过使用 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