これは、Microsoft Visual Basic Scripting Edition で記述された RDS チュートリアルです。 このチュートリアルの目的については、RDS チュートリアルを参照してください。
大事な
Windows 8 および Windows Server 2012 以降では、RDS サーバー コンポーネントは Windows オペレーティング システムに含まれません (詳細については、Windows 8 と Windows Server 2012 の互換性クックブック を参照してください)。 RDS クライアント コンポーネントは、将来のバージョンの Windows で削除される予定です。 新しい開発作業ではこの機能を使用しないでください。現在この機能を使用しているアプリケーションを変更することを計画してください。 RDS を使用するアプリケーションは、WCF Data Serviceに移行する必要があります。
このチュートリアルでは、RDS.DataControl と RDS.DataSpace が設計時に作成されます。つまり、次のようにオブジェクトタグを使用して定義されます：<OBJECT>...</OBJECT>。 または、CreateObject メソッド (RDS) メソッドを使用して、実行時に作成することもできます。 たとえば、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.DataSpace オブジェクトの CreateObject メソッドを使用して呼び出したときには、バリアント型 (Variant) ではないものを期待するメソッドに対しても、バリアント型 (Variant) を渡すことができます。 DCOM またはインプロセス サーバーを使用する場合は、クライアント側とサーバー側のパラメーターの型を一致させる必要があります。または、"型の不一致" エラーが表示されます。
Set DF1 = DS1.CreateObject("RDSServer.DataFactory", "https://yourServer")
手順 2a - 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
...
手順 2b - RDSServer.DataFactory を使用してサーバー プログラムを呼び出す
手順 3 - サーバーがレコードセットを取得する
手順 4 - サーバーが Recordset を返す
Set RS = DF1.Query("DSN=Pubs;", "SELECT * FROM Authors")
手順 5 - DataControl はビジュアル コントロールで使用できます
' Assign the returned recordset to the DataControl.
DC1.SourceRecordset = RS
手順 6a - 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
手順 6b - RDSServer.DataFactory を使用して変更がサーバーに送信される
DF.SubmitChanges "DSN=Pubs", RS
End Sub
</SCRIPT>
</BODY>
</HTML>
チュートリアルの最後です。