10.3.2-应用DAO访问数据库（教案）-《Access数据库应用基础》同步教学（科学出版社）

教案 编号：PTzZ-300 流水号：19 （首页）共 4页 课程 《Access数据库应用基础》 一体化 理论 章节（课题）及内容 应用DAO访问数据库 班级日期 中职 2024.05 授课方式 讲授与任务驱动相结合 课时 1 作业题数 1 拟用时间 40分钟 教学目标 使学生理解以下理论知识： · 了解DAO（数据访问对象）的基本概念和作用。 · 学会在VBA中使用DAO访问和操作数据库。 · 掌握DAO的主要对象及其属性和方法。 教学资源准备 多媒体设备 课本教材 学生练习素材 教学重点 1. DAO的基本概念和作用。 2. DAO的主要对象及其属性和方法。 3. 如何在VBA中使用DAO访问和操作数据库。 教学难点 1. DAO的配置和使用。 2. DAO的属性和方法的灵活应用。 教学方法 讲授法、任务驱动法、演示法、体验探究法等。 · 案例分析法：通过具体案例，引导学生分析DAO的应用场景和实现方法。 · 实验操作法：提供实验指导，让学生通过实际操作掌握DAO的使用。 授课教师： 审阅签名： 教学过程 教学活动内容 时间分配教学方法 课前导入 · 回顾VBA语言的基础知识，包括变量、数据类型、控制结构等。 · 介绍数据库访问技术在VBA中的应用，引导学生思考如何利用DAO实现数据库访问。 2分钟 讲授新课 练习指导 要在VBA中使用DAO访问和操作数据库，需要了解以下内容： 1. 引入DAO库 在VBA编辑器中，点击“工具”菜单，选择“引用”，勾选“Microsoft DAO x.x Object Library”，其中x.x表示版本号。这样就引入了DAO库，可以在VBA代码中使用DAO对象和方法。 2. 创建DAO对象 在VBA中，可以使用以下对象来访问和操作数据库： - Workspace对象：用于管理数据库连接。 - Database对象：用于表示数据库。 - TableDef对象：用于表示数据库中的表。 - QueryDef对象：用于表示数据库中的查询。 - Recordset对象：用于表示数据库中的记录集。 3. 连接数据库 使用Workspace对象的OpenDatabase方法连接数据库。例如： ```vba Dim ws As DAO.Workspace Dim db As DAO.Database Set ws = DBEngine.Workspaces(0) ' 获取默认工作区 Set db = ws.OpenDatabase("C:\path\to\your\database.mdb") ' 连接数据库 ``` 4. 操作数据库 通过Database对象，可以对数据库进行操作，如创建表、执行SQL查询等。例如： ```vba Dim tdef As DAO.TableDef Set tdef = db.CreateTableDef("NewTable") ' 创建一个新表 tdef.Fields.Append tdef.CreateField("ID", dbInteger) ' 添加一个整数字段 tdef.Fields.Append tdef.CreateField("Name", dbText, 50) ' 添加一个文本字段，最大长度为50 db.TableDefs.Append tdef ' 将新表添加到数据库中 db.Execute "CREATE INDEX idx_name ON NewTable (Name)" ' 创建索引 db.Execute "INSERT INTO NewTable (ID, Name) VALUES (1, 'Test')" ' 插入数据 db.Execute "UPDATE NewTable SET Name = 'NewTest' WHERE ID = 1" ' 更新数据 db.Execute "DELETE FROM NewTable WHERE ID = 1" ' 删除数据 ``` 5. 查询数据库 使用QueryDef对象执行SQL查询。例如： ```vba Dim qdef As DAO.QueryDef Dim rs As DAO.Recordset Set qdef = db.CreateQueryDef("", "SELECT * FROM NewTable") ' 创建一个查询 Set rs = qdef.OpenRecordset ' 执行查询并获取结果集 Do While Not rs.EOF Debug.Print rs.Fields("ID").