全套课件-计算机基础与Access数据库程序设计_完整.ppt

可以在方法名之前加DBEngine前缀。工作区名是一个唯一标识该工作区的字符串，不指定工作区名时应给出一个空字符串。用户名是一个工作区用户名字符串，表示该工作区的所有者，一般选admin即可。口令是指定用户的口令，默认admin口令为空串。 选择默认工作区的方法如下： Set 工作区变量 = DBEngine.Workspaces(0) 可以省略DBEngine，直接用Workspaces(0)即可。 在指定工作区中打开数据库用工作区对象的OpenDatabase方法，其典型语法格式如下： Set 数据库变量 = [工作区变量].OpenDatabase(数据库文件名全路径字符串) 省略工作区变量时，自动在默认工作区中打开指定数据库。 VBA代码一般在打开数据库后才执行，如果只操作当前数据库就不需要打开新数据库，选择当前数据库即可。选择当前数据库用应用程序对象(Application对象)的CurrentDb方法，其调用格式为(后面加括号亦可)： CurrentDb 打开指定数据库的表或查询用数据库对象的OpenRecordset方法，其典型语法格式如下： Set 记录集变量 = 数据库变量.OpenRecordset(来源字符串[,打开类型]) 来源字符串可以是一个表的名字、查询的名字或一个可以返回记录集的SQL语句。打开类型用一个DAO常量指示，常用 的类型如下： dbOpenTable，打开一个表类型的Recordset，和表一样可以进行增、删、改操作。 dbOpenDynaset，打开一个动态的Recordset，当来源为一个表时，可以象表一样进行增、删、改操作。 dbOpenForwardOnly，打开一个单向(从开始到结束)读记录集。 关闭记录集用记录集对象的Close方法，其语法格式为(后面加括号亦可)： 记录集对象变量.Close 关闭数据库用数据库对象的Close方法，其语法格式与记录集对象Close方法相同。 关闭工作区用工作区对象的Close方法，其语法格式与记录集对象Close方法相同。默认工作区不需要、也不能被关闭。 下面【例7-22】至【例7-24】给出了DAO数据库操作的典型程序框架(注：教学管理_b数据库与“教学管理”数据库内容完全相同)。 【例7-22】本例给出了一个选择当前数据库并打开Score表记录集的程序框架。 Dim db As DAO.Database Dim rs As DAO.Recordset Dim xh As DAO.Field, kch As DAO.Field, cj As DAO.Field Set db = CurrentDb() Set rs = db.OpenRecordset(tScore) 记录集处理代码 rs.Close 关闭记录集对象 Set rs = Nothing 清除记录集对象 本例中选择的是当前数据库(“教学管理”数据库)，所以不需要关闭该数据库。绝大多数VBA代码都是针对当前数据库操作的。 【例7-23】本例给出了一个在默认工作区打开数据库并打开Score表记录集的程序框架。 Dim db As DAO.Database Dim rs As DAO.Recordset Set db = OpenDatabase(c:\ACCESS教材\教学管理_b.mdb) Set rs = db.OpenRecordset(tScore) 记录集处理代码 rs.Close 关闭记录集对象 db.Close 关闭数据库对象 Set rs = Nothing 清除记录集对象 Set db = Nothing 清除数据库对象 本例在默认工作区中打开“教学管理_b.mdb”数据库，因此需要在操作结束时关闭该数据库。 【例7-24】本例给出了一个在新建工作区中打开数据库及其Score表记录集的程序框架。 Dim wk As Workspace Dim db As DAO.Database Dim rs As DAO.Recordset Dim xh As DAO.Field, kch As DAO.Field, cj As DAO.Field Set wk = DBEngine.CreateWorkspace(, admin, ) Set db = wk.OpenDatabase(c:\ACCESS教材\教学管理_b.mdb) Set rs = db.OpenRecordset(tScore) 记录集处理代码 rs.Close 关闭记录