第八 九 模块与vba—access培训讲义794613.pptVIP

9.1 VBA中的常用操作 关闭各种ACCESS对象示例 9.1 VBA中的常用操作 2. 计时事件Timer VBA可通过设置窗体的“计时器间隔(TimerInterval)”属性与添加“计时器触发器（Timer）”事件来完成“定时”功能。 基本处理过程： Timer事件每隔TimerInterval时间间隔被激发一次，然后运行Timer事件过程来响应。 Private Sub Form_Timer() Labeltime.Caption = CStr(Now()) End Sub 9.1 VBA中的常用操作 3. 运行错误处理 程序中一定要合理的设置错误处理，以便处理程序在不可预知的情况下发生错误。如果仅由操作系统来处理这些错误，不仅会让用户不知所措，还会造成灾难性的后果。 VBA中提供了以下语句来处理程序运行时的错误： On Error GoTo 标号：发生错误时转移到标号处进行处理 On Error Resume Next：忽略发生的错误，执行下面语句 On Error GoTo 0：关闭出错处理 9.2 VBA数据库编程 VBA通过数据库引擎(Microsof jet)工具完成对数据库的访问，所谓数据库引擎其实是一组动态连接库(DLL),程序运行时被连接到VBA程序程序而实现对数据库的访问功能。VBA中提供了3种数据库访问接口(重点)。 ODBC API：开放数据库互连应用编程接口。 DAO：数据访问对象。 ADO：Active数据对象 VBA访问的三种数据库类型： (了解) 本地数据库：ACCESS 外部数据库 ODBC数据库：如Oracle、SyBase、SQL Server等 9.2 VBA数据库编程 DAO数据对象模型模型(重点) DBEngine Workspace(s) Database(s) RecordSet(s) Field(s) Error(s) QueryDef(s) DBEngine数据库引擎为DAO模型最上层对象，包含并管理其它对象。 9.2 VBA数据库编程 ADO数据对象模型模型(与语言无关) (重点) Error(s) Connection Command RecordSet Field(s) 指定数据连接提供者，建立到数据源的连接。 可执行一个命令，如可执行SQL查询。一般用于表结构的修改。 可执行SQL查询返回一个记录集，并可对记录集进行修改、插入、删除操作。是ADO中最灵活的对象。 9.2 VBA数据库编程 例：分别用DAO和ADO来完成对“教学管理.mdb”文件中“学生表”的学生年龄都加1的操作。（假设文件存放在E盘“考试中心教程”文件夹中） (分析教材P271例题9-10、9-17、18、19) 使用DAO技术： Sub SetAgePlus1() dim ws 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(“年龄”) ’设置“年龄”字段 9.2 VBA数据库编程 Do while not rs.eof ‘对记录集用循环结构进行遍历 rs.edit ’设置为“编辑”状态 fd=fd+1 ‘ 年龄字段值加1 rs.update ’更新记录，保存年龄值 rs.movenext ‘记录指针移动至下一条 Loop rs.close ‘