第八章 数据库编程 第一节 Visual Basic数据库编程基础

概述

本节将系统介绍Visual Basic语言中数据库编程的基础知识，帮助考生理解数据库的基本概念、操作原理及其在Visual Basic中的实现方法。重点讲解如何通过Visual Basic连接数据库、执行基本的数据操作（如增删改查），并通过实例加深理解。学习本节内容后，考生能够掌握数据库编程的核心技能，为后续复杂数据库应用打下坚实基础。

学习目标：

• 理解数据库和数据库编程的基本概念
• 掌握Visual Basic中数据库连接的原理及方法
• 熟悉常用的数据操作命令及其实现
• 能够独立编写简单的数据库程序
• 认识数据库编程中的常见问题和解决技巧

---

核心概念

数据库（Database）

数据库是按照数据结构来组织、存储和管理数据的仓库。它能高效地存储大量数据，并支持快速查询和操作。

数据库管理系统（DBMS）

DBMS是用于创建、管理和操作数据库的软件工具，常见的有Access、SQL Server、MySQL等。

数据库连接（Connection）

数据库连接是指应用程序通过特定接口与数据库建立联系，进行数据传输和交互的过程。

数据操作语言（DML）

用于对数据库中的数据进行增删改查的语言，主要包括SQL语句：SELECT、INSERT、UPDATE、DELETE。

数据集（Recordset）

数据集是数据库查询返回的数据集合，可以在程序中遍历、编辑。

ADO（ActiveX Data Objects）

ADO是微软提供的数据库访问接口，在Visual Basic中广泛用于数据库编程。

---

原理分析

Visual Basic中的数据库编程主要通过ADO组件实现，核心流程包括：

1. 建立数据库连接
   • 使用Connection对象通过连接字符串与数据库建立通信。
2. 执行SQL语句
   • 使用Command对象或直接调用Connection对象执行查询或更新操作。
3. 获取结果集
   • 通过Recordset对象存储查询结果，方便遍历和操作。
4. 关闭连接
   • 释放资源，关闭数据库连接，避免资源浪费。

连接字符串

连接字符串中包含数据库类型、位置、登录帐号、密码等信息，是连接数据库的关键。常见格式示例：

"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\database\mydb.mdb;"

SQL语句执行

Visual Basic通过ADO对象执行SQL语句，可以实现数据的查询和更新。执行后，结果以Recordset形式返回，便于程序访问和操作。

事务处理

数据库编程中，可以通过事务保证数据操作的完整性和一致性，避免数据异常。ADO支持BeginTrans、CommitTrans和RollbackTrans方法管理事务。

---

详细内容

1. Visual Basic连接数据库的步骤

在Visual Basic中连接数据库，必须完成以下步骤：

• 创建Connection对象
• 设置连接字符串
• 打开数据库连接
• 执行SQL操作
• 关闭连接

示例代码：

Dim cn As ADODB.Connection
Set cn = New ADODB.Connection
cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\database\mydb.mdb;"
cn.Open
'操作数据库代码
cn.Close
Set cn = Nothing

注意：连接字符串必须正确，且数据库路径有效。

2. 数据操作命令

• 查询数据（SELECT）

  使用SQL语句查询数据，返回Recordset对象。

  Dim rs As ADODB.Recordset
  Set rs = New ADODB.Recordset
  rs.Open "SELECT * FROM Students", cn, adOpenStatic, adLockReadOnly
  While Not rs.EOF
      Debug.Print rs.Fields("Name").Value
      rs.MoveNext
  Wend
  rs.Close
  Set rs = Nothing
  

• 添加数据（INSERT）

  使用Execute方法执行插入语句。

  cn.Execute "INSERT INTO Students (Name, Age) VALUES ('Alice', 20)"
  

• 修改数据（UPDATE）

  修改指定记录。

  cn.Execute "UPDATE Students SET Age=21 WHERE Name='Alice'"
  

• 删除数据（DELETE）

  删除符合条件的数据。

  cn.Execute "DELETE FROM Students WHERE Name='Alice'"
  

3. 使用Recordset操作数据集

Recordset对象不仅可以读取数据，也可以编辑数据。

• 编辑数据

  rs.Edit
  rs.Fields("Age").Value = 22
  rs.Update
  

• 添加新记录

  rs.AddNew
  rs.Fields("Name").Value = "Bob"
  rs.Fields("Age").Value = 19
  rs.Update
  

• 删除当前记录

  rs.Delete
  rs.MoveNext
  

4. 事务控制

事务用于保证一系列数据库操作的完整性。

cn.BeginTrans
On Error GoTo ErrHandler
cn.Execute "UPDATE Students SET Age=Age+1"
cn.Execute "INSERT INTO Logs (Message) VALUES ('Age updated')"
cn.CommitTrans
Exit Sub

ErrHandler:
cn.RollbackTrans
MsgBox "操作失败，已回滚！"

5. 错误处理

数据库操作易出现连接错误、SQL语法错误等，需合理捕获异常，保证程序稳定。

On Error Resume Next
cn.Open
If Err.Number <> 0 Then
    MsgBox "连接数据库失败：" & Err.Description
    Exit Sub
