第八章 数据库编程
第一节 数据库连接基础
概述
在Visual Basic语言程序设计中，数据库编程是实现数据持久化和管理的重要手段。本节“数据库连接基础”主要介绍如何在Visual Basic中建立与数据库的连接，理解数据库连接的基本概念、原理及实现方法。通过本节学习，考生将掌握连接数据库的核心技术，为后续复杂的数据库操作打下坚实基础。
学习目标包括：
- 理解数据库连接的基本概念和作用
- 掌握Visual Basic中使用ADO（ActiveX Data Objects）连接数据库的方法
- 熟悉连接字符串的编写及数据库驱动选择
- 理解连接对象的生命周期管理
- 通过典型示例，掌握实际数据库连接的编程技巧
核心概念
1. 数据库连接（Database Connection）
数据库连接是应用程序与数据库管理系统（DBMS）之间建立通信渠道的过程。连接成功后，应用程序可以执行查询、更新等操作。
2. ADO（ActiveX Data Objects）
ADO是微软提供的一组COM组件，用于在Visual Basic等语言环境中访问数据库。ADO简化了数据访问的复杂性，提供统一接口。
3. 连接字符串（Connection String）
连接字符串是包含数据库地址、驱动、用户名、密码等信息的字符串，用于告诉程序如何连接目标数据库。
4. 连接对象（Connection Object）
在ADO中，Connection对象代表与数据库的连接，是执行SQL语句和管理事务的基础。
5. 数据库驱动（Database Driver）
数据库驱动是连接数据库所需的中间件，它实现了应用程序与数据库间的数据通信协议，比如OLE DB Provider、ODBC驱动等。
原理分析
数据库连接的原理基于客户端-服务器模式。Visual Basic程序作为客户端，通过连接对象发起请求，连接对象利用连接字符串调用相应的数据库驱动，驱动负责与数据库服务器通信，完成认证和连接的建立。成功后，连接对象处于打开状态，可执行SQL命令。
连接过程可分为：
- 配置连接字符串：提供数据库位置、账户信息等。
- 创建连接对象：实例化ADO.Connection对象。
- 打开连接：调用Connection.Open方法，驱动程序通过网络与数据库服务器建立会话。
- 操作数据库：通过连接执行查询、更新等操作。
- 关闭连接：释放资源，释放数据库连接。
ADO通过COM接口封装了上述复杂过程，程序员只需关注连接字符串配置和连接对象的使用。
详细内容
1. ADO连接对象详解
在Visual Basic中，使用ADO连接数据库的第一步是创建Connection对象。代码示例如下：
Dim conn As ADODB.Connection
Set conn = New ADODB.Connection
Connection对象的主要属性：
- ConnectionString：连接字符串
- State：连接状态（0=关闭，1=打开）
Connection对象的主要方法：
- Open：打开连接
- Close：关闭连接
2. 连接字符串的构成与编写
连接字符串是实现数据库连接的关键，格式与数据库类型相关。常见连接字符串元素包括：
- Provider：指定数据库驱动
- Data Source：数据库服务器地址
- Initial Catalog / Database：数据库名称
- User ID、Password：登录凭证
示例：
连接Access数据库：
conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Database\Test.mdb;"连接SQL Server数据库：
conn.ConnectionString = "Provider=SQLOLEDB;Data Source=localhost;Initial Catalog=TestDB;User ID=sa;Password=123456;"
3. 打开与关闭连接
打开连接时，需要调用conn.Open方法，连接成功后，State属性变为1。操作完成后，应及时调用conn.Close关闭连接，释放资源。
conn.Open
'执行数据库操作
conn.Close
4. 错误处理与连接管理
连接数据库时可能出现连接失败、权限认证错误等问题，应使用错误处理语句进行捕获。示例如下：
On Error GoTo ErrHandler
conn.Open
'数据库操作代码
conn.Close
Exit Sub
ErrHandler:
MsgBox "数据库连接失败：" & Err.Description
5. 连接对象的生命周期管理
连接对象应在不使用时释放，防止资源泄漏。通常在程序结束或操作完成后调用Close方法，并设置对象为Nothing。
conn.Close
Set conn = Nothing
实例分析
实例1：连接Access数据库并查询数据
背景：需要从本地Access数据库中读取学生信息表。
代码示例：
Dim conn As ADODB.Connection
Dim rs As ADODB.Recordset
Dim sql As String
Set conn = New ADODB.Connection
conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Database\Students.mdb;"
conn.Open
sql = "SELECT * FROM StudentInfo"
Set rs = New ADODB.Recordset
rs.Open sql, conn, adOpenStatic, adLockReadOnly
Do While Not rs.EOF
Debug.Print rs.Fields("Name").Value & ", " & rs.Fields("Age").Value
rs.MoveNext
Loop
rs.Close
conn.Close
Set rs = Nothing
Set conn = Nothing
分析：
- 通过指定Provider为Jet.OLEDB，连接Access数据库
- 创建Recordset执行SQL查询
- 遍历结果集输出数据
- 关闭对象释放资源
结论：正确配置连接字符串和打开连接是顺利访问数据库的前提。
实例2：连接SQL Server数据库并插入记录
背景：向SQL Server数据库的员工表中插入一条新记录。
代码示例：
Dim conn As ADODB.Connection
Dim sql As String
Set conn = New ADODB.Connection
conn.ConnectionString = "Provider=SQLOLEDB;Data Source=.;Initial Catalog=CompanyDB;User ID=sa;Password=pass123;"
conn.Open
sql = "INSERT INTO Employees (Name, Position) VALUES ('张三', '工程师')"
conn.Execute sql
conn.Close
Set conn = Nothing
分析：
- 使用Provider为SQLOLEDB连接本地SQL Server
- 通过Connection.Execute执行插入语句
结论：灵活使用连接对象的Execute方法可实现数据库更新操作。
实例3：错误处理示范
背景：演示连接数据库异常时的错误处理。
代码示例：
Dim conn As ADODB.Connection
Set conn = New ADODB.Connection
conn.ConnectionString = "Provider=SQLOLEDB;Data Source=WrongServer;Initial Catalog=DB;User ID=sa;Password=1234;"
On Error GoTo ErrHandler
conn.Open
MsgBox "连接成功"
conn.Close
Set conn = Nothing
Exit Sub
ErrHandler:
MsgBox "连接失败，错误信息：" & Err.Description
分析：
- 故意设置错误的数据源
- 使用On Error捕获异常
- 提示错误信息避免程序崩溃
结论：良好的错误处理机制是稳定数据库连接程序的保障。
常见误区
连接字符串错误导致连接失败
- 常见原因：数据库路径错误、驱动名称错误、账号密码错误
- 正确做法：严格核对连接字符串，使用官方资源确认格式
未及时关闭连接导致资源泄漏
- 长时间未关闭连接会占用数据库资源，影响性能
- 应用完成操作后，调用Close并释放对象
忽略错误处理
- 程序中未加入错误处理，连接失败时程序崩溃
- 应使用On Error语句捕获并处理异常
混淆ADO对象类型
- 误将Connection和Recordset对象混用，导致编译或运行错误
- 理解各对象职责，正确使用
连接状态判断不当
- 在连接关闭状态调用Open或执行操作，程序出错
- 使用Connection.State检查状态后再操作
应用场景
- 企业管理系统：通过Visual Basic连接数据库，实现员工信息、客户资料的管理。
- 学生成绩管理：学校使用VB程序连接数据库，录入和查询学生成绩。
- 库存管理系统：实时更新库存数据，防止数据冲突。
- 财务数据分析：连接数据库获取财务报表数据，进行统计分析。
- 客户关系管理（CRM）：通过数据库连接管理客户信息，支持销售服务。
知识拓展
- OLE DB与ODBC的区别：OLE DB是微软的对象模型，支持多种数据源；ODBC是更通用的数据库连接标准。
- 连接池技术：提高连接效率，减少频繁打开关闭连接的开销。
- 事务管理：在连接基础上学习如何实现数据库事务，保证数据一致性。
- 安全性考虑：连接字符串中密码加密、使用Windows身份验证等提高安全性。
- 多线程环境下的数据库连接：处理并发连接问题，提高程序稳定性。
总结回顾
本节详细介绍了Visual Basic中数据库连接的基础知识和实战技巧。核心内容包括数据库连接的定义、ADO连接对象的使用、连接字符串的编写及连接管理的最佳实践。通过典型实例解析，帮助考生理解连接的实现流程及常见问题的解决方法。掌握本节内容，将为后续复杂数据库操作、数据查询和更新建立坚实基础，提升Visual Basic程序设计的能力。
考生应重点记忆ADO连接对象的属性和方法，熟悉连接字符串的构成，理解连接对象的生命周期管理及错误处理机制。结合实例反复练习，确保能够灵活编写数据库连接代码，顺利通过全国计算机等级考试二级Visual Basic语言程序设计的数据库编程部分。