Partager via

Programmation ADO VBScript

  • Article

Création d’un projet ADO

Microsoft Visual Basic, Scripting Edition ne prend pas en charge les bibliothèques de types. Vous n’avez donc pas besoin de référencer ADO dans votre projet. Par conséquent, aucune fonctionnalité associée telle que l’achèvement de la ligne de commande n’est prise en charge. En outre, par défaut, les constantes énumérées ADO ne sont pas définies dans VBScript.

Toutefois, ADO vous fournit deux fichiers include contenant les définitions suivantes à utiliser avec VBScript :

  • Pour les scripts côté serveur, utilisez Adovbs.inc, qui est installé dans le dossier c :\Program Files\Common Files\System\ado\ par défaut.

  • Pour les scripts côté client, utilisez Adcvbs.inc, qui est installé dans le dossier c :\Program Files\Common Files\System\msdac\ par défaut.

Vous pouvez copier et coller des définitions constantes de ces fichiers dans vos pages ASP, ou, si vous effectuez des scripts côté serveur, copiez le fichier Adovbs.inc dans un dossier sur votre site web et en le référençant à partir de votre page ASP comme suit :

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

Création d’objets ADO dans VBScript

Vous ne pouvez pas utiliser l’instruction Dim pour affecter des objets à un type spécifique dans VBScript. En outre, VBScript ne prend pas en charge la syntaxe New utilisée avec l’instruction Dim dans Visual Basic pour Applications. Vous devez à la place utiliser l'appel de fonction CreateObject :

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

Exemples VBScript

Le code suivant est un exemple générique de programmation côté serveur VBScript dans un fichier 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>

Des exemples VBScript plus spécifiques sont inclus dans la documentation ADO. Pour plus d’informations, consultez exemples de code ADO dans Microsoft Visual Basic Scripting Edition.

Différences entre VBScript et Visual Basic

L’utilisation d’ADO avec VBScript est similaire à l’utilisation d’ADO avec Visual Basic de plusieurs façons, notamment la façon dont la syntaxe est utilisée. Toutefois, certaines différences significatives existent :

  • VBScript prend uniquement en charge le type de données Variant, qui peut contenir différents types de données. Vous pouvez stocker les données dont vous avez besoin dans un type de données Variant, et elles seront bien traitées grâce à la conversion effectuée par VBScript. Il reconnaît le type requis par ADO et convertit la valeur dans le variant en conséquence.

  • Vous ne pouvez pas utiliser sur l’étiquette goto <> dans VBScript.

  • VBScript prend en charge certaines des fonctions Visual Basic intégrées telles que Msgbox, Dateet IsNumeric. Toutefois, étant donné que VBScript est un sous-ensemble de Visual Basic, toutes les fonctions intégrées ne sont pas prises en charge. Par exemple, VBScript ne prend pas en charge la fonction Format et les fonctions d’E/S de fichier.