大家好，

這是您可以使用ADODB連接到Access數據庫的方式。

首先添加對

Microsoft ActiveX數據對象2.0庫

現在讓我們聲明一些變量：

Private?Con?As?New?ADODB.Connection Private?Rec?As?New?ADODB.Recordset*如果要訪問任何其他窗體或模塊的連接和記錄集，也可以將它們設置為公共。

現在讓我們創建到數據庫的連接：

Con.Provider?=?"Microsoft.jet.oledb.4.0;?" Con.Open?Database?Path *提供程序告訴數據庫的類型，如果您使用的是其他任何類型的數據庫而不是Access mdb，請使用其提供程序，您可以在控制面板的ODBC管理器中看到該提供程序。

此后將與數據庫建立連接。

現在，我們必須打開一些表并必須將記錄提取到您的應用程序中，為此，我們需要一個Recordset，其中要提取選定表中的所有記錄。

現在，以下代碼將從MDB File中的Table1中獲取所有記錄：

Rec.Open?"Select?*?From?Table1",?Con,?adOpenDynamic,?adLockOptimistic*第一個參數是Source

*第二個參數是Connection

*第三個參數是“打開模式”，表示您可以在表中向前或向后移動，可以添加和刪除。 有幾種模式。

*第四個參數可幫助您鎖定應一次打開一次的數據庫文件。

*還有更多參數，但是如果有人想知道可以直接問我，這里我不討論它們：)

現在，讓我們創建一個示例程序，該程序將打開一個數據庫，然后從Recordset中的Table1中加載所有記錄。

Private?Con?As?New?ADODB.Connection Private?Rec?As?New?ADODB.Recordset? Public?Sub?Create_Connection(File_Path?as?String)?Set?Con?=?New?ADODB.ConnectionSet?Rec?=?New?ADODB.Recordset?Con.Provider?=?"Microsoft.jet.oledb.4.0;?"Con.Open?File_Path? End?Sub? Public?Sub?Load_Records(sqlQuery?as?String)?Rec.Open?sqlQuery,?Con,?adOpenDynamic,?adLockOptimistic? End?Sub? Public?Sub?Close_Connection()?Rec.CloseCon.Close? End?Sub>如何使用？ Create_Connection?(App.Path?&?"\db1.mdb") Load_Records?("Select?*?From?Table1")現在已建立連接，記錄已加載到Recordset，現在您可以使用Recordset輕松瀏覽數據庫。

>如何導航？

Rec.MoveNext Rec.MovePrevious Rec.MoveFirst Rec.MoveLast函數名稱告訴我們光標在記錄集中的位置。

＃如果文章中有任何地方，我有任何錯誤，請更正。

問候

阿魯茲

From: https://bytes.com/topic/visual-basic/insights/867382-access-adodb

總結

以上是生活随笔為你收集整理的使用ADODB访问的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。