第八章 数据库编程

第二节 Visual Basic中的数据库操作

概述

本节内容围绕Visual Basic语言在数据库编程中的基础与应用展开，重点介绍如何通过Visual Basic实现对数据库的连接、操作和管理。学习目标包括：

• 理解数据库及其在应用程序中的作用
• 掌握Visual Basic访问数据库的基本方法和步骤
• 掌握使用ADO（ActiveX Data Objects）进行数据操作的核心技术
• 了解常见数据库操作的实现方法，如查询、更新、删除和插入
• 通过实际案例加深对数据库编程的掌握和应用能力

通过本节学习，考生能够系统掌握Visual Basic数据库编程的基本技能，为后续深入开发复杂数据库应用奠定坚实基础。

---

核心概念

1. 数据库（Database）：组织和存储数据的结构化集合，支持数据的高效管理和访问。

2. 数据库管理系统（DBMS）：用于创建、管理和操作数据库的软件系统，如SQL Server、Access、MySQL等。

3. 数据连接（Connection）：程序与数据库之间建立的通信桥梁。

4. 数据集（Recordset）：用来存储查询结果或数据表内容的对象，支持访问和操作数据。

5. ADO（ActiveX Data Objects）：微软提供的访问数据库的COM组件，支持多种数据库的连接和数据操作。

6. SQL（Structured Query Language）：结构化查询语言，用于操作数据库中的数据。

7. 事务（Transaction）：数据库操作的逻辑单元，确保数据一致性和完整性。

8. 连接字符串（Connection String）：用于描述数据库连接参数的字符串。

---

原理分析

Visual Basic通过ADO组件连接并操作数据库，核心原理包括：

• 建立连接：通过Connection对象和连接字符串与数据库建立连接。
• 执行命令：利用Command对象执行SQL语句，如查询、插入、更新、删除。
• 获取数据：通过Recordset对象承载查询结果，实现数据访问和操作。
• 数据绑定：将数据与界面控件绑定，方便显示和编辑。
• 关闭连接：释放资源，关闭与数据库的连接。

ADO的设计使得Visual Basic程序能够通过统一接口访问各种数据库，大大简化了数据库编程的复杂度。

---

详细内容

1. Visual Basic访问数据库的基本步骤

访问数据库的一般流程包括：

1. 引用ADO库。
2. 创建Connection对象，设置连接字符串。
3. 打开数据库连接。
4. 创建Command或Recordset对象。
5. 执行SQL语句。
6. 处理返回的数据。
7. 关闭Recordset和Connection，释放资源。

示例代码框架：

Dim conn As ADODB.Connection
Dim rs As ADODB.Recordset
Set conn = New ADODB.Connection
conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=your_database.mdb;"
conn.Open
Set rs = New ADODB.Recordset
rs.Open "SELECT * FROM Table1", conn, adOpenStatic, adLockOptimistic
'处理数据
rs.Close
conn.Close

2. 连接字符串详解

连接字符串包含数据库类型、位置、身份验证信息等，是建立连接的关键。常见格式有：

• Access数据库：
  "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=路径\数据库名.mdb;"
• SQL Server数据库：
  "Provider=SQLOLEDB;Data Source=服务器名;Initial Catalog=数据库名;User ID=用户名;Password=密码;"

注意连接字符串中的参数大小写不敏感，但格式必须正确。

3. Recordset对象的使用

Recordset对象是操作数据的核心，支持以下功能：

• 浏览数据（遍历记录）
• 修改数据
• 新增记录
• 删除记录

常用方法与属性：

• MoveFirst, MoveNext, MovePrevious, MoveLast：移动记录指针
• EOF, BOF：判断记录集是否结束或开始
• Fields：访问字段数据
• AddNew, Update, Delete：增加、更新、删除记录

示例：遍历记录集并输出字段值

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

4. 常用SQL语句的执行

Visual Basic通过Command对象或直接通过Recordset执行SQL语句：

• 查询（SELECT）
• 插入（INSERT）
• 更新（UPDATE）
• 删除（DELETE）

示例：执行更新操作

conn.Execute "UPDATE Table1 SET Age=30 WHERE ID=1"

5. 数据绑定技术

将Recordset绑定到控件（如DataGrid, TextBox）实现数据的显示和编辑，提高开发效率。

绑定示例：

Set DataGrid1.DataSource = rs

6. 错误处理与事务管理

• 使用On Error语句捕获和处理运行时错误，保证程序稳定。
• 事务用于确保多条SQL语句的原子性，通过conn.BeginTrans, conn.CommitTrans, conn.RollbackTrans实现。

示例：

conn.BeginTrans
On Error GoTo ErrHandler
conn.Execute "INSERT INTO..."
conn.Execute "UPDATE..."
conn.CommitTrans
Exit Sub
ErrHandler:
conn.RollbackTrans
MsgBox "操作失败"

---

实例分析

实例一：使用Visual Basic连接Access数据库查询数据

背景：需要读取学生信息表中的所有学生姓名和成绩，显示在列表框中。

分析：

• 创建Connection连接Access数据库
• 使用Recordset执行SELECT语句
• 遍历记录集，将数据添加到列表框

