第10讲 数据库编程.ppt

刷新表，将记录加入到表中 daoRecordSet.Update daoRecordSet.Close daoDatabase.Close End Sub 打开“通过VBA程序为学生信息表添加记录”窗体，单击[添加记录]命令按钮，即可向“学生信息”表中添加一条新记录。 例10-2：按职称调整工资，用DAO方法将数据更新到本地数据库的数据表中，代码附加给命令按钮的单击事件，调整后工资增加的总数额显示在文本框中。 10.2.3 用DAO访问数据库(Data Access Objects——数据访问对象) 操作步骤： 1、在“学生管理”数据库中新建1个窗体，命名为“用VBA程序按职称调整工资”; 2、在窗体中添加1个文本框，命名为“texSum”，相应标签标题为“增加的工资总额为：” 3、在窗体中添加1个按钮，命名为：[buttonAdjust]，标题为：调整工资； 4、为[调整工资]按钮的单击事件添加响应代码： 10.2.3 用DAO访问数据库(Data Access Objects——数据访问对象) Private Sub buttonAdjust_Click() 定义数据库变量 Dim daoDatabase As DAO.Database 定义记录集变量 Dim daoRecordSet As DAO.Recordset 定义字段变量 Dim Wages As DAO.Field 定义字段变量 Dim Title As DAO.Field 定义单精度变量 Dim Sum As Single 定义单精度变量 Dim Rate As Single 快捷方式打开数据库 Set daoDatabase = CurrentDb() 打开记录集 Set daoRecordSet = daoDatabase.OpenRecordset(gz) 字段与字段变量建立连接 Set Wages = daoRecordSet.Fields(工资) 字段与字段变量建立连接 Set Title = daoRecordSet.Fields(职称) 求和变量清零 Sum = 0 当记录集中的记录未结束时 Do While Not daoRecordSet.EOF 使记录集可编辑 daoRecordSet.Edit 进入多项选择 Select Case Title 教授工资上调15% Case Is = 教授: Rate = 0.15 副教授工资上调10% Case Is = 副教授: Rate = 0.1 其他人工资上调5% Case Else: Rate = 0.05 End Select 累加调整的钱数 Sum = Sum + Wages * Rate 调整工资 Wages = Wages + Wages * Rate 更新到表中 daoRecordSet.Update 指针移到下一条记录 daoRecordSet.MoveNext 开始下一次循环 Loop daoRecordSet.Close daoDatabase.Close Set daoRecordSet = Nothing Set daoDatabase = Nothing 调整工资的总数额显示在文本框中 textSum = Sum 打开更新后的表 DoCmd.OpenTable gz End Sub 转到窗体视图→单击命令按钮，得到运行结果： 10.3 用ADO访问数据库(ActiveX Data Objects——Active数据对象) 10.3.1 ADO模型结构 ADO对象模型是一系列对象的集合，对象不分级，除Field对象和Error对象之外，其他对象可直接创建。使用时，通过对象变量调用对象的方法、设置对象的属性，实现对数据库的访问。 10.3.1 ADO对象简介(ActiveX Da