步驟 6：將變更傳送到伺服器 (RDS 教學課程)

如果編輯 Recordset 物件，可將任何變更 (也就是新增、變更或刪除的資料列) 傳回伺服器。

注意

您可透過 ADO 物件和 Microsoft OLE DB 遠端提供者隱含地叫用 RDS 的預設行為。 查詢可以傳回 Recordset，而編輯的 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 開始，Windows 作業系統中不再包含 RDS 伺服器元件 (請參閱 Windows 8 和 Windows Server 2012 相容性逐步指南 (英文) 以取得詳細資料)。 未來的 Windows 版本將移除 RDS 用戶端元件。 請避免在新的開發工作中使用這項功能，並規劃修改目前使用這項功能的應用程式。 使用 RDS 的應用程式應該移轉至 WCF 資料服務。

另請參閱

Microsoft OLE DB Remoting Provider (ADO 服務提供者)
RDS 教學課程
RDS 教學課程 (VBScript)