Access基础与应用教程PPT课件第9章VBA的数据库编程.ppt

《Access基础与应用教程PPT课件第9章VBA的数据库编程.ppt》由会员分享，可在线阅读，更多相关《Access基础与应用教程PPT课件第9章VBA的数据库编程.ppt（44页珍藏版）》请在得力文库 - 分享文档赚钱的网站上搜索。

1、第第9 9章章 在开发在开发AccessAccess数据库应数据库应用系统时，为了能开发出用系统时，为了能开发出更实用、更有效的更实用、更有效的AccessAccess数数据库应用程序，以便能快据库应用程序，以便能快速、有效地管理好数据，速、有效地管理好数据，还应当学习和掌握还应当学习和掌握VBAVBA的的数据库编程方法。数据库编程方法。VBA的数据库编程的数据库编程第第9 9章章 VBAVBA的数据库编程的数据库编程本章主要内容退出退出9.1 9.1 数据库访问接口数据库访问接口9.2 9.2 数据访问对象（数据访问对象（DAODAO）9.3 ActiveX9.3 ActiveX数据对象（数

2、据对象（ADOADO）9.1 9.1 数据库访问接口数据库访问接口 为了在为了在VBA程序代码中能方便地实现对数据库的数程序代码中能方便地实现对数据库的数据访问功能，据访问功能，VBA语言提供有相应的通用的接口方式。语言提供有相应的通用的接口方式。VBA是通过是通过 Microsoft Jet 数据库引擎工具来支持数据库引擎工具来支持对数据库的访问。所谓数据库引擎实际上是一组动态链对数据库的访问。所谓数据库引擎实际上是一组动态链接库（接库（DLL），当程序运行时被连接到），当程序运行时被连接到 VBA 程序而实程序而实现对数据库的数据访问功能。数据库引擎是应用程序与现对数据库的数据访问功能。数

3、据库引擎是应用程序与物理数据库之间的桥梁，它以一种通用接口的方式，使物理数据库之间的桥梁，它以一种通用接口的方式，使各种类型物理数据库对用户而言都具有统一的形式和相各种类型物理数据库对用户而言都具有统一的形式和相同的数据访问与处理方法。同的数据访问与处理方法。9.1 9.1 数据库访问接口数据库访问接口（续）（续）在在VBA语言中，提供了如下三种基本的数据库访问接口语言中，提供了如下三种基本的数据库访问接口:（1）开放数据库互连应用编程接口（）开放数据库互连应用编程接口（简称简称ODBC API）。）。（2）数据访问对象（）数据访问对象（简称简称DAO）。）。（3）Active数据对象（数据对

4、象（简称简称ADO）。）。在在VBA语言程序设计中，通过数据库引擎可以访问如下语言程序设计中，通过数据库引擎可以访问如下三种类型的数据库：三种类型的数据库：（1）本地数据库，即是）本地数据库，即是 Access 数据库。数据库。（2）外部数据库，即是所有的索引顺序访问方法）外部数据库，即是所有的索引顺序访问方法(ISAM)数据库。数据库。（3）ODBC数据库，即是符合开放数据库连接数据库，即是符合开放数据库连接(ODBC)标准的数据库，例如，标准的数据库，例如，Oracle、Microsoft SQL Server等。等。9.2 9.2 数据访问对象（数据访问对象（DAODAO）数据访问对象（

5、数据访问对象（DAO）是）是VBA语言提供的语言提供的一种数据访问接口，包括数据库、表和查询的创一种数据访问接口，包括数据库、表和查询的创建等功能，通过运行建等功能，通过运行VBA程序代码可以灵活地控程序代码可以灵活地控制数据访问的各种操作。制数据访问的各种操作。在在Access 2010中，可以在中，可以在VBA程序中使用程序中使用DAO来访问（来访问（*.mdb）数据库和（）数据库和（*.accdb）数据）数据库。库。9.2.1 DAO9.2.1 DAO模型结构模型结构 DAO 模型的分层结构图如图模型的分层结构图如图10-2所示。它包含了一个所示。它包含了一个复杂的可编程数据关联对象的层

6、次，其中复杂的可编程数据关联对象的层次，其中 DBEngine对象对象处于最顶层，它是模型中惟一不被其他对象所包含的数据处于最顶层，它是模型中惟一不被其他对象所包含的数据库引擎本身。层次低一层对象是，库引擎本身。层次低一层对象是，Errors和和 Workspaces对象。层次再低一层对象如对象。层次再低一层对象如Errors对象的低一层对象是对象的低一层对象是Error；Workspaces 对象的低一层对象是对象的低一层对象是 Workspace。Databases 的低一层对象是的低一层对象是 Database。Database 的低的低一层对象是一层对象是 Containers、Que

