Programmation ADO VBScript

Article
05/30/2023

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, comme la saisie semi-automatique de ligne de commande, n’est prise en charge. Par défaut, les constantes énumérées ADO ne sont pas définies en 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 le script côté client, utilisez Adcvbs.inc, qui est installé par défaut dans le dossier c:\Program Files\Common Files\System\msdac\.

Vous pouvez soit copier et coller les définitions des constantes de ces fichiers dans vos pages ASP, soit, si vous utilisez un script côté serveur, copier le fichier Adovbs.inc dans un dossier de votre site Web et le référencer à partir de votre page ASP comme ceci :

<!--#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 nouvelle syntaxe utilisée avec l’instruction Dim dans Visual Basic pour Applications. Vous devez plutôt 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 VBScript côté serveur dans un fichier Active Server Page (ASP) :

<%  @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, voir les 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, il existe des différences significatives :

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 les données fonctionnent correctement en raison du cast effectué 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 l’étiquette< goto >d’erreur dans VBScript.
VBScript prend en charge certaines des fonctions Visual Basic intégrées telles que Msgbox, Date et 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.

Partager via