第 12 章: リモートデータサービス (RDS) チュートリアル

[アーティクル]
04/04/2023

適用先: Access 2013、Office 2013

このチュートリアルでは、RDS プログラミングモデルを使用してデータソースのクエリおよび更新を行う方法について説明します。最初に、このタスクの実行に必要な手順を説明します。次に、チュートリアルを Microsoft Visual Basic Scripting Edition と Microsoft Visual J++ で繰り返します。このチュートリアルでは、ADO for Windows Foundation Classes (ADO/WFC) が特徴です。

このチュートリアルは、次の 2 つの理由から、複数の言語でコーディングされています。

RDS の文書は、Visual Basic でのコーディングを前提にしています。そのため、Visual Basic のプログラマには便利ですが、他の言語を使用するプログラマには不便な場合があります。
RDS の特定の機能についてわからない場合に、他の言語について多少の知識があれば、他の言語で記述された同じ機能を参照することによって問題を解決できる可能性があります。

このチュートリアルは、RDS プログラミングモデルに基づいています。プログラミングモデルの各手順を 1 つずつ説明します。さらに、それぞれの手順に Visual Basic コードの一部を示してあります。

他の言語についても、コード例を最小限の説明と共に取り上げています。各プログラム言語のチュートリアルの手順には、プログラミングモデルとチュートリアルの説明にある手順に対応する番号が付いています。この手順番号を利用して、対応するチュートリアルの説明を参照してください。

RDS プログラミングモデルについて、次に説明します。チュートリアルを使用するうえでのガイドラインとして使用してください。

RDS プログラミングモデルとオブジェクト

サーバーで呼び出されるプログラムを指定し、クライアントからそのプログラムを参照するための経路 (プロキシ) を取得します。
サーバープログラムを呼び出します。データソースおよび発行するコマンドを識別するためのパラメーターをサーバープログラムに渡します。
サーバープログラムは、通常 ADO を使用して、データソースから Recordset オブジェクトを取得します。また、 Recordset オブジェクトをサーバー上で処理することもできます。
サーバープログラムは、結果の Recordset オブジェクトをクライアントアプリケーションに返します。
クライアント側では、ビジュアルコントロールを使用すると、必要に応じてフォームに Recordset オブジェクトを簡単に配置できます。
Recordset オブジェクトに加えられた変更がサーバーに送り返され、その変更がデータソースに反映されます。

手順 1: サーバープログラムを指定する

In the most general case, use the RDS.DataSpace object CreateObject method to specify the default server program, RDSServer.DataFactory, or your own custom server program (business object). サーバープログラムがサーバーでインスタンス化され、サーバープログラム ( プロキシ) への参照が返されます。

このチュートリアルでは、既定のサーバープログラムを使用します。

 
Sub RDSTutorial1() 
 Dim DS as New RDS.DataSpace 
 Dim DF as Object 
 Set DF = DS.CreateObject("RDSServer.DataFactory", "https://yourServer") 
...

手順 2: サーバープログラムを呼び出す

クライアントの "プロキシ" でメソッドを呼び出すと、サーバー上の実際のプログラムでメソッドが実行されます。この手順では、サーバー上でクエリを実行します。

パート A

このチュートリアルで RDSServer.DataFactory を使用していない場合、この手順を実行する最も便利な方法は RDS を使用することです。DataControl オブジェクト。 RDS.DataControl によって、プロキシを作成する前の手順が、クエリを発行するこの手順と結合されます。

RDS を設定します 。サーバー プログラムをインスタンス化する必要がある場所を識別する DataControl オブジェクト Server プロパティ。
データソースにアクセスする接続文字列を指定するには、 Connect プロパティを設定します。
SQL プロパティを設定して、クエリコマンドテキストを指定します。
Refresh メソッドを発行して、サーバープログラムがデータソースに接続し、クエリで指定された行を取得し、Recordset オブジェクトをクライアントに返します。

このチュートリアルでは RDS.DataControl を使用しませんが、使用する場合は次のようになります。

 
Sub RDSTutorial2A() 
 Dim DC as New RDS.DataControl 
 DC.Server = "https://yourServer" 
 DC.Connect = "DSN=Pubs" 
 DC.SQL = "SELECT * FROM Authors" 
 DC.Refresh 