7、ryDefs、RecordSets、Relations 和和 TableDefs。TableDefs对象的低一层对象是对象的低一层对象是 TableDef。同理如此类推，在此不作详列。同理如此类推，在此不作详列。其中对象名的尾字符为其中对象名的尾字符为“s”的那些对象（如，的那些对象（如，Errors、Workspaces、Databases、TableDefs、Fields 等）是等）是集合对象，集合对象下一层包含其成员对象。集合对象，集合对象下一层包含其成员对象。对对象象说说明明DBEngine表示表示Microsoft Jet数据数据库库引擎。它是引擎。它是DAO模型的最上模型的最上层对

8、层对象，象，而且包含并控制而且包含并控制DAO模型中的其余全部模型中的其余全部对对象。象。Workspace表示工作区。表示工作区。Database表示操作的数据表示操作的数据库对库对象。象。Container表示数据表示数据库库中各种中各种对对象的基本数据，如使用象的基本数据，如使用权权限等。限等。Document表示文档表示文档QueryDef表示数据表示数据库查询库查询信息。信息。Parameter表示参数表示参数查询查询中的参数。中的参数。RecordSet表示数据操作返回的表示数据操作返回的记录记录集。集。Relation表示数据表之表示数据表之间间的关系。的关系。TableDef表

9、示数据表示数据库库中的表。中的表。Field表示字段，包含数据表示字段，包含数据类类型和属性等。型和属性等。Index表示数据表中定表示数据表中定义义的索引字段。的索引字段。Group表示数据表示数据库库中的中的组组。User表示使用数据表示使用数据库库的用的用户户信息。信息。Error包含使用包含使用DAO对对象象产产生的生的错误错误信息。信息。9.2.2 DAO9.2.2 DAO对象变量的声明和赋值对象变量的声明和赋值 DAO 对象必须通过对象必须通过 VBA 程序代码来控制和操作。在代码程序代码来控制和操作。在代码中，必须设置对象变量，然后再通过对象变量使用其下的对象、中，必须设置对象变

10、量，然后再通过对象变量使用其下的对象、或者对象的属性和方法。或者对象的属性和方法。1对象变量的声明对象变量的声明 同普通变量的声明一样，声明的关键字可以是同普通变量的声明一样，声明的关键字可以是 Dim、Private、Public 等。等。声明对象变量的语句格式：声明对象变量的语句格式：Dim 对象变量名对象变量名 As 对象类型对象类型 例如：例如：Dim wks As Workspace 声明声明wks为工作区对象变量为工作区对象变量 Dim dbs As Database 声明声明dbs为数据库对象变量为数据库对象变量2 2对象变量的赋值对象变量的赋值 Dim 只是声明了对象变量的类型

11、，对象变量的值只是声明了对象变量的类型，对象变量的值必须通过必须通过 Set 赋值语句来赋值。赋值语句来赋值。Set赋值语句的格式：赋值语句的格式：Set 对象变量名称对象变量名称=对象指定声明对象指定声明例如：例如：Set wks=DBEngine.Workspaces(0)打开默认工作区（即打开默认工作区（即0号工作区）号工作区）Set dbs=wks.OpenDatabase(E:Access职工管理职工管理.accdb)打开数据库打开数据库例例9-1 9-1 例例9-1 通过通过 DAO 编程，显示当前打开的数据库的名编程，显示当前打开的数据库的名称。称。Private Sub Cmd

12、1_Click()Dim wks As Workspace 声明工作区对象变量声明工作区对象变量 Dim dbs As Database 声明数据库对象变量声明数据库对象变量 Set wks=DBEngine.Workspaces(0)打开默认工作区（即打开默认工作区（即0号工作区）号工作区）Set dbs=wks.Databases(0)打开当前打开当前（默认）（默认）数据库（即数据库（即0号数据库）号数据库）MsgBox dbs.Name Name 是是 Database 对象变量的属性对象变量的属性End Sub例例9-1 9-1（续）（续）9.2.3 DAO9.2.3 DAO对象的部分

