Bagikan melalui

Pemrograman ADO VBScript

Membuat Proyek ADO

Microsoft Visual Basic, Scripting Edition tidak mendukung pustaka jenis, jadi Anda tidak perlu mereferensikan ADO dalam proyek Anda. Akibatnya, tidak ada fitur terkait seperti penyelesaian baris perintah yang didukung. Selain itu, secara default, konstanta enumerasi ADO tidak ditentukan dalam VBScript.

Namun, ADO memberi Anda dua file termasuk yang berisi definisi berikut yang akan digunakan dengan VBScript:

  • Untuk pembuatan skrip sisi server, gunakan Adovbs.inc, yang diinstal di folder c:\Program Files\Common Files\System\ado\ secara default.

  • Untuk pembuatan skrip sisi klien, gunakan Adcvbs.inc, yang diinstal di folder c:\Program Files\Common Files\System\msdac\ secara default.

Anda dapat menyalin dan menempelkan definisi konstanta dari file-file ini ke halaman ASP Anda, atau, jika Anda melakukan pembuatan skrip sisi server, salin file Adovbs.inc ke folder di situs Web Anda dan merujuknya dari halaman ASP Anda seperti ini:

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

Membuat Objek ADO di VBScript

Anda tidak dapat menggunakan pernyataan Dim untuk menetapkan objek ke jenis tertentu dalam VBScript. Selain itu, VBScript tidak mendukung sintaks New yang digunakan dengan pernyataan Dim di Visual Basic for Applications. Sebaliknya, Anda harus menggunakan panggilan fungsi CreateObject.

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

Contoh VBScript

Kode berikut adalah contoh umum pemrograman sisi server VBScript dalam file Halaman Server Aktif (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>

Contoh VBScript yang lebih spesifik disertakan dengan dokumentasi ADO. Untuk informasi selengkapnya, lihat Contoh Kode ADO di Microsoft Visual Basic Scripting Edition.

Perbedaan Antara VBScript dan Visual Basic

Menggunakan ADO dengan VBScript mirip dengan menggunakan ADO dengan Visual Basic dalam banyak cara, termasuk bagaimana sintaks digunakan. Namun, ada beberapa perbedaan signifikan:

  • VBScript hanya mendukung jenis data Varian, yang dapat menyimpan berbagai jenis data. Anda dapat menyimpan data yang Anda butuhkan dalam jenis data Variant, dan data akan berfungsi sebagaimana mestinya karena casting yang dilakukan oleh VBScript. Ini mengenali jenis yang diperlukan oleh ADO, dan mengonversi nilai dalam Varian yang sesuai.

  • Anda tidak dapat menggunakan pada kesalahan goto <label> dalam VBScript.

  • VBScript mendukung beberapa fungsi Visual Basic bawaan seperti Msgbox, Date, dan IsNumeric. Namun, karena VBScript adalah subset Visual Basic, tidak semua fungsi bawaan didukung. Misalnya, VBScript tidak mendukung fungsi Format dan fungsi I/O file.

  • Last updated on