第7篇 用VBA访问ACCESS数据库new.ppt

第7章用VBA访问Access数据库 本章内容 7.1 记录集概述 7.2 在Access中引用ADO对象 7.3 引用记录字段 7.4 浏览记录 7.6 用ADO技术实现复杂查询 7.1 记录集概述 7.1.1 ADO的9个对象 7.1.2 了解记录集 7.1.1 ADO的9个对象 ADO：ActiveX Data Objects Access内嵌的VBA是用ADO技术开发数据库应用的主要工具 ADO对象模型有9个对象： Connection、Recordset、Record、Command、Parameter、Field、Property、Stream、Error 常用对象：Connection、Command、Recordset 7.1.1 ADO的9个对象 Connection对象：ADO对象模型中最高级的对象，实现应用程序与数据源的连接。 Command对象：主要作用是在VBA中通过SQL语句访问、查询数据库中的数据。可以实现Recordset对象不能完成的操作，如创建数据表、修改表结构、删除表等。 Recordset对象的功能最常用、最重要 7.1.2 了解记录集 记录集(Recordset)：对表执行查询操作时，返回的一组特定记录。 用记录集可执行的操作：对表中的数据进行查询和统计，在表中添加、更新或删除记录。 记录集是一个对象，它包括记录和字段，具有其特定的属性和方法，利用这些属性和方法就可以编程处理数据库中的记录。 7.2 在Access中引用ADO对象 应用程序中的ADO引用：声明Connection对象→创建Recordset对象→编程完成各种数据访问操作 7.2.1 声明Connection对象 7.2.2 声明与打开Recordset对象 7.2.3 关闭Recordset和Connection对象 7.2.1 声明Connection对象 (1) 声明一个Connection对象 (2) 初始化Connection对象（决定Connection对 象与哪个数据库相连接） 例如： Dim cnGraduate As ADODB.Connection Set cnGraduate=CurrentProject.Connection 7.2.2 声明与打开Recordset对象 (1) 声明Recordset对象 (2) 创建Recordset对象实例 (3) 打开Recordset对象 例如： Dim rsStudents As ADODB.Recordset Set rsStudents=New ADODB.Recordset rsStudents.Open 研究生, cnGraduate, , , adCmdTable 7.2.3 关闭Recordset和Connection对象 方法：执行Recordset 对象和Connection对象的Close方法 → 将对象设置为Nothing 例如： rsStudents.Close cnGraduate.Close Set rsStudents=Nothing Set cnGraduate=Nothing 上述语句不是必须的。应用程序终止运行时，系统会自动关闭并清除这两个对象。 7.3 引用记录字段 任何对记录集的访问都是针对当前记录进行的。打开记录集时默认的当前记录为第1条记录。 引用记录的字段： 直接在记录集对象中引用字段名称 Code=rsStudents!学号 使用记录集对象的Fields(n)属性。 n是记录中字段从左到右的排列序号，第一个字段的序号为0。 Code=rsStudents.Fields(0) 7.3 引用记录字段 [例7-1] 建立名为ADO的模块，编写如下过程。运行该过程后，输出对话框显示“导师”表中第一位教师的编号和姓名。 7.3 引用记录字段 记录集更多的应用是在窗体对象上：建立一个空白窗体→设计各个控件→编程引用记录集当前记录的相关字段或将字段的值通过控件显示 注意：如果涉及数据访问的事件过程不止一个，可在代码窗口的通用段定义Connection对象和Recordset对象，然后在Form_Load事件过程中完成数据库连接和数据表的打开。 7.3 引用记录字段 7.3 引用记录字段 [例7-2]窗体程序代码 7.4 浏览记录 Recordset记录集对象提供了4种记录指针的移动方法 MoveFirst 记录指针移到第一条记录 MoveNext 记录指针移到当前记录的下一条记录 MoveP