代码示例：

Dim conn As ADODB.Connection
Dim rs As ADODB.Recordset
Set conn = New ADODB.Connection
conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=学生信息.mdb;"
conn.Open
Set rs = New ADODB.Recordset
rs.Open "SELECT 姓名,成绩 FROM 学生表", conn, adOpenStatic, adLockReadOnly
ListBox1.Clear
Do While Not rs.EOF
    ListBox1.AddItem rs.Fields("姓名").Value & " - " & rs.Fields("成绩").Value
    rs.MoveNext
Loop
rs.Close
conn.Close

结论：通过ADO连接数据库，能够方便快捷地访问和显示数据。

实例二：Visual Basic实现数据库中的数据插入功能

背景：用户输入姓名和年龄，点击按钮后将数据插入到数据库中。

分析：

• 获取输入数据
• 构造INSERT语句
• 执行SQL插入
• 提示用户操作结果

代码示例：

Dim conn As ADODB.Connection
Set conn = New ADODB.Connection
conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=学生信息.mdb;"
conn.Open
Dim sql As String
sql = "INSERT INTO 学生表 (姓名, 年龄) VALUES ('" & TextBoxName.Text & "', " & TextBoxAge.Text & ")"
conn.Execute sql
conn.Close
MsgBox "数据插入成功！"

结论：通过动态构造SQL语句，实现数据的插入操作，但需注意防止SQL注入。

实例三：使用事务保证数据操作的完整性

背景：更新学生成绩时，需要同时更新多个表，要求操作要么全部成功，要么全部失败。

分析：

• 使用事务机制
• 执行多条SQL语句
• 出错时回滚事务

代码示例：

Dim conn As ADODB.Connection
Set conn = New ADODB.Connection
conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=学生信息.mdb;"
conn.Open
conn.BeginTrans
On Error GoTo ErrHandler
conn.Execute "UPDATE 成绩表 SET 分数=90 WHERE 学号=1001"
conn.Execute "UPDATE 学生表 SET 状态='已更新' WHERE 学号=1001"
conn.CommitTrans
MsgBox "更新成功"
conn.Close
Exit Sub
ErrHandler:
conn.RollbackTrans
MsgBox "更新失败，已回滚"
conn.Close

结论：事务确保多条相关SQL操作的原子性，提高数据安全性。

---

常见误区

1. 误区：忽略关闭数据库连接

   • 错误：程序执行完数据库操作后不关闭连接，导致资源浪费和连接池耗尽。
   • 正确：操作完成后应及时关闭Connection和Recordset。

2. 误区：SQL语句拼接不安全

   • 错误：直接拼接用户输入到SQL语句中，容易造成SQL注入攻击。
   • 正确：应使用参数化查询或对输入进行严格过滤。

3. 误区：忽略错误处理

   • 错误：程序运行中未捕获数据库操作错误，导致程序崩溃。
   • 正确：使用On Error语句处理异常，保证程序健壮。

4. 误区：混淆Recordset游标类型和锁类型

   • 错误：随意使用游标和锁类型，导致数据无法正确访问或更新。
   • 正确：根据需求选择合适的游标类型（如adOpenStatic）和锁类型（如adLockOptimistic）。

5. 误区：未使用事务管理多条相关操作

   • 错误：多条操作未使用事务，部分失败导致数据不一致。
   • 正确：使用事务保证数据完整性。

---

应用场景

1. 学生信息管理系统

   • 通过Visual Basic实现学生信息的增删改查，方便学校管理。

2. 库存管理系统

   • 记录仓库物品的进出信息，实现库存动态管理。

3. 图书馆借阅系统

   • 管理图书信息和借阅状态，方便查询和统计。

4. 客户关系管理（CRM）系统

   • 存储客户资料，跟踪客户交互，提升服务质量。

5. 财务数据分析系统

   • 采集财务数据，实现自动统计和报表生成。

---

知识拓展

• OLE DB 和 ODBC

  了解OLE DB和ODBC两种数据库访问技术，ADO实际上是基于OLE DB的封装。

• 参数化查询

  学习如何使用Command对象的Parameters集合，避免SQL注入风险。

• 多线程数据库访问

  探讨在多线程环境下如何安全访问数据库。

• 数据库设计基础

  掌握基本的数据库设计原则，如范式，主键和外键概念。

• 优化数据库访问性能

  了解索引、缓存等技术，提高数据库访问效率。

---

总结回顾

本节深入介绍了Visual Basic数据库编程的核心内容：

• 了解数据库及其管理系统，掌握ADO组件的基本使用方法。
• 学习连接字符串的构造，建立与数据库的连接。
• 熟练使用Recordset对象进行数据的增删改查。
• 掌握SQL语句的执行与数据绑定技术。
• 认识错误处理和事务管理的重要性，确保程序稳定和数据完整。
• 通过典型案例演示具体实现过程，提升实际操作能力。
• 熟悉常见误区，避免编程过程中常见错误。
• 明确实际应用场景，理解数据库编程的广泛用途。

掌握本节内容，考生能够系统、全面地运用Visual Basic进行数据库编程，为后续高级应用开发和考试备考奠定坚实基础。

---