vb数据库怎么建立：Visual Basic数据库建立指南，从零开始连接与操作数据库

来源：网络作者：日期：2025-11-06 19:28:26

在开发应用程序时,数据的存储和管理是至关重要的一环，Visual Basic (VB)，尤其是经典的 VB6.0，虽然已经不像以前那样主流，但在某些领域和项目中仍然被广泛使用，本文将详细指导你如何在 Visual Basic 中建立和操作数据库，主要以 Microsoft Access 数据库为例，介绍使用 DAO (Data Access Objects) 的方法。

引言：为什么需要数据库？

在 VB 应用程序中，数据库可以用来：

持久化数据： 将用户输入、系统配置等信息保存到磁盘上，即使程序关闭后，数据也不会丢失。
数据共享： 多个用户或程序可以访问和修改同一份数据。
数据管理： 实现数据的增删改查等操作，方便对数据进行管理。
提高效率： 将数据存储和检索逻辑从应用程序代码中分离出来，简化开发。

准备工作

在开始编码之前,你需要：

vb数据库怎么建立：Visual Basic数据库建立指南，从零开始连接与操作数据库

安装数据库引擎： 对于 Microsoft Access 数据库，你需要安装 Microsoft Access Database Engine (ACE) Driver (Redistributable)，这通常包含在较新的 Access 安装包中，或者可以从微软官网下载，这是为了支持现代的 .accdb 格式文件，如果你使用的是旧的 .mdb 格式，可能需要旧版 Jet Engine，但 ACE 是更现代的选择。
选择数据库类型： 这里我们主要使用 Microsoft Access，因为它易于使用且免费，你也可以选择 SQL Server、MySQL、Oracle 等大型数据库，但连接方式和使用的对象库会有所不同。
安装 Visual Basic 环境： 确保你已经安装了 Visual Basic 6.0 或更高版本。

在 VB 中引用数据库访问库

VB 本身不直接包含数据库操作代码，需要引用 Microsoft 的数据库访问库。

打开你的 Visual Basic 工程。
转到菜单栏的 “工程” -> “引用...”。
在弹出的对话框中,找到并勾选 “Microsoft DAO 3.6 Object Library” (如果你使用的是 DAO) 或 “Microsoft ActiveX Data Objects x.x Library” (如果你使用的是 ADO)，这里以 DAO 为例，因为它是 VB6 原生支持且与 Access 关系紧密的库，请注意版本号可能略有不同。
点击 “确定”。

建立数据库连接

连接数据库的第一步是创建一个 Connection 对象（在 DAO 中是 DBEngine 和 Workspace，然后是 Database 对象）。

vb数据库怎么建立：Visual Basic数据库建立指南，从零开始连接与操作数据库

' 声明全局变量或在需要的地方声明
Dim conn As DAO.Database
Dim dbEngine As DAO.DBEngine
Dim ws As DAO.Workspace
' 在代码中初始化连接
Sub ConnectToDatabase()
    ' 设置数据库引擎
    Set dbEngine = DBEngine.CreateEngine(DBEngineAccess, False, "C:\Program Files\Microsoft Office\Office14\ACEODBC.1\ACEODBC.1")
    ' 或者，如果你使用的是 Jet 引擎连接 MDB 文件，路径可能不同，但通常不需要显式创建引擎，除非需要高级控制。
    ' 创建工作空间
    Set ws = dbEngine.CreateWorkspace("MyWorkspace", "admin", "", dbUseJet) ' admin 是系统管理员用户名，空密码，dbUseJet 指定使用 Jet/ACE 引擎。
    ' 使用工作空间连接到数据库文件
    ' 注意：这里假设你的 Access 数据库文件名为 "MyDatabase.accdb"，并位于 C 盘根目录
    Set conn = ws.OpenDatabase("C:\MyDatabase.accdb", dbNormal, , "MS Access;PWD=yourpassword;") ' 如果设置了密码，需要提供密码
    ' 或者，如果你没有密码，可以简化为：
    ' Set conn = ws.OpenDatabase("C:\MyDatabase.accdb", dbNormal)
