步骤 6：将更改发送到服务器（RDS 教程）

如果记录集对象被编辑，任何更改（即添加、更改或删除的行）都可以发送回服务器。

注意

可以使用 ADO 对象和 Microsoft OLE DB 远程处理提供程序隐式调用 RDS 的默认行为。 查询可以返回记录集，编辑后的记录集可以更新数据源。 本教程没有使用 ADO 对象调用 RDS，但如果使用了，应如下所示：

Dim rs as New ADODB.Recordset  
rs. "SELECT * FROM Authors","=MS Remote;=Pubs;" & _  
=https://yourServer;=SQLOLEDB;"  
...              ' Edit the Recordset.  
rs.   ' The equivalent of   
...  

A 部分假设你只使用了 RDS.DataControl 并且记录集对象现在与 RDS.DataControl 相关联。 如果仍然设置了 Server 和 Connect 属性，SubmitChanges 方法会使用对 Recordset 对象的任何更改来更新数据源。

Sub RDSTutorial6A()  
Dim DC as New RDS.DataControl  
Dim RS as ADODB.Recordset  
DC. = "https://yourServer"  
DC. = "DSN=Pubs"  
DC. = "SELECT * FROM Authors"  
DC.  
...  
Set RS = DC.  
   ' Edit the Recordset.  
...  
DC.  
...  

B 部分，或者，你可以使用 RDSServer.DataFactory 对象更新服务器，指定一个连接和一个 Recordset 对象。

Sub RDSTutorial6B()  
Dim DS As New RDS.DataSpace  
Dim RS As ADODB.Recordset  
Dim DC As New RDS.DataControl  
Dim DF As Object  
Dim blnStatus As Boolean  
Set DF = DS.("RDSServer.DataFactory", "https://yourServer")  
Set RS = DF. ("DSN=Pubs", "SELECT * FROM Authors")  
DC. = RS    ' Visual controls can now bind to DC.  
    ' Edit the Recordset.  
blnStatus = DF."DSN=Pubs", RS  
End Sub  

本教程到此结束。

重要

从 Windows 8 和 Windows Server 2012 开始，Windows 操作系统不再包含 RDS 服务器组件（有关更多详细信息，请参阅 Windows 8 和 Windows Server 2012 兼容性实用手册）。 Windows 的未来版本中将移除 RDS 客户端组件。 请避免在新的开发工作中使用该功能，并着手修改当前还在使用该功能的应用程序。 使用 RDS 的应用程序应迁移到 WCF 数据服务。

另请参阅

Microsoft OLE DB 远程处理提供程序（ADO 服务提供程序）
RDS 教程
RDS 教程 (VBScript)