...

また、このチュートリアルでは ADO オブジェクトを使用して RDS を呼び出しませんが、呼び出す場合は次のようになります。

 
Dim rs as New ADODB.Recordset 
rs.Open "SELECT * FROM Authors","Provider=MS Remote;Data Source=Pubs;" & _ 
"Remote Server=https://yourServer;Remote Provider=SQLOLEDB;"

パート B

この手順を実行する一般的な方法は、 RDSServer.DataFactory オブジェクト Query メソッドを呼び出す方法です。このメソッドは、データソースへの接続に使用される接続文字列と、データソースから返される行の指定に使用されるコマンドテキストを取得します。

このチュートリアルでは、 DataFactory オブジェクトの Query メソッドを使用します。

 
Sub RDSTutorial2B() 
 Dim DS as New RDS.DataSpace 
 Dim DF 
 Dim RS as ADODB.Recordset 
 Set DF = DS.CreateObject("RDSServer.DataFactory", "https://yourServer") 
 Set RS = DF.Query ("DSN=Pubs", "SELECT * FROM Authors") 
...

手順 3: サーバーが Recordset を取得する

サーバープログラムは、目的の行のデータソースのクエリを実行するために、接続文字列とコマンドテキストを使用します。通常、この Recordset の取得には ADO が使用されますが、マイクロソフトのその他のデータアクセスインターフェイス (OLE DB など) を使用することもできます。

カスタマーサーバープログラムは次のようになります。

 
Public Function ServerProgram(cn as String, qry as String) as Object 
Dim rs as New ADODB.Recordset 
 rs.CursorLocation = adUseClient 
 rs.Open qry, cn 
 rs.ActiveConnection = Nothing 
 Set ServerProgram = rs 
End Function

手順 4: サーバーから Recordset が返される

RDS は、取得した Recordset オブジェクトを、クライアントに送信できるフォームに変換します (つまり、Recordset をマーシャリングします)。 The exact form of the conversion and how it is sent depends on whether the server is on the Internet or an intranet, a local area network, or is a dynamic-link library. However, this detail is not critical; all that matters is that RDS sends the Recordset back to the client.

クライアント側では、 Recordset オブジェクトが返され、ローカル変数に割り当てられます。

 
Sub RDSTutorial4() 
 Dim DS as New RDS.DataSpace 
 Dim RS as ADODB.Recordset 
 Dim DF as Object 
 Set DF = DS.CreateObject("RDSServer.DataFactory", "https://yourServer") 
 Set RS = DF.Query("DSN=Pubs", "SELECT * FROM Authors") 
...

手順 5: DataControl を使用可能にする

返された Recordset オブジェクトは、利用可能な状態です。他の Recordset と同様に、調査、移動、または編集を行うことができます。 Recordset に対して実行できる操作は、環境によって異なります。 Visual Basic および Visual C++ には、直接的に、またはデータコントロールを使って間接的に Recordset を使用できる、ビジュアルコントロールがあります。

たとえば、インターネットエクスプローラーで Web ページを表示する場合は、ビジュアルコントロールに Recordset オブジェクトデータを表示できます。 Web ページ上のビジュアルコントロールは、 Recordset オブジェクトに直接アクセスできません。しかし、 DataControl (RDS) を通じて Recordset にアクセスすることはできます。 RDS.DataControl は、その SourceRecordset プロパティが Recordset オブジェクトに設定されている場合に、ビジュアルコントロールによって使用可能な状態になります。

ビジュアルコントロールオブジェクトの DATASRC パラメーターは RDS.DataControl に、 DATAFLD プロパティは Recordset オブジェクトのフィールド (列) に設定されている必要があります。

このチュートリアルでは、 SourceRecordset プロパティを設定します。

 
Sub RDSTutorial5() 
 Dim DS as New RDS.DataSpace 
 Dim RS as ADODB.Recordset 
 Dim DC as New RDS.DataControl 
 Dim DF as Object 
 Set DF = DS.CreateObject("RDSServer.DataFactory", "https://yourServer") 
 Set RS = DF.Query ("DSN=Pubs", "SELECT * FROM Authors") 
 DC.SourceRecordset = RS ' Visual controls can now bind to DC. 
