14章 数据库访问技术.pptVIP

第14章 数据库访问技术 §14．1 数据库概述 一、数据库的概念 二、关系型数据库 二、关系数据库 二、关系数据库 一、创建Access数据库和表 一、创建Access数据库和表 二、创建查询 二、创建查询 §14．4 ADO数据对象访问技术 一、ADO编程模型简介 二、使用ADO编程模型 四、使用数据环境设计器 五、创建数据报表 为显示当前记录位置，编写adodc1的MoveComplete事件代码 Private Sub adodc1_MoveComplete( ByVal adReason As ADODB.EventReasonEnum, ByVal pError As ADODB.Error, adStatus As ADODB.EventStatusEnum, ByVal pRecordset As ADODB.Recordset ) Adodc1.Caption = 记录： (Adodc1.Recordset.AbsolutePosition) End Sub 三、使用ADO对象 1. 向工程中添加数据环境 2. 创建连接对象 3. 创建命令对象 4. 使用数据环境 【例12-4】在例12-2的数据查看窗体中使用数据环境。 设计步骤如下： (1) 建立应用程序用户界面。 (2) 建立数据环境。 (3) 修改属性设置。 Private Sub Form_Load() Combo1.AddItem 全体 Combo1.AddItem 保卫 Combo1.AddItem 财务 Combo1.AddItem 技术 Combo1.AddItem 生产 Combo1.AddItem 供销 Combo1.Text = Combo1.List(0) End Sub 四、使用数据环境设计器 Private Sub command1_Click(Index As Integer) Select Case Index Case 0 DataEnvironment1.rsCommand1.MoveFirst Case 1 DataEnvironment1.rsCommand1.MovePrevious If DataEnvironment1.rsCommand1.BOF() Then DataEnvironment1.rsCommand1.MoveFirst End If Case 2 DataEnvironment1.rsCommand1.MoveNext If DataEnvironment1.rsCommand1.EOF() Then DataEnvironment1.rsCommand1.MoveLast End If 四、使用数据环境设计器 Case 3 DataEnvironment1.rsCommand1.MoveLast End Select End Sub 修改组合框的事件代码： Private Sub Combo1_Click() t = Combo1.Text If t = 全体 Then DataEnvironment1.rsCommand1.Filter = Else DataEnvironment1.rsCommand1.Filter=部门 = t End If End Sub 四、使用数据环境设计器 1. 设计数据环境 2. 添加DataReport 在属性窗口中设置DataReport1对象的属性： DataSource属性改为：DataEnvironment1 DataMember属性改为：Command1_分组 3. 设计报表中界面 4. 编写代码 编写DataReport1的Initialize事件代码： Private Sub DataReport_Initialize() DataReport1.Title = 大江电机厂 Month(Date) 月份工资报表 End Sub 5. 运行报表 五、数据窗体设计器 1．新建一个标准EXE工程 五、数据窗体设计器 2．打开数据窗体设计器 ①打开“可视化数据管理器” ②打开要浏览的数据库 ③从“实用程序” 菜单中选择“数据窗体设计器” 五、数据窗体设计器 3．设计窗体 ①输入窗体名称，如：St