VBA数据库编程.ppt

第九章VBA数据库编程 二级ACCESS数据库及表 本章的重要性 2007年4月 2010年9月共8次计算机等级考试中涉及到本章内容的题目有20题 平均每次4 5分 因此本章不必花大多时间去准备 本章在考试中不但涉及笔试题目 一般没有上机题目 二级ACCESS 数据访问页 关键考点 数据访问对象DAO概念Active数据对象ADO概念数据库编程的一些基本语句几个函数 二级ACCESS 模块与VBA 9 2VBA数据库编程 P257 VBA通过数据库引擎 Microsofjet 工具完成对数据库的访问 所谓数据库引擎其实是一组动态连接库 DLL 程序运行时被连接到VBA程序程序而实现对数据库的访问功能 VBA中提供了3种数据库访问接口 ODBCAPI 开放数据库互连应用编程接口 DAO 数据访问对象 ADO Active数据对象 VBA访问的三种数据库类型 本地数据库 ACCESS外部数据库ODBC数据库 如Oracle SyBase SQLServer等 二级ACCESS 模块与VBA 9 2VBA数据库编程 DAO数据访问对象模型 P259 DBEngine数据库引擎为DAO模型最上层对象 包含并管理其它对象 二级ACCESS 模块与VBA 9 2VBA数据库编程 ADOActive数据对象模型模型 P260 指定数据连接提供者 建立到数据源的连接 可执行一个命令 如可执行SQL查询 一般用于表结构的修改 可执行SQL查询返回一个记录集 并可对记录集进行修改 插入 删除操作 是ADO中最灵活的对象 二级ACCESS 模块与VBA 9 2VBA数据库编程 例 分别用DAO和ADO来完成对 教学管理 mdb 文件中 学生表 的学生年龄都加1的操作 假设文件存放在E盘 考试中心 文件夹中 P270 使用DAO技术 SubSetAgePlus1 dimweasDAO Workspace 工作区对象dimdbasDAO Database 数据库对象dimrsasDAO Recordset 记录集对象dimfdasDAO Field 字段对象setws DBEngine Workspace 0 setdb ws OpenDatabase e 考试中心教程 教学管理 mdb 打开数据库setrs db OpenRecordSet 学生表 返回 学生表 记录集setfd rs Fields 年龄 设置 年龄 字段 二级ACCESS 模块与VBA 9 2VBA数据库编程 对记录集用循环结构进行遍历Dowhilenotrs eofrs edit 设置为 编辑 状态fd fd 1 年龄 加1rs update 更新记录 保存年龄值rs movenext 记录指针移动至下一条Loop 关闭并回收对象变量rs closedb closesetrs Nothingsetdb NothingEndsub 二级ACCESS 模块与VBA 9 2VBA数据库编程 使用ADO技术 SubSetAgePlus1 dimcnasNewADODB Connection 连接对象dimrsasNewADODB RecordSet 记录集对象dimfsasADODB Field 字段对象dimstrConnectasString 连接字符串dimstrSQLasString 查询字符串strconnect e 考试中心教程 教学管理 mdb 设置连接数据库cn Provider Microsoft jet oledb 4 0 设置数据提供者cn openstrconnect 打开与数据源的连接strSQL select年龄from学生表 设置查询语句rs openstrSQL cn adOpenDynamic adLockOptimistic adCmdTextsetfd rs Fields 年龄 二级ACCESS 模块与VBA 9 2VBA数据库编程 对记录集用循环结构进行遍历Dowhilenotrs eoffd fd 1 年龄 加1rs update 更新记录 保存年龄值rs movenext 记录指针移动至下一条Loop 关闭并回收对象变量rs closedb closesetrs Nothingsetdb NothingEndsub 二级ACCESS 模块与VBA 9 2VBA数据库编程 ADO数据对象模型的相关要点 不掌握 Recordset对象的LocyType属性决定数据的锁定方式adLockReadOnly 数据处于只读状态 adLockPessimistic 保守式锁定 编辑数据时即锁定数据源记录 直到数据编辑完成才释放 adLockOptimistic 开放式锁定 编辑数据时不锁定 用Update方法提交数据时才锁定数据源记录 adLockBatchOptimistic 开放式更新 应用于批更新模式 二级ACCESS 模块与VBA 9 2VBA数据库编程 P265 Recordset记录集对象记录指针的移动方法MoveFirst记录指针移到第一条记录MoveNext记录指针移到当前记录的下一条记录MovePrevious记录指针移到当前记录的上一条记录MoveLast记录指针移到最后一条记录 Recordset记录集的BOF和EOF属性用于判断记录指针是否处于有记录的正常位置记录指针将指向最后一条记录之后 EOF属性为True记录指针将指向第一条记录之前 BOF属性为TrueBOF和EOF属性的值均为True 表示记录集为空 二级ACCESS 模块与VBA 9 2VBA数据库编程 Nz函数 将Null值转换为0 空字符串 及其他指定值语法 Nz 表达式或字段属性值 指定值 指定值省略时 将数值型字段中的NULL转换为0 将字符型字段的NULL转换为空字符串 指定值给定 则将NULL转换为指定值 数据库访问的几个重要函数 P276 DLookup函数 从指定记录集中搜索特定字段的值 语法 DLookUp 表达式 记录集 条件式 表达式用户返回检索字段 如果条件返回多个记录 则返回第一个记录相应字段的值DLookUp 学生姓名 学生表 学生姓名 张三 二级ACCESS 模块与VBA 9 2VBA数据库编程 DCount 表达式 记录集 条件式 统计记录个数DAvg 表达式 记录集 条件式 统计某字段的平均值DSum 表达式 记录集 条件式 对某字段求和表达式 字段记录集 表名 查询或SQL条件式 条件表达式 数据库访问的几个重要函数 例 DCount 编号 教师表 性别 男 DAvg 成绩 选课成绩 DSum 订单数 订单表 2010 3 1 能够实现从指定记录集里检索特定字段值的函数是 A NzB FindC LookupD DLookup 2010 3 2 下列程序段的功能是实现 学生 表中 年龄 字段值加1DimStrAsStringStr Docmd RunSQLStr空白处应填入的程序代码是 A 年龄 年龄 1B Update学生Set年龄 年龄 1C Set年龄 年龄 1D Edit学生年龄 年龄 l 二级ACCESS 数据访问页 过关练习 D B 2010 3 1 能够实现从指定记录集里检索特定字段值的函数是 A NzB FindC LookupD DLookup 2010 3 2 下列程序段的功能是实现 学生 表中 年龄 字段值加1DimStrAsStringStr Docmd RunSQLStr空白处应填入的程序代码是 A 年龄 年龄 1B Update学生Set年龄 年龄 1C Set年龄 年龄 1D Edit学生年龄 年龄 l 二级ACCESS 数据访问页 过关练习 D B 2009 9 3 下列过程的功能是 通过对象变量返回当前窗体的Recordset属性记录集引用 消息框中输出记录集的记录 即窗体记录源 个数 SubGetRecNum DimrsAsObjectSetrs Me RecordsetMsgBox EndSub程序空白处应填写的是A CountB rs CountC RecordCountD rs RecordCount 二级ACCESS 数据访问页 过关练习 D 2009 3 4 能够实现从指定记录集里检索特定字段的函数是 A DcountB DLookupC DMaxD DSum 2008 4 5 ADO的含义是 A 开放数据库互连应用编程接口B 数据库访问对象C 动态链接库D Active数据对象 2007 9 6 在Access中 DAO的含义是 A 开放数据库互连应用编程接口B 数据库访问对象C Active数据对象D 数据库动态链接库 二级ACCESS 数据访问页 过关练习 B D B 二级ACCESS 数据访问页 过关练习 B D B PrivateSubCommands Click DimdbAsDAO DatabaseDimrsAsDAO RecordsetDimzcAsDAO FieldDimCountlAsInteger Count2AsInteger Count3AsIntegerSetdb CurrentDb Setrs db OpenRecordset 职工基本情况表 Setzc rs Fields 职称 Countl 0 Count2 0 Count3 0DoWhileNot SelectCasezcCaseIs 教授 Countl Countl 1CaseIs 副教授 Count2 Count2 1CaseElseCourit3