Partilhar via

Programação ADO com VBScript

  • Artigo

Criando um projeto do ADO

O Microsoft Visual Basic, Scripting Edition não dá suporte a bibliotecas de tipos, portanto, você não precisa fazer referência ao ADO em seu projeto. Consequentemente, não há suporte para recursos associados, como a conclusão da linha de comando. Além disso, por padrão, as constantes enumeradas do ADO não são definidas no VBScript.

No entanto, o ADO fornece dois arquivos de inclusão que contêm as seguintes definições a serem usadas com o VBScript:

  • Para scripts do lado do servidor, use Adovbs.inc, que é instalado na pasta c:\Program Files\Common Files\System\ado\ por padrão.

  • Para scripts do lado do cliente, use Adcvbs.inc, que é instalado na pasta c:\Program Files\Common Files\System\msdac\ por padrão.

Você pode copiar e colar definições constantes desses arquivos em suas páginas do ASP ou, se estiver fazendo scripts do lado do servidor, copiar o arquivo Adovbs.inc para uma pasta em seu site e referenciá-lo de sua página ASP assim:

<!--#include File="adovbs.inc"-->

Criando objetos ADO no VBScript

Você não pode usar a instrução Dim para atribuir objetos a um tipo específico no VBScript. Além disso, o VBScript não dá suporte à sintaxe New usada com a instrução Dim no Visual Basic for Applications. Em vez disso, você deve usar a chamada de função CreateObject:

Dim Rs1  
Set Rs1 = Server.CreateObject( "ADODB.Recordset" )

Exemplos de VBScript

O código a seguir é um exemplo genérico de programação do lado do servidor VBScript em um arquivo ASP (Página do Servidor Ativo):

<%  @LANGUAGE="VBSCRIPT" %>  
<%  Option Explicit %>  
<!--#include File="adovbs.inc"-->  
<HTML>  
    <BODY BGCOLOR="White" topmargin="10" leftmargin="10">  
  
    <!-- Your ASP Code goes here -->  
<%  
Dim Source  
Dim Connect  
Dim Rs1  
  
Source = "SELECT * FROM Authors"  
Connect = "Provider=sqloledb;Data Source=srv;" & _  
    "Initial Catalog=Pubs;Integrated Security=SSPI;"  
  
Set Rs1 = Server.CreateObject( "ADODB.Recordset" )  
Rs1.Open Source, Connect, adOpenForwardOnly  
Response.Write("Success!")  
%>  
    </BODY>  
</HTML>

Exemplos de VBScript mais específicos são incluídos na documentação do ADO. Para obter mais informações, consulte exemplos de código do ADO no Microsoft Visual Basic Scripting Edition.

Diferenças entre o VBScript e o Visual Basic

Usar o ADO com VBScript é semelhante ao uso do ADO com o Visual Basic de várias maneiras, incluindo como a sintaxe é usada. No entanto, existem algumas diferenças significativas:

  • O VBScript dá suporte apenas ao tipo de dados Variant, que pode conter diferentes tipos de dados. Você pode armazenar os dados necessários em um tipo de dados Variant e os dados funcionarão adequadamente devido à conversão executada pelo VBScript. Ele reconhece o tipo exigido pelo ADO e converte o valor na Variant adequadamente.

  • Você não pode usar no comando "on error goto" para ir para o rótulo <dentro de> no VBScript.

  • O VBScript dá suporte a algumas das funções internas do Visual Basic, como msgbox, Datee IsNumeric. No entanto, como o VBScript é um subconjunto do Visual Basic, nem todas as funções internas têm suporte. Por exemplo, o VBScript não dá suporte à função Format e às funções de E/S do arquivo.