VBA数据库编程.ppt

* 第九章 VBA数据库编程 二级ACCESS数据库及表 本章的重要性 2007年4月-2010年9月共8次计算机等级考试中涉及到本章内容的题目有20题，平均每次4.5分，因此本章不必花大多时间去准备。 本章在考试中不但涉及笔试题目，一般没有上机题目。 二级ACCESS—数据访问页 关键考点 数据访问对象DAO概念 Active数据对象ADO概念 数据库编程的一些基本语句 几个函数 二级ACCESS—模块与VBA 9.2 VBA数据库编程（P257） VBA通过数据库引擎(Microsof jet)工具完成对数据库的访问，所谓数据库引擎其实是一组动态连接库(DLL),程序运行时被连接到VBA程序程序而实现对数据库的访问功能。VBA中提供了3种数据库访问接口。 ODBC API：开放数据库互连应用编程接口。 DAO：数据访问对象。 ADO：Active数据对象 VBA访问的三种数据库类型： 本地数据库：ACCESS 外部数据库 ODBC数据库：如Oracle、SyBase、SQL Server等 二级ACCESS—模块与VBA 9.2 VBA数据库编程 DAO数据访问对象模型（P259） DBEngine Workspace(s) Database(s) RecordSet(s) Field(s) Error(s) QueryDef(s) DBEngine数据库引擎为DAO模型最上层对象，包含并管理其它对象。 二级ACCESS—模块与VBA 9.2 VBA数据库编程 ADO Active数据对象模型模型(P260) Error(s) Connection Command RecordSet Field(s) 指定数据连接提供者，建立到数据源的连接。 可执行一个命令，如可执行SQL查询。一般用于表结构的修改。 可执行SQL查询返回一个记录集，并可对记录集进行修改、插入、删除操作。是ADO中最灵活的对象。 二级ACCESS—模块与VBA 9.2 VBA数据库编程 例：分别用DAO和ADO来完成对“教学管理.mdb”文件中“学生表”的学生年龄都加1的操作。（假设文件存放在E盘“考试中心”文件夹中） （P270） 使用DAO技术： Sub SetAgePlus1() dim we as DAO.Workspace ‘工作区对象 dim db as DAO.Database ’数据库对象 dim rs as DAO.Recordset ’记录集对象 dim fd as DAO.Field ‘字段对象 set ws=DBEngine.Workspace(0) set db=ws.OpenDatabase(“e:\考试中心教程\教学管理.mdb”) ’打开数据库 set rs=db.OpenRecordSet(“学生表”) ‘返回“学生表”记录集 set fd=rs.Fields(“年龄”) ’设置“年龄”字段 二级ACCESS—模块与VBA 9.2 VBA数据库编程 ‘对记录集用循环结构进行遍历 Do while not rs.eof rs.edit ’设置为“编辑”状态 fd=fd+1 ‘“年龄”加1 rs.update ’更新记录，保存年龄值 rs.movenext ‘记录指针移动至下一条 Loop ‘关闭并回收对象变量 rs.close db.close set rs=Nothing set db=Nothing End sub 二级ACCESS—模块与VBA 9.2 VBA数据库编程 使用ADO技术： Sub SetAgePlus1() dim cn as New ADODB.Connection ‘连接对象 dim rs as New ADODB.RecordSet ’记录集对象 d