Tutorial de RDS (VBScript)

Artículo
11/09/2018

Este es el tutorial de RDS, escrito en Microsoft Visual Basic Scripting Edition. Para obtener una descripción del propósito de este tutorial, consulte el Tutorial de RDS.

Importante

A partir de Windows 8 y Windows Server 2012, los componentes del servidor RDS ya no se incluyen en el sistema operativo Windows (consulte Windows 8 y Guía de compatibilidad de Windows Server 2012 para obtener más detalles). Los componentes de cliente de RDS se quitarán en una versión futura de Windows. Evite usar esta característica en el nuevo trabajo de desarrollo y planee modificar las aplicaciones que actualmente usan esta característica. Las aplicaciones que usan RDS deben migrar a WCF Data Service.

En este tutorial, RDS.DataControl y RDS.DataSpace se crean en tiempo de diseño; es decir, se definen con etiquetas de objeto, como esto: <OBJECT>...</OBJECT>. Como alternativa, se podrían crear en tiempo de ejecución con el método CreateObject (RDS). Por ejemplo, el RDS. DataControl objeto podría crearse de la siguiente manera:

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

Paso 1: Especificar un programa de servidor

VBScript puede detectar el nombre del servidor web de IIS en el que se ejecuta accediendo al método Request.ServerVariables de VBScript disponible para Active Server Pages:

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

Sin embargo, para este tutorial, use el servidor imaginario "yourServer".

Nota

Preste atención al tipo de datos de los argumentos ByRef. VBScript no permite especificar el tipo de variable, por lo que siempre debe pasar un Variant. Al usar HTTP, RDS le permitirá pasar un valor Variant a un método que espera un valor distinto de Variant si lo invoca con el RDS. Objeto DataSpacemétodo CreateObject. Al usar DCOM o un servidor en proceso, debe hacer coincidir los tipos de parámetros tanto en el cliente como en el servidor o recibirá un "error de tipo".

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

Paso 2a: Invocación del programa de servidor con RDS. DataControl

Este ejemplo es simplemente un comentario que muestra que el comportamiento predeterminado del RDS. DataControl es realizar la consulta especificada.

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

Paso 2b: Invocación del programa de servidor con RDSServer.DataFactory

Paso 3 - El servidor obtiene un Recordset

Paso 4: El servidor devuelve el objeto Recordset

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

Paso 5: DataControl se hace utilizable mediante los controles visuales

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

Paso 6a: los cambios se envían al servidor con RDS. DataControl

Este ejemplo es simplemente un comentario que muestra cómo RDS. DataControl realiza actualizaciones.

<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

Paso 6b: los cambios se envían al servidor con RDSServer.DataFactory

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

Este es el final del tutorial.

Consulte también

Tutorial de RDS

Compartir vía