计算机基础与Access数据库程序设计7课件幻灯片.ppt

运行时，选择列表框中的民族将发生鼠标单击事件，编写List0的单击事件代码如下： Private Sub List0_Click() Dim cn As Integer Dim db As DAO.Database Dim rs As DAO.Recordset Set db = CurrentDb() Set rs = db.OpenRecordset(tStudent) cn = 0 Do While Not rs.EOF If rs!民族 = Me!List0.Value Then 民族和列表框选定民族相同则累加 cn = cn + 1 End If rs.MoveNext Loop Me!Text0.Value = cn 把计算结果保存到 Text0 控件中 rs.Close Set rs = Nothing End Sub 运行窗体，单击选择一个民族后，文本框中即显示统计结果值，如图所示。 2. SQL SELECT数据源记录集 记录集对象的数据源可以是表，也可以是一个查询或SQL SELECT语句。数据源是查询或SQL SELECT语句时，一般不应执行Update操作。数据源是查询时，OpenRecordset操作与表数据源相同。 7.7.3 ADO简介 ADO通过OLE(对象连接与嵌入)方法访问数据库。从应用角度而言，ADO和DAO一样都通过一系列对象访问和操作数据库。在设置了ADO引用之后，就可以在VBA程序中使用ADO对象访问数据库了。通过ADO访问数据库的操作步骤如下： (1) 连接数据库。 (2) 打开记录集。 (3) 操作记录集。 (4) 关闭记录集。 (5) 断开数据库连接。 1. 连接数据库 ADO通过Connection对象，即连接对象连接数据库。使用连接对象连接数据库操作步骤如下： (1) 说明并建立连接对象； (2) 调用连接对象的Open方法连接数据库。 说明连接对象及其他ADO对象的语句语法格式如下： Dim 对象名 AS New 对象类型 或 Dim 对象名 AS 对象类型 Set 对象名 = New 对象类型 连接对象的对象类型为ADODB.Connection。 用连接对象Open方法连接数据库，其典型语法格式为： 连接对象名.Open 连接字符串 典型的连接字符串形如： Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\ACCESS教材\教学管理.mdb Provider表示OLEDB提供者信息，固定不变。“Data Source=”之后用单引号括起来的是连接数据库文件的全路径字符串，依据连接的Access数据库的不同，该内容相应改变。 VBA是在Access数据库内启动执行的，这时，系统自动建立一个ADO连接，连接对象名为：CurrentProject.AccessConnection，可以在VBA中直接使用该连接操作当前数据库。 数据库操作结束时须断开数据库连接，调用连接对象的Close方法断开数据库连接，其语法结构与DAO对象相同。 2. 打开并操作记录集 调用记录集对象的 Open方法打开记录集，其典型语法格式为： 记录集对象.Open 数据源字符串,连接对象,,,打开方式 数据源字符串可以是一个SQL SELECT语句或表的名字。使用的连接对象为一已经连接到数据库的连接对象。打开方式是一个符号常量，与数据源字符串相对应，数据源字符串是表时，打开方式选adCmdTable，数据源字符串是SQL SELECT语句时，打开方式选adCmdText。 记录集对象的字段引用方法与DAO相同，格式为： 记录集对象!字段名 记录集对象的常用属性有BOF、EOF和RecordCount。BOF、EOF属性的作用与DAO完全相同。RecordCount返回记录总数，不能确定记录总数时返回-1。 记录集对象的常用方法有AddNew、Delete、MoveFirst、MoveLast、MoveNext、MovePrevious、Update和CancelUpdate方法。这些方法的使用和DAO记录集的对应方法基本相同，不再赘述。 【例7-33】下面的ADO_OpC、ADO_Op子过程(参见“数据库操作”模块)分别打开当前数据库(教学管理