RDS-Lernprogramm (VBScript)

Artikel
11/09/2018

Dies ist das RDS-Lernprogramm, das in Microsoft Visual Basic Scripting Edition geschrieben wurde. Eine Beschreibung des Zwecks dieses Lernprogramms finden Sie im RDS-Lernprogramm.

Wichtig

Ab Windows 8 und Windows Server 2012 sind RDS-Serverkomponenten nicht mehr im Windows-Betriebssystem enthalten (weitere Details finden Sie unter Windows 8 und Windows Server 2012 Compatibility Cookbook). RDS-Clientkomponenten werden in einer zukünftigen Version von Windows entfernt. Vermeiden Sie die Verwendung dieses Features in neuer Entwicklungsarbeit, und planen Sie, Anwendungen zu ändern, die derzeit dieses Feature verwenden. Anwendungen, die RDS verwenden, sollten zu WCF Data Servicemigrieren.

In diesem Tutorial RDS.DataControl und RDS.DataSpace werden während der Entwurfszeit erstellt, das heißt, sie werden mit Objekttags definiert, wie folgt: <OBJECT>...</OBJECT>. Alternativ können sie zur Laufzeit mit der CreateObject-Methode (RDS)-Methode erstellt werden. Beispielsweise könnte das RDS.DataControl-Objekt folgendermaßen erstellt werden:

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

Schritt 1 : Angeben eines Serverprogramms

VBScript kann den Namen des IIS-Webservers ermitteln, auf dem er ausgeführt wird, indem er auf die VBScript-Request.ServerVariables-Methode zugreift, die für Active Server Pages verfügbar ist:

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

Verwenden Sie für dieses Lernprogramm jedoch den imaginären Server "yourServer".

Anmerkung

Achten Sie auf den Datentyp der ByRef Argumente. Mit VBScript kann man den Variablentyp nicht angeben, daher muss man immer einen Variantübergeben. Wenn Sie HTTP verwenden, ermöglicht RDS das Übergeben eines Variant-Werts an eine Methode, die einen nicht-Variant-Wert erwartet, wenn Sie ihn mit dem RDS aufrufen. DataSpace-Objekt CreateObject-Methode. Wenn Sie DCOM oder einen In-Process-Server verwenden, müssen Sie die Parametertypen auf der Client- und Serverseite abgleichen, oder Sie erhalten einen Fehler «Type Mismatch».

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

Schritt 2a : Aufrufen des Serverprogramms mit RDS. DataControl

Dieses Beispiel ist lediglich ein Kommentar, der zeigt, dass das Standardverhalten des RDS. DataControl besteht darin, die angegebene Abfrage auszuführen.

<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  
...

Schritt 2b : Aufrufen des Serverprogramms mit RDSServer.DataFactory

Schritt 3: Server ruft ein Recordset ab

Schritt 4 : Der Server gibt das Recordset zurück.

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

Schritt 5 - DataControl wird durch visuelle Steuerelemente nutzbar gemacht.

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

Schritt 6a: Änderungen werden mit RDS an den Server gesendet. DataControl

Dieses Beispiel ist lediglich ein Kommentar, der veranschaulicht, wie das RDS. DataControl führt Aktualisierungen durch.

<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

Schritt 6b : Änderungen werden mit RDSServer.DataFactory an den Server gesendet.

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

Dies ist das Ende des Lernprogramms.

Siehe auch

RDS-Lernprogramm

Freigeben über