如何在 VB 中使用 Microsoft Access 数据库？

2025-01-03 17:28:32|网友 |来源：互联网整理

你是否想通过 Visual Basic (VB) 开发一个应用程序，并希望将数据存储在 Access 数据库中？
很多 VB 开发者在创建应用程序时，都需要将数据存储到数据库中，Access 由于其简单易用和与 VB 的紧密集成，成为了许多开发者的首选数据库。那么，如何在 VB 中使用 Microsoft Access 数据库呢？今天，我们将为你详细讲解步骤。

📥 准备工作

在开始之前，你需要确认几个准备工作：

安装 Microsoft Access（或者至少确保你有 Access 数据库文件）。
Visual Basic 环境（通常是 Visual Studio）来编写代码。
确保你已安装 Microsoft DAO 3.6 Object Library 或 Microsoft ActiveX Data Objects Library，用于数据库连接和操作。

🛠️ 在 VB 中使用 Access 数据库的步骤

步骤 1：创建 Access 数据库

打开 Microsoft Access。
创建一个新数据库（文件格式：.mdb 或 .accdb）。
在数据库中创建一张表，定义字段，并输入一些测试数据。
保存并关闭数据库文件。

步骤 2：在 VB 中添加数据库连接

VB 通过两种主要的方式连接数据库：ADO (ActiveX Data Objects) 和 DAO (Data Access Objects)。这两种方法都可以用来操作 Access 数据库，但 ADO 更加常用。

使用 ADO 连接 Access 数据库

添加 ADO 引用：

在 Visual Studio 中，右击你的项目，选择 “添加引用”。
找到 Microsoft ActiveX Data Objects 6.1 Library，勾选并确认。

VB 代码示例：

Dim conn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim connStr As String

' 连接字符串，指定数据库路径
connStr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\path\to\your\database.mdb;"
conn.Open connStr

' 查询数据库中的数据
rs.Open "SELECT * FROM YourTable", conn

' 读取数据
Do While Not rs.EOF
    Debug.Print rs.Fields("YourFieldName").Value  ' 打印字段内容
    rs.MoveNext
Loop

' 关闭连接
rs.Close
conn.Close

代码解析：

connStr 是数据库连接字符串，指定了数据库的路径。
rs.Open 执行 SQL 查询，YourTable 是数据库中的表名。
rs.Fields("YourFieldName").Value 获取数据并输出。

使用 DAO 连接 Access 数据库

添加 DAO 引用：

在 Visual Studio 中，右击项目，选择 “添加引用”。
找到 Microsoft DAO 3.6 Object Library，勾选并确认。

VB 代码示例：

Dim db As Database
Dim rs As Recordset

' 打开数据库
Set db = OpenDatabase("C:\path\to\your\database.mdb")

' 查询数据
Set rs = db.OpenRecordset("SELECT * FROM YourTable")

' 读取数据
Do While Not rs.EOF
    Debug.Print rs!YourFieldName  ' 打印字段内容
    rs.MoveNext
Loop

' 关闭连接
rs.Close
db.Close

代码解析：

OpenDatabase 打开数据库文件。
OpenRecordset 执行查询并返回结果。
rs!YourFieldName 获取字段数据并输出。

💡 在 VB 中执行常见数据库操作

1. 插入数据

Dim conn As New ADODB.Connection
Dim connStr As String

connStr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\path\to\your\database.mdb;"
conn.Open connStr

' 执行插入操作
conn.Execute "INSERT INTO YourTable (Field1, Field2) VALUES ('Value1', 'Value2')"

conn.Close

2. 更新数据

Dim conn As New ADODB.Connection
Dim connStr As String

connStr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\path\to\your\database.mdb;"
conn.Open connStr

' 执行更新操作
conn.Execute "UPDATE YourTable SET Field1 = 'NewValue' WHERE Field2 = 'Value2'"

conn.Close

3. 删除数据

Dim conn As New ADODB.Connection
Dim connStr As String

connStr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\path\to\your\database.mdb;"
conn.Open connStr

' 执行删除操作
conn.Execute "DELETE FROM YourTable WHERE Field1 = 'Value1'"

conn.Close