Compartilhar via

Programação ADO VBScript

  • Artigo

Aplica-se ao: Access 2013, Office 2013

Criando um projeto ADO

O Microsoft Visual Basic, Scripting Edition, não oferece suporte a bibliotecas de tipos, portanto, você não precisa fazer referência ao ADO em seu projeto. Consequentemente, nenhum recurso associado, como a conclusão da linha de comando, é permitido. Por padrão, as constantes enumeradas do ADO também não são definidas no VBScript.

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

  • Para script no servidor, use o Adovbs.inc, que é instalado por padrão na pasta c:\Arquivos de Programas\Arquivos Comuns\System\ado\.

  • Para script no lado do cliente, use o Adcvbs.inc, que é instalado por padrão na pasta c:\Arquivos de Programas\Arquivos Comuns\System\msdac\.

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

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

Criando objetos ADO no VBScript

Não é possível usar a instrução Dim para atribuir objetos a um tipo específico no VBScript. Além disso, o VBScript não oferece suporte ao uso da sintaxe New com a instrução Dim no Visual Basic for Applications. Em vez de usar a função CreateObject, você deve chamar:

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

Exemplos do VBScript

O código a seguir é um exemplo genérico da programação no servidor do VBScript em um arquivo ASP (Active Server Page):

 
<%  @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 mais específicos do VBScript encontram-se na documentação do ADO. Para obter mais informações, confira Exemplos de código do ADO no Microsoft Visual Basic Scripting Edition.

Diferenças entre VBScript e Visual Basic

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

  • O VBScript oferece suporte somente ao tipo de dados Variant, que pode conter diferentes tipos de dados. É possível armazenar os dados de que você precisa em um tipo de dados Variant, e eles funcionarão adequadamente devido ao desempenho do VBScript. Ele reconhece o tipo exigido pelo ADO e converte o valor em Variant de acordo com a necessidade.

  • Você não pode usar on error goto <label> no VBScript.

  • O VBScript oferece suporte a algumas das funções internas do Visual Basic, como Msgbox, Date e IsNumeric. No entanto, como o VBScript é um subconjunto do Visual Basic, nem todas as funções internas são permitidas. Por exemplo, o VBScript não oferece suporte à função Format e às funções E/S de arquivo.