RDS 教學課程 （VBScript）
這是以 Visual Basic Scripting Edition Microsoft撰寫的 RDS 教學課程。 如需本教學課程用途的描述，請參閱 RDS 教學課程。
重要
從 Windows 8 和 Windows Server 2012 開始，RDS 伺服器元件已不再包含在 Windows 作業系統中（如需詳細資訊，請參閱 Windows 8 和 Windows Server 2012 兼容性 Cookbook）。 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 網頁伺服器名稱：
"https://<%=Request.ServerVariables("SERVER_NAME")%>"
不過，在本教學課程中，請使用虛構伺服器 「yourServer」。
注意
請注意 的 ByRef 參數之資料類型。 VBScript 不會讓您指定變數類型，因此您必須一律傳遞 Variant。 使用 HTTP 時，當您使用 RDS.DataSpace 物件的 CreateObject 方法，RDS 將允許您將 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>
這是教學課程的結尾。