共用方式為

VBScript ADO 程序設計

  • 發行項

建立 ADO 專案

Microsoft Visual Basic，Scripting Edition 不支援類型連結庫，因此您不需要在專案中參考 ADO。 因此，不支援命令行完成之類的相關功能。 此外，根據預設，不會在 VBScript 中定義 ADO 列舉常數。

不過，ADO 提供兩個 include 檔案，其中包含要搭配 VBScript 使用的下列定義：

  • 針對伺服器端腳本，請使用預設安裝在 c：\Program Files\Common Files\System\ado\ 資料夾中的 Adovbs.inc。

  • 針對用戶端腳本，請使用預設安裝在 c：\Program Files\Common Files\System\msdac\ 資料夾中的 Adcvbs.inc。

您可以將這些檔案中的常數定義複製並貼到 ASP 頁面，或者，如果您要執行伺服器端腳本，請將 Adovbs.inc 檔案複製到您網站上的資料夾，並從 ASP 頁面參考它，如下所示：

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

在 VBScript 中建立 ADO 物件

您無法使用 Dim 語句，將物件指派給 VBScript 中的特定類型。 此外，VBScript 不支援在Visual Basic for Applications 中搭配 Dim 語句使用的 New 語法。 您必須改用 CreateObject 函數調用：

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

VBScript 範例

下列程序代碼是 Active Server Page （ASP） 檔案中 VBScript 伺服器端程序設計的一般範例：

<%  @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>

ADO 檔包含更具體的 VBScript 範例。 如需詳細資訊，請參閱 Microsoft Visual Basic Scripting Edition 中的ADO 程式代碼範例。

VBScript 與 Visual Basic 之間的差異

搭配 VBScript 使用 ADO 與使用 ADO 與 Visual Basic 的方式類似，包括語法的使用方式。 不過，存在一些顯著的差異：

  • VBScript 僅支援 Variant 數據類型，其可以保存不同類型的數據。 您可以將所需的數據儲存在 Variant 數據類型中，而且數據會因 VBScript 所執行的轉換而適當地運作。 它會辨識 ADO 所需的類型，並據以轉換 Variant 中的值。

  • 在 VBScript 中，您無法在錯誤發生時使用 並跳轉到 <標籤>。

  • VBScript 支援一些內建的 Visual Basic 函式，例如 Msgbox、Date和 IsNumeric。 不過，由於 VBScript 是 Visual Basic 的子集，因此不支援所有內建函式。 例如，VBScript 不支援 Format 函式和檔案 I/O 函式。