VB6教程第10章VB数据库开发

浙江蜗牛网络-VB论坛：第10章VB数据库开发在各行各业的信息处理中，数据库技术得到了普遍应用。数据库技术所研究的问题是如何科学地组织和存储数据，如何高效地获取和处理数据。VB在数据库方面提供了强大的功能和丰富的工具。利用VB提供的数据库管理功能，可以很容易地进行数据库应用程序的开发。本章介绍数据库的基本知识和有关操作，主要内容有：数据库的基础知识，数据库的创建及基本操作，数据库的访问方法。退出浙江蜗牛网络-VB论坛：数据库基础知识10.2创建数据库10.3结构化查询语言SQL10.4访问数据库10.5ADO控件浙江蜗牛网络-VB论坛：数据库基础知识10.1.1数据与数据库10.1.2关系型数据库关系数据库是应用最多的一种数据库，数据库中保存的是如表11-1所示的那样有一定格式的数据表。浙江蜗牛网络-VB论坛：浙江蜗牛网络-VB论坛：．数据表数据表是一组相关联的数据按行和列排列形成的二维表格，简称为表。2．字段、记录数据表一般都是多行和多列构成的集合。每一列称为一个字段（Field）。3．关键字如果数据表中某个字段值能唯一地确定一个记录，则称该字段名为候选关键字。浙江蜗牛网络-VB论坛：．索引索引是为了加快访问数据库的速度并提高访问效率，特别赋予数据表中的某一个字段的性质，使得数据表中的记录按照该字段的某种方式排序。5．关系型数据库的分类在VB中，关系型数据库一般可以分为两类：一类是本地数据库，如Access、FoxPro等；另一类就是客户/服务器数据库。浙江蜗牛网络-VB论坛：创建数据库为了开发数据库应用程序，首先要创建一个数据库。本节主要介绍利用VB提供的非常实用的工具程序—可视化数据管理器（VisualDataManager）创建数据库的方法。10.2.1创建一个数据库在此以MicrosoftAccess数据库为例，因为这种数据库是VB内联的。我们不妨以表11-1为例，假设该表为档案管理数据库（数据库文件名为dagl.mdb）中的一个表。接下来详细说明其创建过程。浙江蜗牛网络-VB论坛：．启动数据管理器2．创建数据库3．打开数据库浙江蜗牛网络-VB论坛：创建数据表建立好数据库之后，就可以向数据库中添加数据表了。Access数据库使用大型数据库的数据组织方法，数据库中包含多个数据表，数据保存在数据表中。每个数据表不是以文件的形式保存在磁盘上，而是包含在数据库文件中。通常，将一个管理系统软件所涉及到的数据表都放在一个数据库中。在数据库中不仅仅存放数据，而且还包含数据表之间的关系、视图、数据准则和存储过程等等。下面以表11-1内容为例介绍建立和添加Access数据表的方法。浙江蜗牛网络-VB论坛：．建立数据表结构在创建数据表之前，必须了解实际情况中需要哪些数据，用来确定表的字段、字段类型、长度、取值范围等。“学生成绩表”的结构如表11-2所示。浙江蜗牛网络-VB论坛：浙江蜗牛网络-VB论坛：．修改数据表结构建立表结构后，可以根据需要修改表结构。如添加字段、删除原有字段、修改表名等等。3．输入数据完成了表结构的建立后，就可以向表中输入数据。方法如下：浙江蜗牛网络-VB论坛：查询查询操作是数据库中的一个重要功能，在此我们以“查询生成器”的使用为例进行讲解。1．创建查询2．修改查询浙江蜗牛网络-VB论坛：结构化查询语言SQLSQL（StructureQueryLanguage结构化查询语言）是一种用于数据查询的编程语言。它已成为关系数据库语言的国际标准。对于VB中的关系数据库，一旦数据存入数据库以后，就可以用SQL同数据库“对话”。通常，都是由用户用SQL来“发问”，数据库则以符合发问条件的记录来“回答”。查询的语法中通常包含表名、字段名及一些条件。SQL语句以关键字开头，后跟完整描述一个操作的短语。例如，下面的语句可以从学生成绩表中查询到所有文秘专业学生的记录：Select*From学生成绩where专业='文秘'浙江蜗牛网络-VB论坛：表10-3列出了常用的SQL语句的关键字。表10-3常用SQL语句关键字浙江蜗牛网络-VB论坛：．Select语句（1）语句功能Select语句用来创建一个选择查询，用于从已有的数据库中检索记录。（2）使用格式Select字段名表From数据表名[Where筛选条件]例如：从学生成绩数据表中检索出张三同学的记录。Select学号，姓名，专业，高数From学生成绩Where姓名='张三'浙江蜗牛网络-VB论坛：．SelectInto语句（1）语句功能SelectInto语句用来为表做备份或将表输出到其它数据库中。新表的结构与原表相同与否，取决于字段个数和顺序的选择。（2）使用格式Select字段名表Into新表名From源表名“字段名表”说明内容同Select语句。例如：创建与“学生成绩”表一样的表，表名为“学生成绩2”。Select*Into学生成绩2From学生成绩浙江蜗牛网络-VB论坛：．Update（1）语句功能Update语句用来创建一个更新查询，按照指定条件修改表中的字段值。（2）使用格式：Update数据表名Set字段1=表达式[，字段2=表达式，…]Where筛选条件说明：表达式的数据类型应该与字段数据类型一致。例如：更新“学生成绩”表中学号为“994206”的记录，其专业改为“文秘”。Update学生成绩Set专业='文秘'Where学号='994206'浙江蜗牛网络-VB论坛：．Delete语句（1）语句功能Delete语句可以创建一个删除查询，用来按照指定条件删除表中的纪录。（2）使用格式：DeleteFrom数据表名Where筛选条件例如：从数据表中删除王五的记录。DeleteFrom学生成绩Where姓名='王五'浙江蜗牛网络-VB论坛：．Insert语句（1）语句功能Insert语句可以建立一个添加查询，向数据表中添加一个或多个记录。有两种基本格式。（2）格式一InsertInto目标表名Select字段1[，字段2…]From源表名例如：将专业为“经管”的所有学生记录加入到经管数据表中（表名为“经管专业”）。InsertInto经管专业Select*From学生成绩Where专业='经管'浙江蜗牛网络-VB论坛：（3）格式二InsertInto目标表名（字段1[，字段2…]）Values（值1[，值2…]）说明：值1、值2等表达式的顺序位置与字段1、字段2的顺序对应一致。用此命令可插入一个记录，并对字段赋值。例如：向数据表中加入一条新的记录。InsertInto学生成绩（学号，姓名，专业，高数，计算机，英语）Values（'992308'，'王政'，'交通'，85，75，90）浙江蜗牛网络-VB论坛：访问数据库11.4.1数据访问接口ADO是Microsoft公司在VB6.0中最新推出的数据访问策略，实际是一种访问各种数据类型的访问机制。本章主要介绍关于ADO数据访问的方法。11.4.2ADO对象模型数据访问1．ADO对象模型简介ADO数据对象模型包括如表11-4所示的可编程对象。浙江蜗牛网络-VB论坛：浙江蜗牛网络-VB论坛：（1）连接（Connection）对象（2）命令（Command）对象（3）记录集（Recordset）对象2．使用ADO对象访问数据库若要在VB中使用ADO对象，必须在工程中添加对ADO对象的引用。要添加对ADO对象的引用，可单击“工程”菜单上“引用”命令，打开“引用”对话框，如图11-14所示，在“可用的引用”列表中，选择想引用的ADO对象库。浙江蜗牛网络-VB论坛：在应用程序中添加了对ADO对象库的引用后，须先声明一个Connection对象变量，再生成一个Connection对象的实例，例如：Dimans1ASADODB.Connection'声明ans1是一个Connection变量Setans1=NewADODB.Connection'生成一个实例或者两步合二为一：Dimans1ASNewADODB.Connection使用ADO编程一般要按照以下几个步骤。（1）创建连接浙江蜗牛网络-VB论坛：浙江蜗牛网络-VB论坛：（2）创建命令（3）运行命令返回记录集（4）操作记录集【综合举例】根据上述编程步骤，设计一个简单程序，对11-2节所创建的数据库（F：\数据库\dagl.mdb）进行查询，输出计算机成绩在75分以上的同学的姓名、专业。浙江蜗牛网络-VB论坛：程序代码如下：PrivateSubCommand1_Click（）Dimi%Dimans1AsADODB.ConnectionDimcmdAsNewADODB.CommandDimrst1AsNewADODB.RecordsetSetans1=NewADODB.Connectionans1.CursorLocation=adUseClientans1.OpenPROVIDER=Microsoft.Jet.OLEDB.3.51；_浙江蜗牛网络-VB论坛：=F：\数据库\dagl.mdb；Setcmd.ActiveConnection=ans1cmd.CommandText=Select*From学生成绩rst1.CursorLocation=adUseClientrst1.Opencmd，，adOpenStatic，adLockBatchOptimisticrst1.Sort=学号rst1.Filter=计算机75rst1.MoveFirst浙江蜗牛网络-VB论坛：=0Torst1.RecordCount-1Printrst1.Fields（姓名）&““&rst1.Fields（专业）rst1.MoveNextNextiSetrst1=NothingSetcmd=NothingSetans1=NothingEndSub如图11-15所示为程序运行结果。浙江蜗牛网络-VB论坛：