End If
On Error GoTo 0

---

实例分析

实例一：学生信息查询系统

背景：创建一个简易的学生信息管理程序，实现查询学生名单。

分析：

• 使用ADO连接Access数据库
• 执行SELECT语句查询全部学生信息
• 使用Recordset遍历结果并显示

示例代码：

Dim cn As ADODB.Connection
Dim rs As ADODB.Recordset
Set cn = New ADODB.Connection
Set rs = New ADODB.Recordset

cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\database\students.mdb;"
cn.Open

rs.Open "SELECT * FROM Students", cn, adOpenStatic, adLockReadOnly

Do While Not rs.EOF
    Debug.Print rs.Fields("Name").Value & " - " & rs.Fields("Age").Value
    rs.MoveNext
Loop

rs.Close
cn.Close
Set rs = Nothing
Set cn = Nothing

结论：通过ADO对象成功实现数据库查询，程序结构清晰，易于扩展。

---

实例二：图书馆管理系统数据更新

背景：修改图书表中某本书的库存数量。

分析：

• 连接数据库
• 使用UPDATE语句更新库存
• 进行异常处理确保数据安全

示例代码：

Dim cn As ADODB.Connection
Set cn = New ADODB.Connection
cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\database\library.mdb;"
cn.Open

On Error GoTo ErrHandler
cn.Execute "UPDATE Books SET Stock=Stock+10 WHERE BookName='Visual Basic Programming'"
MsgBox "库存更新成功！"
cn.Close
Set cn = Nothing
Exit Sub

ErrHandler:
MsgBox "更新失败：" & Err.Description
cn.Close
Set cn = Nothing

结论：通过直接执行SQL语句实现数据更新，配合错误处理提高程序健壮性。

---

实例三：事务处理保证数据一致性

背景：银行转账操作，涉及多个数据表更新，需保证事务完整性。

分析：

• 使用BeginTrans开始事务
• 更新账户余额和交易记录
• 成功则提交，失败则回滚

示例代码：

Dim cn As ADODB.Connection
Set cn = New ADODB.Connection
cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\database\bank.mdb;"
cn.Open

cn.BeginTrans
On Error GoTo TransError

cn.Execute "UPDATE Accounts SET Balance=Balance-100 WHERE AccountID=1"
cn.Execute "UPDATE Accounts SET Balance=Balance+100 WHERE AccountID=2"
cn.Execute "INSERT INTO Transactions (FromAccount, ToAccount, Amount) VALUES (1, 2, 100)"

cn.CommitTrans
MsgBox "转账成功！"
cn.Close
Set cn = Nothing
Exit Sub

TransError:
cn.RollbackTrans
MsgBox "转账失败，事务已回滚！"
cn.Close
Set cn = Nothing

结论：通过事务控制确保操作的原子性，避免数据不一致。

---

常见误区

1. 忽略关闭数据库连接

   • 忘记调用Connection的Close方法，导致资源泄露。
   • *正确做法：*使用完毕后及时关闭连接，并释放对象。

2. 连接字符串错误

   • 数据库路径、Provider设置错误，导致连接失败。
   • *正确做法：*仔细检查连接字符串格式及数据库路径。

3. SQL语法错误

   • 拼写错误或语法不规范导致执行失败。
   • *正确做法：*调试时打印SQL语句，逐步检查。

4. 未处理运行时错误

   • 程序未捕获异常，出现错误时崩溃。
   • *正确做法：*使用On Error语句合理捕获和处理错误。

5. 错误使用Recordset光标类型

   • 选择不合适的光标类型影响数据操作效率或功能。
   • *正确做法：*根据需求选择adOpenStatic、adOpenDynamic等合适类型。

---

应用场景

• 学生管理系统
  实现学生信息的录入、查询、修改和删除。

• 图书馆管理系统
  管理图书库存、借还记录。

• 企业库存管理
  跟踪产品库存数量，生成报表。

• 财务管理系统
  处理账务数据，保证数据安全和一致。

• 在线订单处理
  管理用户订单数据，实现订单增删改查。

---

知识拓展

• ADO.NET
  在.NET框架中，ADO.NET是数据库访问的主要技术，功能更强大，支持多种数据库。

• SQL编程优化
  学习SQL语句优化技巧，提高数据库访问效率。

• 存储过程
  将复杂的SQL操作封装在数据库端，提高性能和安全性。

• 数据库安全性
  理解数据库用户权限管理和数据加密等安全措施。

• 多层架构设计
  结合数据库编程设计分层应用架构，提高系统可维护性。

---

总结回顾

本节内容围绕Visual Basic数据库编程基础展开，系统介绍了数据库的核心概念、ADO组件的工作原理及具体操作方法。通过连接数据库、执行SQL语句、操作Recordset、事务控制和错误处理，考生能够掌握数据库编程的基本技能。结合典型实例，深入理解了查询、更新和事务操作的实现。注意了常见误区，强化了应用场景的实际意义。掌握本节内容是通过计算机等级考试二级Visual Basic语言程序设计的重要保障。

---