...

手順 6: 変更がサーバーに送信される

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

[!メモ] ADO オブジェクトおよび Microsoft OLE DB Remoting Provider を使用して、RDS の既定の動作を暗黙的に呼び出すことができます。クエリは Recordset を返し、編集された Recordset は データソースを更新できます。このチュートリアルでは ADO オブジェクトを使用して RDS を呼び出しませんが、呼び出す場合は次のようになります。

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

パート A

この場合は、RDS のみを使用しているとします。DataControl と Recordset オブジェクトが RDS に関連付けられるようになりました 。DataControl。 Server プロパティと Connect プロパティが引き続き設定されていれば、 SubmitChanges メソッドによって Recordset オブジェクトへの変更がデータソースに反映されます。

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

パート 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.CreateObject("RDSServer.DataFactory", "https://yourServer") 
Set RS = DF.Query ("DSN=Pubs", "SELECT * FROM Authors") 
DC.SourceRecordset = RS ' Visual controls can now bind to DC. 
 ' Edit the Recordset. 
blnStatus = DF.SubmitChanges "DSN=Pubs", RS 
End Sub

付録 A: RDS チュートリアル (VBScript)

これは、Microsoft Visual Basic Scripting Edition で記述された RDS チュートリアルです。このチュートリアルの目的の説明については、このトピックの概要を参照してください。

このチュートリアルでは、 RDS です。DataControl と RDS。DataSpace はデザイン時に作成されます。つまり、オブジェクトタグを使用して定義されます。また、実行時に Server.CreateObject メソッドを使用して作成することもできます。

たとえば、 RDS.DataControl オブジェクトは次のようにして作成できます。

    Set DC = Server.CreateObject("RDS.DataControl") 
     <!-- RDS.DataControl --> 
     <OBJECT 
     ID="DC1" CLASSID="CLSID:BD96C556-65A3-11D0-983A-00C04FC29E33"> 
     </OBJECT> 
     
     <!-- RDS.DataSpace --> 
     <OBJECT 
     ID="DS1" WIDTH=1 HEIGHT=1 
     CLASSID="CLSID:BD96C556-65A3-11D0-983A-00C04FC29E36"> 
     </OBJECT> 
     
     <SCRIPT LANGUAGE="VBScript"> 
     
     Sub RDSTutorial() 
     Dim DF1

手順 1: サーバープログラムを指定する

VBScript は、Active Server Pages で使用できる VBScript Request.ServerVariables メソッドにアクセスすることで、実行されている IIS Web サーバーの名前を検出できます。

 
"https://<%=Request.ServerVariables("SERVER_NAME")%>"

ただし、このチュートリアルでは、仮想サーバー "yourServer" を使用します。

注:

ByRef 引数のデータ型に注意してください。 VBScript では変数の型を指定できないため、常に Variant を渡す必要があります。 HTTP を使用する場合、RDS を使用すると、RDS で呼び出した場合にバリアント型 (Variant) 以外のメソッドに Variant を渡すことができます 。DataSpace オブジェクト CreateObject メソッド。 DCOM またはインプロセスサーバーを使用する場合は、クライアント側とサーバー側のパラメーターの種類に一致するか、"型の不一致" エラーが表示されます。

 
Set DF1 = DS1.CreateObject("RDSServer.DataFactory", "https://yourServer")

手順 2 パート A: RDS を使用してサーバープログラムを呼び出します。DataControl

次の例は、 RDS.DataControl の既定の動作が指定されたクエリの実行であることを単に示したものです。

 
<OBJECT CLASSID="clsid:BD96C556-65A3-11D0-983A-00C04FC29E33" ID="DC1"> 
 <PARAM NAME="SQL" VALUE="SELECT * FROM Authors"> 
 <PARAM NAME="Connect" VALUE="DSN=Pubs;"> 
 <PARAM NAME="Server" VALUE="https://yourServer/"> 
</OBJECT> 
... 
<SCRIPT LANGUAGE="VBScript"> 
 
Sub RDSTutorial2A() 
 Dim RS 
 DC1.Refresh 
 Set RS = DC1.Recordset 
...

次の手順に進みます。

