Partilhar via

Tutorial do RDS (VBScript)

Este é o Tutorial do RDS, escrito no Microsoft Visual Basic Scripting Edition. Para obter uma descrição da finalidade deste tutorial, consulte o Tutorial do RDS.

Importante

A partir do Windows 8 e do Windows Server 2012, os componentes do servidor RDS não estão mais incluídos no sistema operacional Windows (consulte o Windows 8 e o Windows Server 2012 Compatibility Cookbook para obter mais detalhes). Os componentes do cliente RDS serão removidos em uma versão futura do Windows. Evite usar esse recurso em um novo trabalho de desenvolvimento e planeje modificar aplicativos que atualmente usam esse recurso. Os aplicativos que utilizam RDS devem migrar para o WCF Data Service.

Neste tutorial, RDS.DataControl e RDS.DataSpace são criados em tempo de design, ou seja, eles são definidos com marcas de objeto, assim: <OBJECT>...</OBJECT>. Como alternativa, eles podem ser criados em tempo de execução com o método RDS (Método CreateObject ). Por exemplo, o RDS. O objeto DataControl pode ser criado da seguinte maneira:

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

Etapa 1 – Especificar um programa de servidor

O VBScript pode descobrir o nome do servidor Web IIS em que está em execução acessando o método Request.ServerVariables do VBScript disponível para Páginas de Servidor Ativo (ASP):

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

No entanto, para este tutorial, use o servidor imaginário, "yourServer".

Observação

Preste atenção ao tipo de dados de argumentos ByRef . O VBScript não permite que você especifique o tipo de variável, portanto, você deve sempre passar uma Variant. Ao usar HTTP, o RDS permitirá que você passe uma Variant para um método que espera um não-Variant se você invocá-lo usando o método CreateObject do objeto RDS.DataSpace. Ao usar o DCOM ou um servidor integrado, você deve assegurar que os tipos de parâmetro no lado do cliente e do servidor sejam compatíveis, caso contrário, ocorrerá um erro de "Incompatibilidade de Tipo".

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

Etapa 2a – Invocar o programa de servidor com RDS. DataControl

Este exemplo é apenas um comentário que demonstra que o comportamento padrão do RDS. DataControl é para executar a 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  
...

Etapa 2b – Invocar o programa de servidor com RDSServer.DataFactory

Etapa 3 – O servidor obtém um conjunto de registros

Etapa 4 – O servidor retorna o conjunto de registros

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

Etapa 5 – DataControl torna-se utilizável por controles visuais

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

Etapa 6a – As alterações são enviadas ao servidor com RDS. DataControl

Este exemplo é apenas um comentário que demonstra como o RDS. O DataControl executa atualizações.

<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

Etapa 6b – As alterações são enviadas ao servidor com RDSServer.DataFactory

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

Este é o final do tutorial.

Consulte Também

Tutorial de RDS

  • Last updated on