13、属性和方法对象的部分属性和方法 1Database 对象的常用属性和方法对象的常用属性和方法 Database 对象代表数据库。对象代表数据库。Database对象的常对象的常用属性如表用属性如表9-2所示。所示。Database对象的常用方法如表对象的常用方法如表9-3所示。所示。属性属性说说明明Name标识标识一个数据一个数据库对库对象的名称象的名称Updatable表示数据表示数据库对库对象是否可以被更新（象是否可以被更新（为为True 可以可以更新，更新，为为 False 不可以更新）不可以更新）表表9-2 Database对象的常用属性对象的常用属性 表表9-3 Database对象

14、的常用方法对象的常用方法方法方法说说明明CreatQueryDef 创创建一个新的建一个新的查询对查询对象象CreatTableDef创创建一个新的表建一个新的表对对象象CreatRelation建立新的关系建立新的关系OpenRecordSet创创建一个新的建一个新的记录记录集集Excute执执行一个行一个SQL查询查询Close关关闭闭数据数据库库2 2TableDef TableDef 对象的对象的CreateFieldCreateField方法方法 使用使用 TableDef 对象的对象的 CreateField 方法可创建表方法可创建表中的字段。中的字段。使用使用 CreateFie

15、ld方方 法的语句格式：法的语句格式：Set fed=tbe.CreateField(name,type,size)其中：其中：fed 是字段对象变量。是字段对象变量。tbe 是表对象变量。是表对象变量。name是字段名。是字段名。type 是字段的数据类型，要用英文字符表是字段的数据类型，要用英文字符表示，如示，如 dbText 表示文本型，表示文本型，dbInteger 表示整型。表示整型。size 表示字段大小。表示字段大小。3 3RecordSet RecordSet 对象的常用属性和方法对象的常用属性和方法 RecordSet 对象代表一个表或查询中的所有对象代表一个表或查询中的所有

16、记录。记录。RecordSet 对象提供了对记录的添加、对象提供了对记录的添加、删除和修改等操作的支持。删除和修改等操作的支持。RecordSet 对象的常用属性如表对象的常用属性如表9-4所示。所示。RecordSet 对象的常用方法如表对象的常用方法如表9-5所示。所示。表表9-4 RecordSet对象的常用属性对象的常用属性 属性属性说说明明Bof若若为为 True，记录记录指指针针指向指向记录记录集的第一个集的第一个记记录录之前之前Eof若若为为 True，记录记录指指针针指向指向记录记录集的最后一个集的最后一个记录记录之后之后Filter设设置置筛选筛选条件条件过滤过滤出出满满足条

17、件的足条件的记录记录RecordCount返回返回记录记录集集对对象中的象中的记录记录个数个数NoMatch使用使用 Find 方法方法时时，如果没有匹配的，如果没有匹配的记录记录，则则为为 True，否，否则为则为 False 表表9-5 RecordSet 对象的常用方法对象的常用方法的方法的方法方法方法说说明明AddNew添加新添加新记录记录Delete删删除当前除当前记录记录Eidt编辑编辑当前当前记录记录。FindFirst查查找第一个找第一个满满足条件的足条件的记录记录。FindLast查查找最后一个找最后一个满满足条件的足条件的记录记录。FindNext查查找下一个找下一个满满足

18、条件的足条件的记录记录。FindPrevious查查找前一个找前一个满满足条件的足条件的记录记录。Move移移动记录动记录指指针针。MoveFirst把把记录记录指指针针移到第一个移到第一个记录记录。MoveLast把把记录记录指指针针移到最后一个移到最后一个记录记录。MoveNext把把记录记录指指针针移到下一个移到下一个记录记录。MovePrevious把把记录记录指指针针移到前一个移到前一个记录记录。Requery重新运行重新运行查询查询，以更新，以更新 RecordSet 中的中的记录记录。9.2.4 9.2.4 利用利用DAODAO访问数据库访问数据库 在在 VBA 编程中，利用编程

19、中，利用 DAO 实现对数据库实现对数据库访问时，要先创建对象变量，再通过对象方法访问时，要先创建对象变量，再通过对象方法和属性来进行操作。和属性来进行操作。下面通过例子介绍利用下面通过例子介绍利用 DAO 实现对数据库实现对数据库访问的一般语句和步骤：访问的一般语句和步骤：例例9-2 9-2（DAODAODAODAO数据库编程例数据库编程例数据库编程例数据库编程例）例例9-2编写一个使用编写一个使用DAO的名为的名为UseDaoUpdateAge的子过的子过程，通过调用该子过程来完成对程，通过调用该子过程来完成对“职工管理职工管理”数据库的数据库的“职工基职工基本资料本资料”表的年龄字段值都

