access2013数据库技术及应用(第2版)教学课件作者姜增如第9章.ppt
文本预览下载声明
表9.19 图标形式及对应值按钮 返回 表9.20 MsgBox 函数按钮形式及对应值表 返回 表9.21 MsgBox 返回值表 返回 表9.22 MsgBox 缺省按钮值 返回 图9.23 程序控制流程 返回 图9.25 求解平均成绩界面 返回 图9.26 多条件语法流程结构 返回 图9.29 当循环流程框图 返回 图9.31 直到循环流程图 返回 图9.43 立即窗口 返回 图9.44 立即窗口执行程序 返回 图9.45 打开立即窗口并输出结果 返回 图9.47 程序调试菜单 返回 图9.48 数据库连接操作 返回 图9.49 数据库连接操作 返回 * * * * 9.9 VBA 与宏 VBA 通过DAO 和数据引擎既可以识别Access 本身的数据库, 也可以识别外部数据库, 如VFP (Visual FoxPro)、文本文件数据库和MicrosoftExcel 或Lotus 1 -2 -3 电子表格等。 DAO 模型是设计关系数据库系统结构的对象类的集合, 它们提供了管理关系型数据库系统所需的全部操作的属性和方法, 这其中包括对数据库连接、创建定义表、字段和索引命令、建立表之间的关系、定位和查询数据库等。其使用步骤如图9.48 所示。 (3) ADO (ActiveX Data Objects): “Active 数据对象”, 是基于组件的数据库编程接口。 上一页 下一页 返回 9.9 VBA 与宏 ADO 实际是一种提供访问各种数据类型的连接机制, 是一个与编程语言无关的COM(Component Object Model) 组件系统。ADO 设计为一种极简单的格式, 可以方便地连接任何符合ODBC 标准的数据库。其使用步骤如下: ? 使用Connection 对象建立与数据库的连接。 ? 使用Command 对象设置命令参数并发出命令。 ? 使用RecordSet 对象存储数据操作返回的记录集。 ? 使用Field 对象对记录集中的字段数据进行操作, 包括: 定义和创建ADO 对象实例变量、返回Select 语句记录集、采用Delete (删除)、Update (更新)、Insert (插入) 记录操作。 上一页 下一页 返回 9.9 VBA 与宏 ? 关闭、回收相关对象。 二、使用ADO 连接数据库 1.设置ADO 连接 使用ADO 连接数据库时, 需要单击【工具】菜单下的“引用”, 在可使用的引用中将Microsoft ActiveX Data Objects2.6 选中, 如图9.49 所示。 2.定义和创建ADO 对象实例变量 ? Dim cnn As New ADODB.Connection。 ? Dim cm As New ADODB.Command。 上一页 下一页 返回 9.9 VBA 与宏 ? Dim rs As New ADODB.RecordSet。 ? Dim fd As ADODB.Field。 3.打开数据库连接 cnn.Open[ConnectionStirng][,UserID][,PassWord][,OpenOptions] 其中: ? ConnectionStirng———数据库连接字符串。 ? UserID———用户名。 ? PassWord———密码。 ? OpenOptions———可选项。 上一页 下一页 返回 9.9 VBA 与宏 数据库连接字符串的具体写法, 根据使用的编程接口的不同, 分为两种: ODBC、OLEDB。获得当前数据的连接语句为: Set cnn = CurrentProject.Connection 4.向数据库连接发送SQL 语句 有三种方法发送方式: (1) RecordSet 对象的Open 方法语句: rs.Open[Source][,ActiveConnection][,CursorType][,LockType] 其中: ? Source———数据源。 上一页 下一页 返回 9.9 VBA 与宏 ? ActiveConnection———数据库连接。 ? CursorType———游标类型。 ? LockType———锁定类型。 【说明】 ? Selece 语句返回记录集, Delete、Update、Insert 不返回记录集。 ? 类型: adOpenDynamic———动态游标, 可以修改数据; adOpenStatic———静态游标, 只能查看数据。 上一页 下一页 返回 9.9 VBA 与宏 ? 锁定类型: adLockReadOnly———只读锁定, 只能查看数据; adLockOptimstic———保守式锁定, 可以修改数据, 在编辑数据时即锁定数据源记录, 直到数据编辑完成才释放。 adLockBatchOptim
显示全部