Compartilhar via


Tutorial 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 (confira Windows 8 e Manual de Compatibilidade do Windows Server 2012 para obter mais detalhes). Os componentes do cliente RDS serão removidos em uma versão futura do Windows. Evite usar esse recurso em desenvolvimentos novos e planeje modificar os aplicativos que atualmente o utilizam. Os aplicativos que usam o RDS devem migrar para o Serviço de Dados do WCF.

Neste tutorial, RDS.DataControl e RDS.DataSpace são criados no tempo de design – ou seja, eles são definidos com marcas de objeto, como: <OBJECT>...</OBJECT>. Como alternativa, eles podem ser criados em tempo de execução com o Método CreateObject (RDS). Por exemplo, o objeto RDS.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 do IIS no qual ele está em execução acessando o método Request.ServerVariables do VBScript disponível nas Páginas do Active Server:

"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 especificar o tipo de variável, portanto, você deve sempre passar uma Variant. Ao usar o HTTP, o RDS permitirá que você passe uma Variant para um método que espera uma non-Variant se você invocá-lo com o objeto RDS.DataSpace do método CreateObject. Ao usar o DCOM ou um servidor em processo, você deve corresponder os tipos de parâmetros nos lados do cliente e do servidor ou receberá um erro "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 deve 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 Recordset

Etapa 4 – O servidor retorna o Recordset

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

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

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

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

Este exemplo é apenas um comentário que demonstra como o RDS.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 fim do tutorial.

Consulte Também

Tutorial RDS