20、加表的年龄字段值都加1的操作（假设的操作（假设“职工管理职工管理.accdb”数据库文件存放在数据库文件存放在E盘盘“E:Access”文件夹中，文件夹中，“职工基本资料职工基本资料”表中的表中的“年龄年龄”字段的数据类型是整型）。本例的窗体名称为字段的数据类型是整型）。本例的窗体名称为“例例9-2使用使用DAO编程编程-年龄加年龄加1”。Cmd1 命令按钮的单击事件过程和命令按钮的单击事件过程和 UseDaoUpdateAge 子过子过程的程的VBA程序代码如下：程序代码如下：例例例例9-29-2 VBAVBA代码代码代码代码例例9-3 9-3（DAODAO数据库编程例数据库编程例）例例9-

21、3 通过在通过在VBA程序中使用程序中使用DAO，在当，在当前数据库中创建一个名为前数据库中创建一个名为“用户表用户表”的表。的表。“用户表用户表”的表结构如表的表结构如表9-6所示。该表的主键是所示。该表的主键是“用户用户ID”字段。本例的窗体名是字段。本例的窗体名是“例例9-3 用用 DAO 创建数据表创建数据表”，窗体中的命令按钮名称，窗体中的命令按钮名称是是Cmd1。例例例例9-39-39-39-3VBA VBA VBA VBA 代码代码代码代码 例例9-4 9-4（DAODAODAODAO数据库编程例数据库编程例数据库编程例数据库编程例）例例9-4通过在通过在VBA程序中使用程序中使

22、用DAO，实现，实现的当前数据库中的的当前数据库中的“用户表用户表”添加新记录。本例添加新记录。本例的窗体名是的窗体名是“例例9-4用用DAO往用户表添加记录往用户表添加记录”，如图，如图9-2所示。所示。例例9-9-4 4VBA VBA VBA VBA 代码代码代码代码 9.3 ActiveX 9.3 ActiveX数据对象（数据对象（ADOADO）ActiveX数据对象（数据对象（ActiveX Data Objects，简，简称称ADO）是基于组件的数据库编程接口，它可以对来）是基于组件的数据库编程接口，它可以对来自多种数据提供者的数据进行读取和写入操作。自多种数据提供者的数据进行读取和

23、写入操作。在在Access模块设计时要使用模块设计时要使用ADO的各个数据对象，需的各个数据对象，需要增加对要增加对ADO库的引用。其中，在库的引用。其中，在Access 2010中，要在中，要在VBA程序中使用程序中使用ADO来访问（来访问（*.accdb）数据库）数据库,需要增加需要增加对对“Microsoft ActiveX Data Objects 6.1 Library”库的库的引用。该引用的设置方法：打开引用。该引用的设置方法：打开VBE窗口，单击菜单栏上窗口，单击菜单栏上的的“工具工具”，单击，单击“工具工具”菜单中的菜单中的“引用引用”项，弹出项，弹出“引用引用”对话框，从对话

24、框，从“可使用的引用可使用的引用”列表项中，选中列表项中，选中“Microsoft ActiveX Data Objects 6.1 Library”项的复选项的复选框，如图框，如图9-4所示，然后单击所示，然后单击“确定确定”按钮。按钮。本节仅介绍使用本节仅介绍使用ADO来访问（来访问（*.accdb）数据库）数据库.9.3.1 ADO9.3.1 ADO模型结构模型结构 ADO对象模型图如图对象模型图如图9-5所示，它提供一系列数所示，它提供一系列数据对象供使用。不过，据对象供使用。不过，ADO 接口与接口与 DAO不同，不同，ADO对象不须派生，大多数对象都可以直接创建（对象不须派生，大多

25、数对象都可以直接创建（Field 和和 Error 除外），没有对象的分级结构。除外），没有对象的分级结构。使用时，只需在程序中创建对象变量，并通过对使用时，只需在程序中创建对象变量，并通过对象变量来调用访问对象方法、设置访问对象属性，这象变量来调用访问对象方法、设置访问对象属性，这样就实现对数据库的各项访问操作。样就实现对数据库的各项访问操作。ADO 只需要九只需要九个对象和四个集合（对象）就能提供其整个功能。个对象和四个集合（对象）就能提供其整个功能。图图9-59-5ADOADO对象模型图对象模型图表表9-7 ADO对象说明对象说明9.3.2 ADO9.3.2 ADO对象变量的声明对象变量

