第9章VBA的数据库编程.pptVIP

1 第9章 VBA的数据库编程 Access2010数据库基础与应用教程（第2版） 第9章 VBA的数据库编程 本章主要内容 9.1 数据库访问接口 9.2 数据访问对象（DAO） 9.3 ActiveX数据对象（ADO） 2 9.1 数据库访问接口 为了在VBA程序代码中能方便地实现对数据库的数据访问功能，VBA语言提供有相应的通用的接口方式。 VBA是通过 Microsoft Jet 数据库引擎工具来支持对数据库的访问。所谓数据库引擎实际上是一组动态链接库（DLL），当程序运行时被连接到 VBA 程序而实现对数据库的数据访问功能。数据库引擎是应用程序与物理数据库之间的桥梁，它以一种通用接口的方式，使各种类型物理数据库对用户而言都具有统一的形式和相同的数据访问与处理方法。 3 9.1 数据库访问接口（续） 在VBA语言中，提供了如下三种基本的数据库访问接口: （1）开放数据库互连应用编程接口（简称ODBC API）。 （2）数据访问对象（简称DAO）。 （3）Active数据对象（简称ADO）。 在VBA语言程序设计中，通过数据库引擎可以访问如下三种类型的数据库： （1）本地数据库，即是 Access 数据库。 （2）外部数据库，即是所有的索引顺序访问方法 (ISAM)数据库。 （3）ODBC数据库，即是符合开放数据库连接 (ODBC)标准的数据库，例如，Oracle、 Microsoft SQL Server等。 4 9.2 数据访问对象（DAO） 数据访问对象（DAO）是VBA语言提供的一种数据访问接口，包括数据库、表和查询的创建等功能，通过运行VBA程序代码可以灵活地控制数据访问的各种操作。 在Access 2010中，可以在VBA程序中使用DAO来访问（*.mdb）数据库和（*.accdb）数据库。 5 9.2.1 DAO模型结构 6 DAO 模型的分层结构图如图10-2所示。它包含了一个复杂的可编程数据关联对象的层次，其中 DBEngine对象处于最顶层，它是模型中惟一不被其他对象所包含的数据库引擎本身。层次低一层对象是，Errors和 Workspaces对象。层次再低一层对象如Errors对象的低一层对象是Error；Workspaces 对象的低一层对象是 Workspace。Databases 的低一层对象是 Database。Database 的低一层对象是 Containers、 QueryDefs、RecordSets、Relations 和 TableDefs。TableDefs对象的低一层对象是 TableDef。同理如此类推，在此不作详列。 其中对象名的尾字符为“s”的那些对象（如，Errors、Workspaces、Databases、TableDefs、Fields 等）是集合对象，集合对象下一层包含其成员对象。 7 对象 说明 DBEngine 表示Microsoft Jet数据库引擎。它是DAO模型的最上层对象，而且包含并控制DAO模型中的其余全部对象。 Workspace 表示工作区。 Database 表示操作的数据库对象。 Container 表示数据库中各种对象的基本数据，如使用权限等。 Document 表示文档 QueryDef 表示数据库查询信息。 Parameter 表示参数查询中的参数。 RecordSet 表示数据操作返回的记录集。 Relation 表示数据表之间的关系。 TableDef 表示数据库中的表。 Field 表示字段，包含数据类型和属性等。 Index 表示数据表中定义的索引字段。 Group 表示数据库中的组。 User 表示使用数据库的用户信息。 Error 包含使用DAO对象产生的错误信息。 8 9.2.2 DAO对象变量的声明和赋值 DAO 对象必须通过 VBA 程序代码来控制和操作。在代码中，必须设置对象变量，然后再通过对象变量使用其下的对象、或者对象的属性和方法。 1．对象变量的声明 同普通变量的声明一样，声明的关键字可以是 Dim、Private、Public 等。 声明对象变量的语句格式： Dim 对象变量名 As 对象类型 例如： Dim wks As Workspace ‘声明wks为工作区对象变量 Dim dbs As Database ‘声明dbs为数据库对象变量 9 2．对象变量的赋值 Dim 只是