VBScript-ADO-Programmierung

Artikel
05/30/2023

Erstellen eines ADO-Projekts

Microsoft Visual Basic Scripting Edition unterstützt keine Typbibliotheken, daher müssen Sie in Ihrem Projekt nicht auf ADO verweisen. Folglich werden auch keine zugehörigen Features wie die Befehlszeilenvervollständigung unterstützt. Außerdem sind die ADO-Enumerationskonstanten in VBScript standardmäßig nicht definiert.

Allerdings stellt Ihnen ADO zwei Includedateien zur Verfügung, die die folgenden Definitionen für das Verwenden mit VBScript enthalten:

Verwenden Sie für serverseitige Skripts „Adovbs.inc“, standardmäßig im Ordner „c:\Program Files\Common Files\System\ado\“ installiert.
Verwenden Sie für clientseitige Skripts „Adcvbs.inc“, standardmäßig im Ordner „c:\Program Files\Common Files\System\msdac\“ installiert.

Sie können entweder die Konstantendefinitionen aus den Dateien kopieren und in Ihre ASP-Seiten einfügen oder, wenn Sie serverseitiges Scripting verwenden, die Datei „Adovbs.inc“ in einen Ordner auf Ihrer Website kopieren und von Ihrer ASP-Seite aus wie folgt referenzieren:

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

Erstellen von ADO-Objekten in VBScript

Sie können die Anweisung Dim nicht verwenden, um einem bestimmten Typ in VBScript Objekte zuzuweisen. Außerdem unterstützt VBScript die Syntax New nicht, die mit der Anweisung Dim in Visual Basic for Applications verwendet wird. Sie müssen stattdessen den Funktionsaufruf CreateObject verwenden:

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

VBScript-Beispiele

Der folgende Code ist ein allgemeines Beispiel für die serverseitige VBScript-Programmierung in einer Active Server Pages-Datei (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>

Spezifischere VBScript-Beispiele sind in der ADO-Dokumentation enthalten. Weitere Informationen finden Sie unter ADO-Codebeispiele in Microsoft Visual Basic Scripting Edition.

Unterschiede zwischen VBScript und Visual Basic

Viele Aspekte des Verwendens von ADO mit VBScript ähneln dem Verwenden von ADO mit Visual Basic, einschließlich der Syntaxanwendung. Es bestehen jedoch einige wesentliche Unterschiede:

VBScript unterstützt nur den Variant-Datentyp, der verschiedene Datentypen enthalten kann. Sie können die benötigten Daten in einem Variant-Datentyp speichern. Die Daten funktionieren aufgrund der Umwandlung, die von VBScript ausgeführt wird, angemessen. Der von ADO benötigte Datentyp wird erkannt und der Wert im Variant-Datentyp entsprechend konvertiert.
Sie können on error goto <Bezeichnung> nicht in VBScript verwenden.
VBScript unterstützt einige der integrierten Visual Basic-Funktionen wie Msgbox, Date und IsNumeric. Da VBScript jedoch ein Teil von Visual Basic ist, werden nicht alle integrierten Funktionen unterstützt. Beispielsweise unterstützt VBScript die Funktion Format und die Datei-E/A-Funktionen nicht.

Share via