在本教程中，您將學習如何使用 VB.NET 在 Windows 窗體應用程序中連接到 Microsoft Access 數據庫。我們將逐步介紹該過程，包括設置項目、添加數據庫引用、創建和打開連接、執行查詢以及關閉連接。

設置項目

1. 打開 Visual Studio。
2. 點擊“文件”菜單，選擇“新建”和“項目”。
3. 在“新建項目”對話框中，選擇“Visual Basic”類別，然后選擇“Windows 窗體應用程序”。
4. 為您的項目命名并單擊“確定”。

添加數據庫引用

1. 右鍵單擊“解決方案資源管理器”中的“引用”。
2. 選擇“添加引用”。
3. 在“添加引用”對話框中，轉到“COM”選項卡。
4. 向下滾動并選中“Microsoft Access 16.0 Object Library”框（或與您使用的 Access 版本相對應的框）。
5. 單擊“確定”。

創建和打開連接

1. 在“解決方案資源管理器”中，雙擊“Form1.vb”文件。
2. 在代碼編輯器中，添加以下代碼：```vbImports System.Data.OleDbPublic Class Form1Dim conn As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\path\to\database.mdb")Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.LoadTryconn.Open()MsgBox("連接到數據庫成功！") Catch ex As ExceptionMsgBox("連接到數據庫失?。? & vbCrLf & ex.Message)End TryEnd SubEnd Class```請確保替換“C:\path\to\database.mdb”為數據庫的實際路徑。

執行查詢

1. 在代碼編輯器中，添加以下代碼：```vbPrivate Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.ClickDim cmd As New OleDbCommand("SELECT FROM Table1", conn)Dim dr As OleDbDataReaderTrydr = cmd.ExecuteReader()While dr.Read()MsgBox(dr("列名").ToString())End Whiledr.Close()Catch ex As ExceptionMsgBox("執行查詢失??！" & vbCrLf & ex.Message)End TryEnd Sub```請確保替換“Table1”和“列名”為數據庫中的實際表名和列名。

關閉連接

1. 在 Form1_Load 事件處理程序中，添加以下代碼：```vbPrivate Sub Form1_FormClosed(sender As Object, e As FormClosedEventArgs) Handles MyBase.FormClosedTryconn.Close()Catch ex As ExceptionMsgBox("關閉連接失敗！" & vbCrLf & ex.Message)End TryEnd Sub```這將確保在關閉窗體時關閉數據庫連接。

運行應用程序

1. 按 F5 運行應用程序。
2. 應用程序將在運行時連接到數據庫并執行查詢。
3. 如果連接和查詢成功，您將看到一條顯示數據庫表中記錄的信息。

結論

在本教程中，您了解了如何使用 VB.NET 在 Windows 窗體應用程序中連接到 Microsoft Access 數據庫。通過遵循這些步驟，您可以輕松地連接到數據庫、執行查詢并檢索數據。

---

---

相關標簽： Access數據庫、 如何使用Vb.NET在Windows窗體應用程序中連接Microsoft、 如何使用vba法合并工作表、

上一篇：VbNET中連接Oracle數據庫的綜合教程vbnet和

下一篇：ASPNETCore中使用VbNET連接SQLServer數據庫