VBA数据库编程.ppt

《VBA数据库编程.ppt》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、第九章VBA数据库编程二级ACCESS数据库及表本章的重要性2007年4月-2010年9月共8次计算机等级考试中涉及到本章内容的题目有20题，平均每次4.5分，因此本章不必花大多时间去准备。本章在考试中不但涉及笔试题目，一般没有上机题目。二级ACCESS—数据访问页关键考点数据访问对象DAO概念Active数据对象ADO概念数据库编程的一些基本语句几个函数二级ACCESS—模块与VBA9.2VBA数据库编程（P257）VBA通过数据库引擎(Microsofjet)工具完成对数据库的访问，所谓数据库引擎其实是一组动态连接库(D

2、LL),程序运行时被连接到VBA程序程序而实现对数据库的访问功能。VBA中提供了3种数据库访问接口。ODBCAPI：开放数据库互连应用编程接口。DAO：数据访问对象。ADO：Active数据对象VBA访问的三种数据库类型：本地数据库：ACCESS外部数据库ODBC数据库：如Oracle、SyBase、SQLServer等二级ACCESS—模块与VBA9.2VBA数据库编程DAO数据访问对象模型（P259）DBEngineWorkspace(s)Database(s)RecordSet(s)Field(s)Error(s)Qu

3、eryDef(s)DBEngine数据库引擎为DAO模型最上层对象，包含并管理其它对象。二级ACCESS—模块与VBA9.2VBA数据库编程ADOActive数据对象模型模型(P260)Error(s)ConnectionCommandRecordSetField(s)指定数据连接提供者，建立到数据源的连接。可执行一个命令，如可执行SQL查询。一般用于表结构的修改。可执行SQL查询返回一个记录集，并可对记录集进行修改、插入、删除操作。是ADO中最灵活的对象。二级ACCESS—模块与VBA9.2VBA数据库编程例：分别用DAO

4、和ADO来完成对“教学管理.mdb”文件中“学生表”的学生年龄都加1的操作。（假设文件存放在E盘“考试中心”文件夹中）（P270）使用DAO技术：SubSetAgePlus1()dimweasDAO.Workspace‘工作区对象dimdbasDAO.Database’数据库对象dimrsasDAO.Recordset’记录集对象dimfdasDAO.Field‘字段对象setws=DBEngine.Workspace(0)setdb=ws.OpenDatabase(“e:考试中心教程教学管理.mdb”)’打开数据库se

5、trs=db.OpenRecordSet(“学生表”)‘返回“学生表”记录集setfd=rs.Fields(“年龄”)’设置“年龄”字段二级ACCESS—模块与VBA9.2VBA数据库编程‘对记录集用循环结构进行遍历Dowhilenotrs.eofrs.edit’设置为“编辑”状态fd=fd+1‘“年龄”加1rs.update’更新记录，保存年龄值rs.movenext‘记录指针移动至下一条Loop‘关闭并回收对象变量rs.closedb.closesetrs=Nothingsetdb=NothingEndsub二级ACCE

6、SS—模块与VBA9.2VBA数据库编程使用ADO技术：SubSetAgePlus1()dimcnasNewADODB.Connection‘连接对象dimrsasNewADODB.RecordSet’记录集对象dimfsasADODB.Field’字段对象dimstrConnectasString‘连接字符串dimstrSQLasString’查询字符串strconnect=“e:考试中心教程教学管理.mdb”)’设置连接数据库cn.Provider=“Microsoft.jet.oledb.4.0”‘设置数据提供者c

7、n.openstrconnect’打开与数据源的连接strSQL=“select年龄from学生表”‘设置查询语句rs.openstrSQL,cn,adOpenDynamic,adLockOptimistic,adCmdTextsetfd=rs.Fields(“年龄”)二级ACCESS—模块与VBA10.12VBA数据库编程‘对记录集用循环结构进行遍历Dowhilenotrs.eoffd=fd+1‘“年龄”加1rs.update’更新记录，保存年龄值rs.movenext‘记录指针移动至下一条Loop‘关闭并回收对象变量rs

8、.closedb.closesetrs=Nothingsetdb=NothingEndsub二级ACCESS—模块与VBA9.2VBA数据库编程ADO数据对象模型的相关要点（不掌握）声明的Connection对象数据集打开的对象记录集的打开方式rs.openstrSQL,cn,adOpen