次の方法で共有

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

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

手記

RDS の既定の動作は、ADO オブジェクトと Microsoft OLE DB リモート処理プロバイダーを使用して暗黙的に呼び出すことができます。 クエリは 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 リモート処理プロバイダー (ADO サービス プロバイダー)
RDS チュートリアル
RDS チュートリアル (VBScript)

  • Last updated on