access8第8章 模块与VBA程序设计.pptVIP

8.8.3 使用DAO访问数据库的方法 使用DAO访问数据库有以下几个步骤： 在VBA 中使用DAO 可以分以下几个步骤来操作 （1）首先创建Workspace 工作区。 Dim ws as Workspace 声明一个工作变量 Set ws=DBEngine.Workspace(0) 设置ws为默认工作区 （2）然后打开Database 数据库。 Dim db as Database 设置数据库对象 Set db=ws.openDatabase(数据库文件名) 打开某个数据库 Set db = CurrentDb() 设置当前数据库为db （3）再创建记录集即Recordset。 Dim rs As Recordset 声明rs为Recordset对象 Set rs = db.OpenRecordset(借书) 设置rs为“借书”表的记录集合 （4）最后可以通过这一记录集的属性和方法来访问数据。 Dim fd As Field 声明fd为Filed字段对象 Set fd = rs.Fields(罚款金额) 声明fd为Recordset记录集合中当前记录（行）字段“罚款金额”的值。 【例8.15】编写一个过程“updat