手順 4: サーバーから Recordset が返される

 
Set RS = DF1.Query("DSN=Pubs;", "SELECT * FROM Authors")

手順 5: DataControl をビジュアルコントロールで使用できるようにします

 
' Assign the returned recordset to the DataControl. 
 
DC1.SourceRecordset = RS

手順 6、パート A: 変更は RDS を使用してサーバーに送信されます。DataControl

次の例は、 RDS.DataControl がどのようにして更新を行うかを単に示したものです。

 
<OBJECT CLASSID="clsid:BD96C556-65A3-11D0-983A-00C04FC29E33" ID="DC1"> 
 <PARAM NAME="SQL" VALUE="SELECT * FROM Authors"> 
 <PARAM NAME="Connect" VALUE="DSN=Pubs;"> 
 <PARAM NAME="Server" VALUE="https://yourServer/"> 
</OBJECT> 
... 
<SCRIPT LANGUAGE="VBScript"> 
 
Sub RDSTutorial6A() 
Dim RS 
DC1.Refresh 
... 
Set RS = DC1.Recordset 
' Edit the Recordset object... 
' The SERVER and CONNECT properties are already set from Step 2A. 
Set DC1.SourceRecordset = RS 
... 
DC1.SubmitChanges

手順 6、パート B: RDSServer.DataFactory を使用してサーバーに変更が送信される

 
DF.SubmitChanges"DSN=Pubs", RS 
 
End Sub 
</SCRIPT> 
</BODY> 
</HTML>

付録 B: RDS チュートリアル (Visual J++)

ADO/WFC は、DataControl (RDS) オブジェクトを実装していないという点で、RDS オブジェクトモデルに完全には準拠していません。 ADO/WFC は、クライアント側のクラスの DataSpace (RDS) のみを実装しています。

DataSpace クラスは、 ObjectProxy オブジェクトを返す CreateObject メソッドを実装しています。 DataSpace クラスは、 InternetTimeout プロパティも実装しています。

ObjectProxy クラスは、サーバー側の任意のビジネスオブジェクトを呼び出すことができる call メソッドを実装しています。

 
import com.ms.wfc.data.*; 
public class RDSTutorial 
{ 
 public void tutorial() 
 { 
// Step 1: Specify a server program. 
 ObjectProxy obj = 
 DataSpace.createObject( 
 "RDSServer.DataFactory", 
 "https://YourServer"); 
 
// Step 2: Server returns a Recordset. 
 Recordset rs = (Recordset) obj.call( 
 "Query", 
 new Object[] {"DSN=Pubs;", "SELECT * FROM Authors"}); 
 
// Step 3: Changes are sent to the server. 
 ... // Edit Recordset. 
 obj.call( 
 "SubmitChanges", 
 new Object[] {"DSN=Pubs;", rs}); 
 return; 
 } 
}

第 12 章: リモート データ サービス (RDS) チュートリアル

RDS プログラミング モデルとオブジェクト

手順 1: サーバー プログラムを指定する

手順 2: サーバー プログラムを呼び出す

パート A

パート B

手順 3: サーバーが Recordset を取得する

手順 4: サーバーから Recordset が返される

手順 5: DataControl を使用可能にする

手順 6: 変更がサーバーに送信される

パート A

パート B

付録 A: RDS チュートリアル (VBScript)

手順 1: サーバー プログラムを指定する

手順 2 パート A: RDS を使用してサーバー プログラムを呼び出します。DataControl

手順 4: サーバーから Recordset が返される

手順 5: DataControl をビジュアル コントロールで使用できるようにします

手順 6、パート A: 変更は RDS を使用してサーバーに送信されます。DataControl

手順 6、パート B: RDSServer.DataFactory を使用してサーバーに変更が送信される

付録 B: RDS チュートリアル (Visual J++)

その他のリソース

第 12 章: リモートデータサービス (RDS) チュートリアル

RDS プログラミングモデルとオブジェクト

手順 1: サーバープログラムを指定する

手順 2: サーバープログラムを呼び出す

手順 1: サーバープログラムを指定する

手順 2 パート A: RDS を使用してサーバープログラムを呼び出します。DataControl

手順 5: DataControl をビジュアルコントロールで使用できるようにします