搭配 Microsoft Visual Basic 和 Visual Basic for Applications 使用 ADO

無論您是使用 Visual Basic 還是 Visual Basic for Applications，設定 ADO 專案及撰寫 ADO 程式碼都類似。本主題說明搭配 Visual Basic 和 Visual Basic for Applications 使用 ADO，並附註任何差異。

參考 ADO 程式庫

您的專案必須參考 ADO 程式庫。

在 Visual Basic 的 [專案] 功能表中，選取 [參考...]。
從清單中選取 [Microsoft ActiveX Data Objects x.x 程式庫]。確認至少也已選取下列程式庫：
- Visual Basic for Applications
- Visual Basic 執行時間物件和程序
- Visual Basic 物件和程序
- OLE Automation
按一下 [確定]。

例如，您可以使用 Microsoft Access，輕鬆地搭配 Visual Basic for Applications 使用 ADO。

在 Microsoft Access 中，從 [資料庫] 視窗中的 [模組] 索引標籤中選取或建立模組。
在 [工具] 功能表上，選取 [參考...]。
從清單中選取 [Microsoft ActiveX Data Objects x.x 程式庫]。確認至少也已選取下列程式庫：
- Visual Basic for Applications
- Microsoft Access 8.0 物件程式庫 (或更新版本)
- Microsoft DAO 3.5 物件程式庫 (或更新版本)
按一下 [確定]。

若要為該變數建立自動化變數和物件的執行個體，您可以使用兩種方法：Dim 或 CreateObject。

您可以使用 New 關鍵字搭配 Dim，在一個步驟中宣告及建立 ADO 物件的執行個體：

Dim conn As New ADODB.Connection

或者，Dim 陳述式宣告和物件具現化也可為兩個步驟：

Dim conn As ADODB.Connection
Set conn = New ADODB.Connection

注意

您不需要明確地使用 ADODB progid 搭配 Dim 陳述式，假設您已正確參考專案中的 ADO 程式庫。不過，若使用則可確保您不會與其他程式庫發生命名衝突。

注意

例如，如果您在相同的專案中同時包含 ADO 和 DAO 的參考，您應該包含限定詞，以指定具現化 Recordset 物件時要使用的物件模型，如下列程式碼所示：

Dim adoRS As ADODB.Recordset
Dim daoRS As DAO.Recordset

使用 CreateObject 方法時，宣告和物件具現化必須為兩個離散步驟：

Dim conn1
Set conn1 = CreateObject("ADODB.Connection") As Object

使用 CreateObject 具現化的物件為晚期繫結，這表示其不是強類型，且已停用命令列完成。不過，其可讓您略過從專案參考 ADO 程式庫，並可讓您具現化特定版本的物件。例如：

Set conn1 = CreateObject("ADODB.Connection.2.0") As Object

您也可以特別建立 ADO 2.0 版型別程式庫的參考並建立物件，以完成這項作業。

使用 CreateObject 方法來具現化物件通常較使用 Dim 陳述式慢。

若要在 Microsoft Visual Basic 中處理 ADO 事件，您必須使用 WithEvents 關鍵字宣告模組層級變數。變數只能宣告為類別模組的一部分，而且必須在模組層級宣告。如需處理 ADO 事件的詳細討論，請參閱處理 ADO 事件。

ADO 文件中包含許多 Visual Basic 範例。如需詳細資訊，請參閱 Microsoft Visual Basic 中的 ADO 程式碼範例。