手順 6:変更がサーバーに送信される (RDS チュートリアル)

Recordset オブジェクトを編集すると、すべての変更 (つまり、追加、変更、または削除された行) をサーバーに返送できます。

注意

RDS の既定の動作は、ADO オブジェクトと Microsoft OLE DB Remoting Provider を使用して暗黙的に呼び出すことができます。 クエリは 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 に関連付けられたものとします。 SubmitChanges メソッドは、Server および Connect プロパティがまだ設定されている場合、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: あるいは、接続および Recordset オブジェクトを指定して RDSServer.DataFactory オブジェクトを使用してサーバーを更新できます。

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 の互換性クックブックを参照してください)。 RDS クライアント コンポーネントは、今後のバージョンの Windows で削除される予定です。 新規の開発作業ではこの機能を使用しないようにし、現在この機能を使用しているアプリケーションは修正することを検討してください。 RDS を使用するアプリケーションを WCF Data Service に移行する必要があります。

参照

Microsoft OLE DB Remoting Provider (ADO サービス プロバイダー)
RDS チュートリアル
RDS のチュートリアル (VBScript)