Freigeben über

VBScript ADO-Programmierung

  • Artikel

Erstellen eines ADO-Projekts

Microsoft Visual Basic, Scripting Edition unterstützt keine Typbibliotheken, daher müssen Sie in Ihrem Projekt nicht auf ADO verweisen. Daher werden keine zugehörigen Features wie der Abschluss der Befehlszeile unterstützt. Standardmäßig sind ADO-Aufzählungskonstanten in VBScript nicht definiert.

ADO stellt jedoch zwei Include-Dateien zur Verfügung, die die folgenden Definitionen für die Verwendung mit VBScript enthalten:

  • Verwenden Sie für serverseitige Skripts Adovbs.inc, das standardmäßig im Ordner "c:\Program Files\Common Files\System\ado\" installiert ist.

  • Verwenden Sie für clientseitige Skripts Adcvbs.inc, die standardmäßig im Ordner "c:\Programme\Common Files\System\msdac\" installiert ist.

Sie können entweder Konstantendefinitionen aus diesen Dateien in Ihre ASP-Seiten kopieren und einfügen. Wenn Sie serverseitige Skripts ausführen, kopieren Sie die Adovbs.inc-Datei in einen Ordner auf Ihrer Website, und verweisen Sie darauf von Ihrer ASP-Seite wie folgt:

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

Erstellen von ADO-Objekten in VBScript

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

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

VBScript-Beispiele

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

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

Unterschiede zwischen VBScript und Visual Basic

Die Verwendung von ADO mit VBScript ähnelt der Verwendung von ADO mit Visual Basic auf viele Arten, einschließlich der Verwendung der Syntax. Es gibt jedoch einige wesentliche Unterschiede:

  • VBScript unterstützt nur den Variant-Datentyp, der verschiedene Datentypen enthalten kann. Sie können die Daten, die Sie in einem Variant-Datentyp speichern müssen, ablegen, und aufgrund der von VBScript durchgeführten Umwandlung funktionieren sie ordnungsgemäß. Er erkennt den von ADO erforderlichen Typ und konvertiert den Wert in der Variante entsprechend.

  • Sie können nicht mit dem Fehler-goto <Label> in VBScript verwenden.

  • VBScript unterstützt einige der integrierten Visual Basic-Funktionen wie Msgbox, Dateund IsNumeric. Da VBScript jedoch eine Teilmenge 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.