《Visual Basic 6.0程序设计教程（第二版） 曾强聪 第10章 数据库应用》由会员分享，可在线阅读，更多相关《Visual Basic 6.0程序设计教程（第二版） 曾强聪 第10章 数据库应用（58页珍藏版）》请在金锄头文库上搜索。
1、第10章 数据库应用,10.1 数据库概述 10.2 使用控件访问数据库 10.3 通过ADO对象访问数据 10.4 数据报表设计器,图10-1 数据库应用系统,10.1 数据库概述,10.1.1 Access关系型数据库 10.1.2 SQL语言,返回首页,1创建数据库（如图10-3所示） 2二维关系表（如图10-4、10-5所示） 3字段（Field）与记录（Record）（如图10-6所示） 4. 主键（图表10-6所示） 5索引 6关联（图10-7所示 ） 7数据完整性（如图10-8所示）,10.1.1 Access关系型数据库,图10-2 Microsoft Access 2000主
2、界面,图10-3 “文件新建”对话框,图10-4 二维关系表,图10-5 数据库窗口,图10-6 “数据表”设计窗口,表10-1 字段数据类型的种类、用法及存储空间,图10-7 “数据表关系”对话框,图10-8 “参照完整性”设置窗口,返回本节,10.1.2 SQL语言,1SELECT 语句,表10-2 SELECT语句中参数说明,2INSERT INTO 语句（如表10-3所示 ） 作用是：插入一条或多条记录到一个指定表中。 （1）多重记录追加查询 （2）单一记录追加查询,表10-3 INSERT INTO 语句中参数说明,3UPDATE 语句 UPDATE 语句的作用是更新指定数据表中的字
3、段值。语法格式是： UPDATE table SET newvalue WHERE expression; UPDATE 语句中参数说明如表10-4所示。,表10-4 UPDATE 语句中参数说明,4DELETE 语句 DELETE 语句的作用是删除 FROM 所指数据表内符合 WHERE 子句中条件的记录。语法格式是： DELETE FROM table WHERE expression DELETE 语句中参数说明如表10-5所示。,表10-5 DELETE 语句中参数说明,5合计函数 合计函数可以用来计算各种统计值，常用的合计函数有：Sum、Count、Avg、Max和Min。 （1）A
4、vg 函数。计算包含在特定查询字段中的一组数值的算术平均值。语法如下： Avg(expr) （2）Sum 函数。返回包含在指定查询字段中一组值的总计。语法如下： Sum(expr),（3）Min 和 Max 函数。在查询时从一组指定字段的值中返回最小或最大值。语法如下： Min(expr) Max(expr) （4）Count 函数。计算从查询返回的记录数。语法如下： Count(expr),返回本节,10.2 使用控件访问数据库,10.2.1 Data控件 10.2.2 ADO Data控件 10.2.3 数据绑定控件,返回首页,10.2.1 Data控件,1Data控件的属性 Record
5、setType属性：确定Recordset（记录集）对象的类型。可以选择的类型是表、动态集、快照。 Exclusive属性：确定是否按照独享方式打开数据库，在需要多用户访问时需要设置该属性值为False。 Options属性：用来决定记录集的特征。 BOFAction、EOFAction属性：这两个属性决定当这个控件的游标位于记录集的开始位置或末尾位置时的行为。,2Data控件上的对象 Data控件是通过数据对象而实现对数据访问的，与其相关的数据对象有Database对象和Recordset对象。 （1）Database对象。Database对象是物理数据库的逻辑标识。 （2）Recordse
6、t对象。Recordset对象代表一组与数据库相关的记录集合。Recordset对象有3种类型：Table类型：记录集为表集；Dynaset类型：记录集为动态集；napshot类型：记录集为快照集。,3对记录的操作 对记录的操作可以通过Recordset对象的方法实现。 AddNew方法：加入一条新记录到记录集内存缓冲区。 Edit方法：允许对当前记录进行修改。 Delete方法：用于删除当前记录。 Update方法：通过把内存缓冲区中的内容写进数据库，而保存对数据库所做的改动。该方法一般用在AddNew方法、Edit方法之后。 d Close方法：关闭记录集。,当需要在记录集上移动指针而改变
7、当前记录时，能够采用的方法有： Move方法：使记录指针指向某条记录。 MoveFirst方法：使记录指针上移到第一条记录。 MoveLast方法：使记录指针下移到最后一条记录。 MoveNext方法：使记录指针下移一条记录。 MovePrevious方法：使记录指针上移一条记录。,4Data控件上的事件 当Data控件上有数据变化时，将会触发它的事件。其中，最常用的有：Error、Reposition和Validate事件。 （1）Reposition事件。当Data控件上的记录指针发生移动并得到一个新的当前记录时，将会触发它的Reposition事件。 （2）Validate事件。Vali
8、date事件也发生在记录指针发生移动时，它发生在新记录成为当前记录之前。,返回本节,10.2.2 ADO Data控件,ADO Data 控件通过属性实现了对数据源的连接。当创建连接时，可以使用的方法有下列3种： 设置连接字符串。 建立OLE DB 文件（.MDL）。 连接到某个ODBC 数据源（DSN）。,表10-6 ADO Data 控件常用事件,返回本节,10.2.3 数据绑定控件,表10-7 控件属性设置,返回本节,10.3 通过ADO对象访问数据,10.3.1 ADO对象模型 10.3.2 ADO对象的编程方法 10.3.3 基于ADO的数据环境设计器,返回首页,10.3.1 ADO
9、对象模型,图10-10 ADO对象模型,表10-8 ADO 对象、集合说明,1Connection对象 Connection 对象代表与数据源进行的对话连接。 2Error对象 使用Errors集合检查数据源返回的错误。 3Command对象 Command 对象被用于定义将要对数据源执行的命令。,4Parameter对象与Parameters 集合 Command 对象具有由 Parameter 对象组成的 Parameters 集合。 5Recordset对象 Recordset 对象表示来自基本数据表或命令执行结果的记录集。 6Field对象与Fields 集合 Recordset 对象
10、含有由 Field 对象组成的 Fields 集合。,返回本节,10.3.2 ADO对象的编程方法,ADO对象的编程方法体现为：在通过ADO对象访问、编辑和更新数据源时，其一系列的动作必须按照一定的顺序进行，往往需要进行以下活动： 连接数据源（Connection），可选择开始事务。 可选择创建表示 SQL 命令的对象（Command）。 可选择指定列、表以及 SQL 命令中的值作为变量参数（Parameter）。 执行命令（Command、Connection 或 Recordset）。,如果命令结果以记录集返回，记录集将存储在存储对象中（Recordset）。 可选择创建存储对象的视图以便
11、进行排序、筛选和定位数据（Recordset）。 编辑数据。可以添加、删除或更改行、列（Recordset）。 在批更新方式下，可以使用存储对象中的变更对数据源进行更新（Recordset）。 在使用事务之后，可以接受或拒绝在事务中所做的更改。,返回本节,10.3.3 基于ADO的数据环境设计器,图10-13 数据环境设计器,1创建Connection 对象,图10-14 “数据链接属性”对话框,2创建Command 对象,图10-15 “Command对象”属性对话框,3Recordset对象 在数据环境中不能单独创建Recordset对象，但可以通过Command 对象而附带创建。如果Co
12、mmand 对象被标记为返回记录集（在“命令对象属性”对话框的“高级”选项卡中可以设置），那么在创建该Command 对象的时候，也一同创建了一个 Recordset 对象。,4Command层次结构,图10-16 Command 层次结构,5为 Connection 和 Recordset 对象编写代码,表10-9 ADO Connection对象的事件说明,表10-10 ADO Recordset对象的事件说明,6Command 对象中的字段映射,表10-11 字段映射控件级别顺序,返回本节,10.4 数据报表设计器,10.4.1 报表设计器中的对象结构 10.4.2 数据报表设计举例,返
13、回首页,10.4.1 报表设计器中的对象结构,1数据报表设计器中的对象 DataReport 对象：该对象如同 Visual Basic 的窗体，它同时具有一个可视的设计环境和一个代码模块。 Section 对象：数据报表设计器由几个区域组成，其中的每一个区域通过 Sections 集合中的一个 Section 对象表示。 Data Report 控件：专门用在数据报表设计器上的特殊控件（如图10-19所示）。,图10-19 数据报表控件,2数据报表设计器中的区域 报表标头：用于产生一份报表开始处的文本。 页标头：用于产生报表每一页顶部出现的信息。 分组标头/注脚：用于产生数据报表中一个以组为
14、单位的“重复”数据区域的顶部标头或底部注脚信息。 页注脚：用于产生每一页底部出现的信息。 报表注脚：用于产生数据报表结束处出现的文本。,3数据报表设计器中的控件 RptTextBox控件：可绑定到数据字段。 RptLabel控件：可用做报表标题或表头，但不能绑定到数据字段。 RptImage控件：使用户能在报表上放置图形，但不能绑定到数据字段。 RptLine控件：使用户能在报表上绘制表线。 RptShape控件：使用户能在报表上放置矩形、三角形、圆形（椭圆型）。 RptFunction控件：一种特殊的文本框，生成报表时可以用于计算数值，常用于报表汇总。,4数据报表设计器的数据来源 可以将数据
15、报表设计器与数据环境对象进行数据绑定。这时需要设置数据报表设计器的 DataSource属性为某个数据环境对象（如DataEnvironment1），并设置数据报表设计器的DataMember属性为数据环境对象中的某个命令对象（如Command1）。 当需要在程序中进行动态数据绑定时，则可以通过对数据报表设计器的DataSource属性进行对象赋值而获得所需要的记录集合。,5数据报表设计器具有的特性： 对数据的拖放功能 Toolbox控件 打印预览 打印报表 文件导出 异步操作,返回本节,10.4.2 数据报表设计举例,1建立数据报表模块,图10-20 数据报表设计器,表10-12 数据报表窗
16、控件属性设置,2在数据报表模块中建立源程序 源程序如下： Option Explicit Private Sub DataReport_Initialize() Dim conn As New ADODB.Connection Dim rs As New ADODB.Recordset Dim strSQL As String strSQL = “SELECT 姓名, 项目, 金额, 日期 from 收入账册 ORDER BY 姓名“ conn.Open “Provider=Microsoft.Jet.OLEDB.4.0;“ _, Persist Security Info=False“ rs.CursorLocation = adUseClient rs.Open strSQL, conn, adOpenStatic, adLockReadOnly Set DataSource = rs End Sub,3启动数据报表 在工程中将DataReport1设置为