End Sub

创建数据库和表

如果你需要从零开始创建数据库和表：

创建数据库文件： Access 数据库文件（.mdb 或 .accdb）本身就是一个文件，你可以直接创建一个空文件，然后通过代码打开它并创建表。
创建表： 使用 conn.CreateTableDef 方法。

Sub CreateDatabaseAndTable()
    On Error Resume Next ' 忽略错误，例如文件已存在
    Set conn = ws.OpenDatabase("C:\NewDatabase.accdb", dbNormal)
    On Error GoTo 0 ' 恢复错误处理
    ' 创建一个新表定义
    Dim tdf As DAO.TableDef
    Set tdf = conn.CreateTableDef("Employees") ' 表名
    ' 添加字段
    Dim fld As DAO.Field
    Set fld = tdf.CreateField("ID", dbLong) ' 字段名，数据类型
    fld.Attributes = dbAutoIncrField ' 设置为自动编号
    tdf.Fields.Append fld
    Set fld = tdf.CreateField("FirstName", dbText, 50)
    tdf.Fields.Append fld
    Set fld = tdf.CreateField("LastName", dbText, 50)
    tdf.Fields.Append fld
    Set fld = tdf.CreateField("BirthDate", dbDate)
    tdf.Fields.Append fld
    ' 将表添加到数据库
    conn.TableDefs.Append tdf
    MsgBox "数据库和表创建成功！"
    ' 记得在程序结束时关闭数据库和工作空间
    conn.Close
    ws.Close
    Set conn = Nothing
    Set ws = Nothing
End Sub

执行数据库操作

连接建立后,你可以执行常见的数据库操作：

查询数据： 使用 conn.OpenRecordset 打开记录集。

Sub ReadData()
    Dim rs As DAO.Recordset
    Set rs = conn.OpenRecordset("SELECT * FROM Employees", dbOpenDynaset) ' dbOpenDynaset 动态集，可以实时反映数据变化
    ' 遍历记录集
    Do While Not rs.EOF
        Debug.Print rs!FirstName & " " & rs!LastName ' ! 是域运算符，用于访问字段
        rs.MoveNext
    Loop
    rs.Close
    Set rs = Nothing
End Sub

插入数据：

Sub AddData()
    Dim rs As DAO.Recordset
    Set rs = conn.OpenRecordset("SELECT * FROM Employees", dbOpenDynaset)
    ' 添加新记录
    rs.AddNew
    rs!FirstName = "张"
    rs!LastName = "三"
    rs!BirthDate = Date
    rs.Update ' 更新记录，将更改保存到数据库
    rs.Close
    Set rs = Nothing
End Sub

更新数据：

Sub UpdateData()
    Dim rs As DAO.Recordset
    Set rs = conn.OpenRecordset("SELECT * FROM Employees WHERE ID=1", dbOpenDynaset) ' 查询特定记录
    If Not rs.EOF Then
        rs.Edit ' 进入编辑模式
        rs!FirstName = "李"
        rs.Update ' 保存更新
    End If
    rs.Close
    Set rs = Nothing
End Sub

删除数据：

Sub DeleteData()
    Dim rs As DAO.Recordset
    Set rs = conn.OpenRecordset("SELECT * FROM Employees WHERE ID=1", dbOpenDynaset)
    If Not rs.EOF Then
        rs.Delete ' 删除当前记录
        rs.MoveNext ' 移动到下一条，确保记录被物理删除
    End If
    rs.Close
    Set rs = Nothing
End Sub

关闭连接

完成所有数据库操作后,务必关闭记录集、数据库和工作空间。

Sub Cleanup()
    If Not rs Is Nothing Then rs.Close: Set rs = Nothing
    If Not conn Is Nothing Then conn.Close: Set conn = Nothing
    If Not ws Is Nothing Then ws.Close: Set ws = Nothing
End Sub

进阶提示