VB数据库技术

1.掌握数据库及数据库管理系统的概念2.掌握关系型数据库模型的关系（表），记录、字段、关键字、索引概念等。3.学会使用可视化数据管理器建立的数据库是Access数据库（类型名为.mdb）4.了解数据库控件的常用属性及与相关控件的绑定5.了解结构化查询语言SQL对数据库中的数据进行操作本章要求：第10章VisualBasic与数据库技术本章重点：数据库的建立与使用10.1数据库的基本概念一、数据库的概念数据库是以一定方式组织、存储及处理相互关联的数据的集合，它以一定的数据结构和一定的文件组织方式存储数据，并允许用户访问。这种集合具备下述特点：最少冗余；数据资源共享；数据独立性，即数据独立于使用它的应用程序；由统一的软件系统管理和控制数据的增加、删除、修改和检索。*二、数据库技术的产生与发展数据处理的中心问题是数据管理。数据管理是指对数据的组织、分类、编码、存储、检索和维护。随着计算机硬件和软件的发展，数据管理经历了人工管理、文件系统和数据库系统三个发展阶段。人工管理阶段（20世纪50年代中期以前）这一阶段计算机主要用于科学计算。硬件中的外存只有卡片、纸带、磁带，没有磁盘等直接存取设备。软件只有汇编语言，没有操作系统和管理数据的软件。数据处理的方式基本上是批处理。*人工管理阶段的特点如下：1.数据不保存因为当时计算机主要用于科学计算，对于数据保存的需求尚不迫切。2.系统没有专用的软件对数据进行管理每个应用程序都要包括数据的存储结构、存取 方法 快递客服问题件处理详细方法山木方法pdf计算方法pdf华与华方法下载八字理论方法下载 、输入方式等，程序员编写应用程序时，还要安排数据的物理存储，因此程序员负担很重。3.数据不共享数据是面向程序的，一组数据只能对应一个程序。多个应用程序涉及某些相同的数据时，也必须各自定义，因此程序之间有大量的冗余数据。*4.数据不具有独立性程序依赖于数据，如果数据的类型、格式、或输入输出方式等逻辑结构或物理结构发生变化，必须对应用程序做出相应的修改。　　在人工管理阶段，程序与数据之间的关系可用下图表示。应用程序1数据集1应用程序2数据集2数据集3应用程序3人工管理阶段*文件系统阶段（20世纪50年代后期至60年代中期）这一阶段，计算机不仅用于科学计算，还大量用于信息管理。大量的数据存储、检索和维护成为紧迫的需求。硬件有了磁盘、磁鼓等直接存储设备。在软件方面，出现了高级语言和操作系统。操作系统中有了专门管理数据的软件，一般称为文件系统。处理方式有批处理，也有联机处理。*文件管理数据的特点如下：1.数据以文件形式可长期保存下来用户可随时对文件进行查询、修改和增删等处理。2.文件系统可对数据的存取进行管理程序员只与文件名打交道，不必明确数据的物理存储，大大减轻了程序员的负担。3.文件形式多样化有顺序文件、倒排文件、索引文件等，因而对文件的记录可顺序访问，也可随机访问，更便于存储和查找数据。4.程序与数据间有一定独立性由专门的软件即文件系统进行数据管理，程序和数据间由软件提供的存取方法进行转换，数据存储发生变化不一定影响程序的运行。*在文件系统阶段，程序与数据之间的关系可用下图表示。文件n应用程序1应用程序2应用程序n文件1文件2文件系统……文件系统阶段*与人工管理阶段相比，文件系统阶段对数据的管理有了很大的进步，但一些根本性问题仍没有彻底解决，主要表现在以下三方面：1.数据冗余度大各数据文件之间没有有机的联系，一个文件基本上对应于一个应用程序，数据不能共享。2.数据独立性低数据和程序相互依赖，一旦改变数据的逻辑结构，必须修改相应的应用程序。而应用程序发生变化，如改用另一种程序设计语言来编写程序，也需修改数据结构。3.数据一致性差由于相同数据的重复存储、各自管理，在进行更新操作时，容易造成数据的不一致性。*数据库系统阶段（20世纪60年代末开始）60年代后期，计算机应用于管理的规模更加庞大，数据量急剧增加；硬件方面出现了大容量磁盘，使计算机联机存取大量数据成为可能；硬件价格下降，而软件价格上升，使开发和维护系统软件的成本增加。文件系统的数据管理方法已无法适应开发应用系统的的需要。为解决多用户、多个应用程序共享数据的需求，出现了统一管理数据的专门软件系统，即数据库管理系统。*数据库系统管理数据的特点如下：1.数据共享性高、冗余少这是数据库系统阶段的最大改进，数据不再面向某个应用程序而是面向整个系统，当前所有用户可同时存取库中的数据。这样便减少了不必要的数据冗余，节约存储空间，同时也避免了数据之间的不相容性与不一致性。2.数据结构化按照某种数据模型，将全组织的各种数据组织到一个结构化的数据库中，整个组织的数据不是一盘散沙，可表示出数据之间的有机关联。*例：要建立学生成绩管理系统，系统包含学生（学号、姓名、性别、系别、年龄）、课程（课程号、课程名）、成绩（学号、课程号、成绩）等数据，分别对应三个文件。若采用文件处理方式，因为文件系统只表示记录内部的联系，而不涉及不同文件记录之间的联系，要想查找某个学生的学号、姓名、所选课程的名称和成绩，必须编写一段不很简单的程序来实现。而采用数据库方式，数据库系统不仅描述数据本身，还描述数据之间的联系，上述查询可以非常容易地联机查到。*3.数据独立性高数据的独立性是指逻辑独立性和物理独立性。数据的逻辑独立性是指当数据的总体逻辑结构改变时，数据的局部逻辑结构不变，由于应用程序是依据数据的局部逻辑结构编写的，所以应用程序不必须修改，从而保证了数据与程序间的逻辑独立性。例如，在原有的记录类型之间增加新的联系，或在某些记录类型中增加新的数据项，均可确保数据的逻辑独立性。数据的物理独立性是指当数据的存储结构改变时，数据的逻辑结构不变，从而应用程序也不必改变。例如，改变存储设备和增加新的存储设备，或改变数据的存储组织方式，均可确保数据的物理独立性。*4.有统一的数据控制功能数据库为多个用户和应用程序所共享，对数据的存取往往是并发的，即多个用户可以同时存取数据库中的数据，甚至可以同时存取数据库中的同一个数据，为确保数据库数据的正确有效和数据库系统的有效运行，数据库管理系统提供下述四方面的数据控制功能。（1）数据的安全性（security）控制：防止不合法使用数据造成数据的泄露和破坏，保证数据的安全和机密；例如，系统提供口令检查或其他手段来验证用户身份，防止非法用户使用系统；也可以对数据的存取权限进行限制，只有通过检查后才能执行相应的操作。（2）数据的完整性(integrity)控制：系统通过设置一些完整性规则以确保数据的正确性、有效性和相容性。*正确性是指数据的合法性，如年龄属于数值型数据，只能含0,1,…9，不能含字母或特殊符号；有效性是指数据是否在其定义的有效范围，如月份只能用1~12之间的正整数表示；相容性是指表示同一事实的两个数据应相同，否则就不相容，如一个人不能有两个性别。（3）并发（concurrency）控制：多用户同时存取或修改数据库时，防止相互干扰而提供给用户不正确的数据，并使数据库受到破坏。*（4）数据恢复（recovery）：当数据库被破坏或数据不可靠时，系统有能力将数据库从错误状态恢复到最近某一时刻的正确状态。数据库系统阶段，程序与数据之间的关系可用图3.3表示。数据库系统阶段应用程序1应用程序2应用程序n数据库数据库管理系统*从文件系统管理发展到数据库系统管理是信息处理领域的一个重大变化。在文件系统阶段，人们关注的是系统功能的设计，因此程序设计处于主导地位，数据服从于程序设计；而在数据库系统阶段，数据的结构设计成为信息系统首先关心的问题。数据库技术经历了以上三个阶段的发展，已有了比较成熟的数据库技术，但随着计算机软硬件的发展，数据库技术仍需不断向前发展。10.1数据库的基本概念三、数据库分类数据库中数据的组织形式有多种，按数据库使用的数据结构模型划分，到目前为止，数据库可分为：层次数据库：采用层次模型；网状数据库：采用网状模型；关系数据库：采用关系模型；面向对象数据库：采用面向对象模型。*层次模型层次模型是数据库系统中最早出现的数据模型，采用层次模型的数据库的典型代表是IBM公司的IMS（InformationManagementSystem）数据库管理系统，现实世界中，许多实体之间的联系都表现出一种很自然的层次关系，如家族关系，行政机构等。层次模型用一棵“有向树”的数据结构来表示各类实体以及实体间的联系。ABCDEF*层次模型的优缺点层次模型的优点主要有：（1）比较简单，只需很少几条命令就能操纵数据库，比较容易使用。（2）结构清晰，结点间联系简单，只要知道每个结点的双亲结点，就可知道整个模型结构。现实世界中许多实体间的联系本来就呈现出一种很自然的层次关系，如表示行政层次，家族关系很方便。（3）它提供了良好的数据完整性支持。*层次模型的缺点主要有：（1）不能直接表示两个以上的实体型间的复杂的联系和实体型间的多对多联系，只能通过引入冗余数据或创建虚拟结点的方法来解决，易产生不一致性。（2）对数据的插入和删除的操作限制太多。（3）查询子女结点必须通过双亲结点。*网状模型现实世界中事物之间的联系更多的是非层次关系的，用层次模型表示这种关系很不直观，网状模型克服了这一弊病，可以清晰的表示这种非层次关系。网状模型取消了层次模型的限制，两个或两个以上的结点都可以有多个双亲结点，则此时有向树变成了有向图，该有向图描述了网状模型。学生课程*网状模型的优缺点网状模型的优点主要有：（1）能更为直接地描述客观世界，可表示实体间的多种复杂联系。（2）具有良好的性能和存储效率网状模型的缺点主要有（1）结构复杂，其DDL语言极其复杂。（2）数据独立性差，由于实体间的联系本质上是通过存取路径表示的，因此应用程序在访问数据时要指定存取路径。*关系模型关系模型是发展较晚的一种模型，1970年美国IBM公司的研究员E.F.Codd首次提出了数据库系统的关系模型。关系数据库已成为目前应用最广泛的数据库系统，如现在广泛使用的小型数据库系统Foxpro、Acess，大型数据库系统Oracle、Informix、Sybase、SQLServer等都是关系数据库系统。*关系模型的基本概念关系模型的数据结构是一个“二维表框架”组成的集合，每个二维表又可称为关系，所以关系模型是“关系框架”的集合。关系模型与层次模型、网状模型不同，它是建立在严格的数学概念之上的。TNO教师号TN姓名SEX性别AGE年龄PROF职称SAL工资COMM岗位津贴DEPT系别T1李力男47教授15003000计算机T2王平女28讲师8001200信息T3刘伟男30讲师9001200计算机T4张雪女51教授16003000自动化T5张兰女39副教授13002000信息1．关系（表）在关系数据库中，数据以关系的形式出现，可以把关系理解成一张二维表（Table）。2． 记录（行）每张二维表均由若干行和列构成，其中每一行称为一条记录（Record），3． 字段（列）二维表中的每一列称为一个字段（Field），每一列均有一个名字，称为字段名，各字段名互不相同。关系数据库的有关概念4． 主键关系数据库中的某个字段或某些字段的组合定义为主键（PrimaryKey）。每条记录的主键值都是唯一的，这就保证了可以通过主键唯一标识一条记录。5．索引为了提高数据库的访问效率，表中的记录应该按照一定顺序排列，通常建立一个较小的表——索引表，该表中只含有索引字段和记录号。通过索引表可以快速确定要访问记录的位置。10.2数据库管理器1建立数据库VB提供了两种方法建立数据库，分别是：可视化数据管理器数据访问对象（DAO）大型数据库（如Oracle、Sybase等）不能在VisualBasic6.0中创建，要创建这些类型的数据库，需要使用相应数据库管理系统提供的工具来完成。VB6.0提供了创建MicrosoftAccess数据库和其它一些数据库的工具——“可视化数据管理器”。在VisualBasic开发环境内单击“外接程序”菜单中的“可视化数据管理器”选项或在操作系统桌面上运行VisualBasic系统目录中的Visdata．exe，都可打开可视化数据管理器。10.2数据库管理器(Visdata)一、创建一个数据库(1)选择“可视化数据管理器”中“文件”菜单中的“新建”菜单项用于创建数据库，若选择“打开数据库”则用于打开一个已经建立好的数据库。(2)选择“MicrosoftAccess”菜单项，单击该菜单项下的“Version7.0MDB”菜单项，打开如图所示的“选择要创建的MicrosoftAccess数据库”对话框。(3)选择新建数据库要保存的目录后，在“文件名”文本框中输入数据库的名称student，也就是数据库的文件名称。(4)单击“确定”按钮关闭对话框，“可视化数据管理器”开始在指定的目录下创建以指定名称命名的MicrosoftAccess数据库，完成数据库创建工作，二、向数据库中添加数据表操作步骤为：（1）在“数据库窗口”中右击鼠标，系统弹出一快捷菜单，单击其中的“新建表”菜单项，系统将打开“表结构”对话框。（2）在“表名称”文本框中键入表名，这里键入名称xjb。（3）单击“添加字段”按钮，系统显示“添加字段”对话框，在这个对话框中定义表的字段。在“名称”文本框中输入字段名称，这里输入第一个字段“学号”的名称“st_No”；单击“类型”下拉列表框，从中选择字段类型“Integer”；“大小”文本框用于指定Text类型字段的宽度，该长度限制了输入到这个字段的文本字符的最大长度，选择Text之外的数据类型时，不需要指定宽度。单击“确定”按钮，这样我们就定义了xjb表的第一个字段。三、数据表中数据的编辑四、添加或删除索引五、使用查询生成器Recordset对象代表一组与数据库相关的逻辑记录集合。它所对应的数据来源可以是数据表，也可以是和SQL语言中查询语句（SELECT）有关的查询结果。Recordset对象有三种类型：Table类型：记录集为表集，可以显示、添加、删除和修改，具有较好的更新性能。Dynaset类型：记录集为动态集，可以显示、添加、删除和修改，并具有较大的操作灵活性。Snapshot类型：记录集为快照集，只能显示，具有较好的显示速度。RecordSet对象的属性和方法◆记录集Recordset的属性Recordset是一个数据结构，通常用来表示从数据库中提取的一个记录集。在VB中只能通过Recordset对象对数据库进行操作。（1）BOF和EOF属性用来测试记录指针是否已超出数据库的首记录或尾记录。BOF属性用来测试记录指针是否超出文件头；EOF属性用来测试记录指针是否超出文件尾。假设需要读出数据库中的全部记录，可以使用Recordset的EOF属性，程序如下：DoWhileData1.Recordset.Eof=False依次读出记录记录指针下移一个Loop（2）AbsolutePosition属性AbsolutePosition属性用于反映记录指针的当前位置。注意：AbsolutePosition属性所反映出来的记录指针的当前位置值比它的绝对位置的编号少1，假设当前位置十号记录由AbsolutePosition给出的值则是2。（3）Bookmark属性Bookmark属性用于返回或设置当前记录指针的书签，其数据类型为String。在程序中可以用Bookmark属性对记录指针重新定位。（4）RecordCount属性RecordCount属性用于测量数据库的总记录数。在多用户情况下，由于Recordset对象的不断变化，RecordCount测出的数据可能不准确。为了能得到准确的记录总数，在测量记录总数时需要先将记录指针移动到最后一个记录，语句如下：Data1.Recordset.MoveLast然后使用RecordCount属性，Data1.Recordset.RecordCount这样就能准确地得到当前记录集的记录总数了。（5）Nomatch属性Nomatch属性用于判断在使用Find方法和Seek方法做查询操作时是否查询到符合查询条件的记录，如果其返回值为True则表示没有符合条件的记录，反之则表示有相应记录被找到对记录的操作能够通过Recordset对象的方法实现。其常用方法有：1）AddNew方法加入一条新记录到记录集内存缓冲区。2)Edit方法允许对当前记录进行修改。3)Delete方法用于删除当前记录。4)Update方法把内存缓冲区的内容写进数据库文件，保存对数据库所作的改动。5)Close方法关闭记录集和数据库。该方法也能用在数据库对象上，将数据库关闭。RecordSet对象的方法5)Move方法使用Move方法可代替对数据库控件对象的4个箭头的操作遍历整个记录几种的记录。5种Move方法是：（1）MoveFirst方法移至第一条记录（2）MoveLast方法移至最后一条记录（3）MoveNext方法移至下一条记录（4）MovePrevious方法移至上一条记录（5）Move[n]方法向前或向后移动n条记录，n为指定的数值。（6）Find方法可在指定的Dynaset或Snapshot类型的Recordset对象中查找与指定条件相符的一个记录，并使之成为当前记录。4种Find方法是：FindFirst或FindLast方法.找到满足条件的第一个或最后一个记录。FindNext或FindPrevious方法找到满足条件的下一个或上一个记录。4种Find方法的语法格式相同：数据集合.Find方法条件数据绑定控件要使文本等控件与数据控件捆绑在一起，成为数据控件的绑定控件。并且能够受到数据库约束，必须在运行时对这些控件的两个属性进行设置：1）DataSource属性DataSource属性用来将一个有效的数据控件与一个数据库连接。2）DataFleld属性DataFleld属性设置数据库有效的字段与绑定控件建立联系。绑定控件、数据控件和数据库三者的关系SQL(结构化查询语言，StructureQueryLanguage)是操作数据库的工业 标准 excel标准偏差excel标准偏差函数exl标准差函数国标检验抽样标准表免费下载红头文件格式标准下载 语言，许多数据库和软件系统都支持SQL或提供SQL语言接口。这一节将向用户介绍SQL的常用语句。10.3SQL语言1．SQL命令SQL的功能实际上包括查询、操作、定义和控制四个方面。其中最常用的是查询功能，其次为数据定义功能。SQL基本命令动词SQL功能命令动词数据查询SELECT数据定义CREATE，DROP数据操作INSERT，UPDATE，DELETE数据控制GRANT，REVOKESQL语言的核心是查询语句，它的基本格式为：SELECT＜列名表名＞FROM<基本表名或视图名＞[WHERE＜条件表达式＞＝[GROUPBY＜列名l＞[HAVING内部函数表达式][ORDERBY＜列名2＞[ASC或DESC]SQL在VB中的应用1.使用SELECT语句查询无论是数据控件还是数据对象都可使用SELECT语句查询数据。例如用SQL语句显示数据库Biblio.mdb中出版日期为1996年全部记录。Data1.RecordSource="SELECT*FROMTitlesWHERE[YearPublished]=1996"用Data1.Refresh方法激活这些变化。选择表中所有字段指定表Title构成查询条件SELECT语句可以看作记录集的定义语句，它从一个或多个表中获取指定字段，生成一个较小的记录集。下面通过一组对前面建立的学生成绩数据库的查询操作来学习SELECT语句的基本用法。（1）选取表中部分列。例如查询学生成绩表中的英语和计算机成绩：SELECT英语，计算机FROMscore（2）选取表中所有列。例如查询学生成绩表中的所有信息：SELECT*FROMscore（3）WHERE子句。例如查询数学成绩不及格的学生信息：SELECT*FROMscoreWHERE数学<60（4）复合条件。例如查询数学和英语成绩均不及格的学生信息：SELECT*FROMscoreWHERE数学<60AND英语<60（5）ORDERBY子句。例如查询学生成绩表中的所有数学成绩及格的学生信息，并将查询结果按数学成绩降序排列（ASC表示升序，DESC表示降序）：SELECT*FROMscoreWHERE数学>=60ORDERBY数学DESC（6）统计信息。例如查询数学成绩不及格的人数、数学平均分、最高分：SELECTCOUNT（*）AS人数FROMscoreWHERE数学<60SELECTAVG（数学）AS平均分，MAX（数学）AS最高分FROMscore（7）GROUPBY子句。例如查询男生与女生的数学平均分：SELECT性别，AVG（数学）AS平均分FROMscoreGROUPBY性别（8）HAVING子句。例如查询数学成绩不及格的人数大于10人的班级和相应人数：SELECT班级，COUNT（*）AS人数FROMscoreWHERE数学<60GROUPBY班级HAVINGCOUNT（*）>10（9）多表查询。例如查询学生的学号、姓名和籍贯（假设有一个student表，其中包含了学生的学号、籍贯等信息）：SELECTscore.学号，score.姓名，score.数学，student.籍贯FROMscore，studentWHEREscore.学号=student.学号如前所述，数据控件的RecordSource属性除了可以设置成表名外，还可以设置为一条SQL语句，格式如下：数据控件名.RecordSource=“SQL语句”下面是某公司人力资源部的认识数据库管理系统的员工管理程序，其中实现了员工的增加、修改、删除、查询等功能。解析：首先建立如图所示的用户界面，并设置各个控件的属性，然后编写相应代码。应用举例DimmbookmarkAsVariant“第一个按”钮的事件代码PrivateSubCommand1_Click()IfNotData1.Recordset.BOFThenData1.Recordset.MovePreviousElseMsgBox"已到数据库头，无法再移动！",vbCritical,"数据库"Data1.Recordset.MoveFirstEndIfMe.RefreshEndSub“下一个”按钮的事件代码PrivateSubCommand2_Click()IfNotData1.Recordset.EOFThenData1.Recordset.MovenextElseMsgBox"已到数据库尾，无法再移动！",vbCritical,"数据库"Data1.Recordset.MovelastEndIfMe.RefreshEndSub“第一个”按钮的事件代码PrivateSubCommand3_Click()Data1.Recordset.MoveFirstMe.RefreshEndSub“末一个”按钮的事件代码PrivateSubCommand4_Click()Data1.Recordset.MovelastMe.RefreshEndSub“查找”按钮的事件代码PrivateSubCommand5_Click()DimmnoAsStringmno=InputBox$("请输入员工编号","查找")Data1.Recordset.FindFirst"员工编号='"&mno&"'"IfData1.Recordset.NoMatchThenMsgBox"无此编号",,"提示"EndSub“新增”按钮的事件代码PrivateSubCommand6_Click()Command7.Enabled=NotCommand7.EnabledCommand8.Enabled=NotCommand8.EnabledCommand9.Enabled=NotCommand9.EnabledIfCommand6.Caption="新增"ThenCommand6.Caption="确认"mbookmark=Data1.Recordset.BookmarkData1.Recordset.AddNewText1.SetFocusElseCommand6.Caption="新增"Data1.Recordset.UpdateData1.Recordset.MovelastEndIfEndSub“删除”按钮的事件代码PrivateSubCommand7_Click()DimsAsStringOnErrorGoToDelErrs=MsgBox("确定删除这组记录吗？",vbQuestion+vbOKCancel,"删除确定")Ifs=1ThenData1.Recordset.DeleteData1.Recordset.MovenextIfData1.Recordset.RecordCount>0ThenIfData1.Recordset.EOFThenData1.Recordset.MovelastEndIfEndIfEndIfExitSubDelErr:MsgBoxErr.DescriptionEndSub“修改”按钮的事件代码PrivateSubCommand8_Click()Command6.Enabled=NotCommand6.EnabledCommand7.Enabled=NotCommand7.EnabledCommand9.Enabled=NotCommand9.EnabledIfCommand8.Caption="修改"ThenCommand8.Caption="确认"mbookmark=Data1.Recordset.BookmarkData1.Recordset.EditText1.SetFocusElseCommand8.Caption="修改"Data1.Recordset.UpdateEndIfEndSub“放弃”按钮的事件代码PrivateSubCommand9_Click()Command6.Caption="新增"Command8.Caption="修改"Command6.Enabled=TrueCommand7.Enabled=TrueCommand8.Enabled=TrueCommand9.Enabled=FalseData1.UpdateControlsData1.Recordset.Bookmark=mbookmarkEndSub“退出”按钮的事件代码PrivateSubCommand11_Click()EndEndSub数据库控件的检查是否输入合法数据：PrivateSubData1_Validate(ActionAsInteger,SaveAsInteger)IfText1.Text=""And(Action=6OrText1.DataChanged)ThenMsgBox"数据不完整，必须要有编号！"Data1.UpdateControlsEndIfIfAction>=1AndAction<=4ThenCommand6.Caption="新增"Command8.Caption="修改"Command6.Enabled=TrueCommand7.Enabled=TrueCommand8.Enabled=TrueCommand9.Enabled=FalseEndIfEndSub