26、的声明 ADO 对象必须通过对象必须通过 VBA 程序代码来控制和操作。在代码程序代码来控制和操作。在代码中，必须设置对象变量，然后再通过对象变量使用其下的对象、中，必须设置对象变量，然后再通过对象变量使用其下的对象、或者对象的属性和方法。或者对象的属性和方法。声明对象变量的语句格式：声明对象变量的语句格式：Dim 对象变量名称对象变量名称 As ADODB.对象类型对象类型 例如：例如：Dim con As New ADODB.Connection 声明一个连接对象变量声明一个连接对象变量Dim res As New ADODB.RecordSet 声明一个记录集对象变量声明一个记录集对象变

27、量 注意，注意，ADODB 是是 ADO 类型库的短名称，用于识别与类型库的短名称，用于识别与DAO中同名的对象。例如，中同名的对象。例如，DAO中有中有 RecordSet 对象，对象，ADO 中也有中也有 RecordSet对象，为了能够区分开来，在对象，为了能够区分开来，在 ADO 中声明中声明RecordSet 类型对象变量时，用上类型对象变量时，用上 ADODB.RecordSet。总之，。总之，在在ADO中声明对象变量时，一般都要用上中声明对象变量时，一般都要用上“ADODB.”前缀。前缀。9.3.3 ADO9.3.3 ADO对象的部分属性和方法对象的部分属性和方法1Connect

28、ion 对象的常用方法对象的常用方法（1）Open方法方法通过使用通过使用Connection 对象的对象的Open方法来建立与数据源的连接。方法来建立与数据源的连接。Open方法的语句格式：方法的语句格式：Dim 连接对象变量名连接对象变量名 As New ADODB.Connection连接对象变量名连接对象变量名.Open ConnectionString,UserID,Password,OpenOptions例如，创建与例如，创建与“职工管理职工管理.mdb”数据库连接的语句：数据库连接的语句：Dim cnn As New ADODB.Connection 声明一个连接对象变量声明一个

29、连接对象变量cnncnn.Open Provider=Microsoft.Jet.OLEDB.4.0;Data Source=E:Access职工管理职工管理.mdb（2）Close方法方法 通过使用通过使用 Connection 对象的对象的 Close 方法来关闭与数方法来关闭与数据源的连接。据源的连接。Close方法的语句格式：方法的语句格式：连接对象变量名连接对象变量名.Close 注意，该语句可以关闭注意，该语句可以关闭Connection 对象，断开应用对象，断开应用程序与数据源的连接。但是程序与数据源的连接。但是Connection 仍在内存中，释仍在内存中，释放放 Connec

30、tion 对象变量的方法是使用下面语句格式的语对象变量的方法是使用下面语句格式的语句：句：释放连接对象变量的语句格式：释放连接对象变量的语句格式：Set连接对象变量名连接对象变量名=nothing 例如，关闭与例如，关闭与“职工管理职工管理.accdb”数据库连接的语句：数据库连接的语句：cnn.CloseSetcnn=nothing（3）如果指定的数据源就是当前已经打开的数据库，则必）如果指定的数据源就是当前已经打开的数据库，则必须通过须通过 CurrentProject 对象的对象的Connection属性来取得连属性来取得连接。接。语句格式：语句格式：Dim 连接对象变量名连接对象变量名

31、 As New ADODB.ConnectionSet 连接对象变量名连接对象变量名=CurrentProject.Connection 例如：创建与当前已经打开的数据库的连接：例如：创建与当前已经打开的数据库的连接：Dim cnn As New ADODB.Connection Set cnn=CurrentProject.Connection2 2RecordSet RecordSet 对象的常用属性和方法对象的常用属性和方法建立建立 Recordset 对象的语句格式：对象的语句格式：Dim 记录集对象变量名记录集对象变量名 As ADODB.Recordset Set 记录集对象变量名

32、记录集对象变量名=New ADODB.Recordset RecordSet 对象的常用属性如表对象的常用属性如表9-8所示。所示。RecordSet对象的常用方法如表对象的常用方法如表9-9所示。所示。表表9-8 RecordSet9-8 RecordSet对象的常用属性对象的常用属性属性属性说说明明Bof若若为为True，记录记录指指针针指向指向记录记录集的集的顶顶部（即部（即指向第一个指向第一个记录记录之前）。之前）。Eof若若为为True，记录记录指指针针指向指向记录记录集的底部（即集的底部（即指向最后一个指向最后一个记录记录之后）。之后）。RecordCount返回返回记录记录集集对

