步驟 6：變更會傳送至伺服器 （RDS 教學課程）

如果編輯 Recordset 物件，則可以將任何變更（也就是新增、變更或刪除的數據列）傳回伺服器。

注意

RDS 的預設行為可以透過 ADO 物件和 Microsoft OLE DB 遠端提供者隱含叫用。 查詢可以傳回 Recordsets，而編輯 Recordset可以更新數據源。 本教學課程不會使用 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，且 Recordset 對象現在與 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 開始，RDS 伺服器元件已不再包含在 Windows 作業系統中（如需詳細資訊，請參閱 Windows 8 和 Windows Server 2012 兼容性 Cookbook）。 RDS 用戶端元件將在未來的 Windows 版本中移除。 請避免在新的開發工作中使用此功能，並計劃修改目前使用此功能的應用程式。 使用 RDS 的應用程式應該移至 WCF Data Service。

另請參閱

Microsoft OLE DB 遠端提供者 （ADO 服務提供者）
RDS 教學課程
RDS 教學課程 （VBScript）