33、对象中的象中的记录记录个数。个数。表表9-9-9 9 RecordSet RecordSet对象的常用方法对象的常用方法方法方法说说明明Open打开一个打开一个 Recordset 对对象。象。Close关关闭闭一个一个 Recordset 对对象。象。AddNew在在 Recordset 对对象中添加一个象中添加一个记录记录。Update将将 Recordset 对对象中的数据保存（即写入）到数据象中的数据保存（即写入）到数据库库。CancelUpdate取消取消对对 Recordset 对对象的更新操作。象的更新操作。Delete删删除除 Recordset 对对象中的一个或多个象中的一个

34、或多个记录记录。Find在在 Recordset 中中查查找找满满足指定条件的行。足指定条件的行。Move移移动记录动记录指指针针到指定位置。到指定位置。MoveFirst把把记录记录指指针针移到第一个移到第一个记录记录。MoveLast把把记录记录指指针针移到最后一个移到最后一个记录记录。MoveNext把把记录记录指指针针移到下一个移到下一个记录记录。MovePrevious把把记录记录指指针针移到前一个移到前一个记录记录。Clone复制某个已存在的复制某个已存在的 RecordSet 对对象。象。3 3Command Command 对象的常用属性和方法对象的常用属性和方法（1）建立）建

35、立 Command 对象对象 建立建立 Command 对象的语句格式：对象的语句格式：Dim 对象变量名对象变量名 As New ADODB.Command（2）Command 对象的常用属性如表对象的常用属性如表9-10所示。所示。（3）Command对象的常用方法如表对象的常用方法如表9-11所示。所示。表表9-9-1010 Command Command对象的常用属性对象的常用属性属性属性说说明明ActiveConnection指明指明 Connection 对对象。象。CommandText指明指明查询查询命令的文本内容，可命令的文本内容，可以是以是 SQL 语语句。句。表表9-19

36、-11 1 Command Command对象的常用方法对象的常用方法方法方法说说明明Execute执执行在行在 CommandText 属性中指定的属性中指定的 SQL 查询查询命令。命令。9.3.4 9.3.4 利用利用ADOADO访问数据库访问数据库 在在VBA编程中，利用编程中，利用ADO实现对数据库访问时，实现对数据库访问时，要先创建对象变量，再通过对象方法和属性来进行操要先创建对象变量，再通过对象方法和属性来进行操作。作。注意，在注意，在 Access 的的 VBA 语言中，为语言中，为 ADO 提供提供了类似了类似 DAO 的数据库打开快捷方式，即的数据库打开快捷方式，即Curr

37、entProject.Connection，它指向一个默认的，它指向一个默认的ADODB.Connection 对象，该对象与当前数据库的对象，该对象与当前数据库的Jet OLE DB服务提供者一起工作。不像服务提供者一起工作。不像CurrentDB()是可选的，用户必须使用是可选的，用户必须使用CurrentProject.Connection 作作为当前打开数据库的为当前打开数据库的 ADODB.Connection 对象。对象。例例9 9-5-5（ADOADO数据库编程例数据库编程例子子 ）例例9-5编写一个使用编写一个使用ADO的名为的名为UseAdoUpdateAge的的子过程，通过

38、调用该子过程来完成对子过程，通过调用该子过程来完成对“职工管理职工管理”数据数据库的库的“职工基本资料职工基本资料”表的年龄字段值都加表的年龄字段值都加1的操作（假的操作（假设设“职工管理职工管理.accdb”数据库文件存放在数据库文件存放在E盘盘“E:Access”文件夹中，文件夹中，“职工基本资料职工基本资料”表中的表中的“年年龄龄”字段的数据类型是整型）。本例的窗体名称为字段的数据类型是整型）。本例的窗体名称为“例例9-5使用使用ADO编程编程-年龄加年龄加1”。Cmd1 命令按钮的单击事件命令按钮的单击事件过程和过程和 UseAdoUpdateAge 子过程的子过程的 VBA 程序代码如下：程序代码如下：例例例例9-5 9-5 9-5 9-5 VBAVBAVBAVBA代码代码代码代码打开打开打开打开“例例例例9-5 9-5 9-5 9-5 使用使用使用使用ADOADOADOADO编程编程编程编程-年龄加年龄加年龄加年龄加1 1 1 1”窗体视图窗体视图窗体视图窗体视图