1、第9章 Visual Basic 数据库程序设计,9.1 数据访问 9.2 利用VisData建立数据库 9.3 利用Data控件访问数据库 9.4 SQL简介,9.1 数据访问 9.1.1 数据库概述 9.1.2 Visual Basic的数据库应用,9.1.1 数据库概述数据库按其结构可分为层次数据库、网状数据库和关系数据库。其中关系数据库是应用最多的一种数据库。VB默认的数据库是Access数据库，可以在VB中直接创建，库文件的扩展名为.MDB。除此之外，VB还可以处理各种外部数据库，例如FoxPro、Dbase、Excel、Paradox等格式的数据库，甚至其他非关系数据库。无论各种数
2、据库内部格式怎样不同，VB都会自动将其转变为关系结构的数据库。 关系结构的数据库的数据主要以数据表的形式存放。数据表是一组相关联的数据按行和列排列的二维表格，简称为表（Table）。每个数据表均有一个表名，例如学生表。,学 生 表,如果数据表中某个字段值能唯一地确定一个记录，用以区分不同的记录，则称该字段名为候选键字。一个表中可以存在多个候选关键字，选定其中一个关键字作为主关键字。如上表中的“学号”是唯一的，可选择位主关键字，“姓名”和“年龄”存在相同情况，则不可以作为主关键字。,9.1.2 Visual Basic 的数据库应用Visual Basic中关于数据库的程序设计包括三部分内容：数
3、据库主体、数据库引擎和用户界面，数据库引擎存在于程序和物理数据库文件之间，它以一种通用接口的形式，使各种数据库在用户眼前呈现的形式是统一的，即不管这个数据库是本地的Visual Basic数据库，还是所支持的其他任何数据库格式，所使用的数据访问对象和编程技术都是相同的。如下图所示,程序界面,数据库引擎,数据库主体,9.2 利用VisData建立数据库 9.2.1 启动可视化数据管理器VisData 9.2.2 使用VisData建立数据库 9.2.3 输入和编辑数据 9.2.4 建立查询,9.2.1启动可视化数据管理器VisData启动数据库管理器有两种方法：（1）在VB集成环境中启动数据管理
4、器：单击“外接程序”菜单下的“可视化数据管理器”命令，即可打开可视化管理器“VisData”窗口，如图9-3所示。（2）直接执行“VisData”程序：可不进入VB环境，直接运行VB安装目录下的VisData.exe程序文件来启动可视化数据管理器。“数据管理器”窗口由菜单栏、工具栏、子窗口区和状态栏组成，启动完成时子窗口为空,图9-3 可视化数据管理器窗口,9.2.2使用VisData建立数据库使用可视化数据管理器建立VB默认数据库Access数据库，下面以前面学生表所建的数据库为例介绍添加和建立Access数据表的方法1.建立数据表1）选择“文件”菜单中的“新建”项，将出现如图9-4所示的选
5、择。,图9-4 “文件”菜单中的“新建”子菜单,在“新建”子菜单中，可以选择新创建的数据库的类型表9-1 在“新建”菜单中创建新的数据库类型,2）选择“Microsoft Access”子菜单中的“Version 7.0 MDB”，打开创建数据库对话框如图9-5所示。在该对话框中选择保存数据库德路径和库文件名，如输入数据库文件名为“db1”。,图9-5 创建数据库对话框,3）单击“保存”按钮后，在VisData多文档窗口将出现“数据库窗口”和“SQL语句”两个子窗口。在“数据库窗口”中单击“+”号，将列出新建数据库的常用属性,图9-6 “数据库窗口”和“SQL语句”窗口,4）利用该对话框可以创
6、建、查看和修改表结构。,图9-7 “表结构”对话框,图9-8 “添加字段”对话框,5）在“表结构”对话框中，“表名称”必须输入，例如学生表，然后单击“添加字段”按钮，出现如图9-8所示的“添加字段”对话框,9-11“添加索引”对话框,6）单击“表结构”对话框中的“添加索引”按钮，打开“添加索引”对话框，如图9-11所示。,图9-9 生成的表结构,7）在“表结构”对话框中，单击“生成表”按钮生成表，关闭“表结钩”对话框，在数据库窗口中可以看见生成的数据表结构。如图9-9,2.修改数据表结构在可视化数据管理器中，可以修改数据库中已经建立的数据库的表结构。操作如下：1）打开要修改的数据表的数据库。在
7、数据库窗口中用鼠标右键单击欲修改结构的数据表表名，出现快捷菜单，如图9-10所示。2）在快捷菜单中选择“设计”，将打开“表结构”对话框。在该对话框中可以做的修改工作包括：修改表名称、修改字段名、添加与删除字段、修改索引、添加与删除索引、修改验证和默认值等。单击“打印结构”可打印表结构，单击“关闭”按钮完成修改。,图9-10 弹出的快捷菜单,9.2.3输入和编辑数据上面建的“学生表”只是一个空的结构，还需向表中添加记录。,图9-12 添加记录对话框,按“添加”按钮开始添加数据，按照图9-1所示的数据表，将第一个人的数据分别输入到每个字段对应得文本框中。然后单击“更新”按钮，返回数据表记录处理窗口
8、，一条记录添加完毕。重复上述操作，将全部记录添加完。,图9-13 编辑记录对话框,9.2.4 建立查询“查询生成器”能够帮助用户生成SQL查询语句。利用“查询生成器”，用户不需有更多的专业知识，只需使用鼠标做简单的选择就能生成SQL查询语句。关于SQL语句用户可以参考9.6节SQL语句简介。生成的查询将作为数据库的一部分保存。使用查询生成器（如图9-14）建立一个查询的步骤：,图9-14 “查询生成器”对话框,图9-15 确定对话框,图9-16 SQL查询结果窗口,图9-17 保存查询对话框,9.3 利用Data控件访问数据库 9.3.1 常用的属性 9.3.2 常用方法 9.3.3 常用事件
9、,使用Visual Basic 6.0除了可以通过可视化管理器访问数据库外，还可以利用Visual Basic 6.0自身提供的Data控件访问数据库，使用数据控件访问数据库可以不用编写更多的代码，就能对数据库进行大部分访问操作。Data控件是属于内部控件，下面将Data控件常用的属性、方法和事件向读者一一做以介绍。,图9-19 数据控件在窗体中的样式从图9-19中可以看出，数据控件包含四个箭头命令按钮和一个显示框，四个箭头按钮从左至右所表示的意思分别为：移到数据库的第一个记录、上一个记录、下一个记录和最后一个记录。当单击这四个命令按钮时，不需要任何的编程，记录指针即会自动地移动。,通过图9-
10、1所示的数据库表结构的例子来熟悉一下这个控件的特性 ，在窗体上放置一个Data控件，然后按照下面的步骤操作： 选择Data空间为当前工作的对象，在Visual Basic 6.0的属性窗口找到DatabaseName属性，激发该属性的对话框。 从弹出的对话框中选择我们在前面已建立的数据库db1.mdb。 找到“Record Source”属性，打开其下拉菜单，选择“学生表”项。 将四个文本框放置在窗体上。 选择一个文本框，将其DataSource属性设置为“Data1”。 将该文本框的DataField属性设置为“学号”，可通过该属性的下拉列表中选择要显示的字段名称。 将剩下四个文本框的Dat
11、aSource属性设置为“Data1”然后将它们的DataField属性分别设置为“姓名”、“年龄”、“性别”和“所在系”。 放置四个标记控件在窗体上，按照图9-18设置它们的“Caption”属性。,图9-20 “Data控件”使用示例,现在运行这个程序，可以用四个箭头方便地移动数据库中的各个记录。这就是数据控件使用的一个最简单的例子。,9.3.1 常用的属性数据控件有很多特殊的属性，下面介绍几种常用的属性。 1.Connect 属性 该属性用于设置或者返回Visual Basic数据的格式，可以是下面几种： Access: Microsoft Access格式 dBASE: dBASE格式
12、 dBASE: dBASE格式 Excel : Excel格式 FoxPro 2.0 : FoxPro 2.0 格式 FoxPro 2.5 ：FoxPro 2.5格式 FoxPro 3.0 ： FoxPro 3.0格式 Lotus WK1 ：Lotus WK1格式 Paradox 3.x ：Paradox 3.x格式 Paradox 4.x ：Paradox 4.x格式 Text : Text正文格式 例如，要访问Access数据库，Connect属性的定义如下 Data1.connect=”Access”,2.DatabaseName属性 该属性用于设置数据控件的数据源，即控件要打开哪个数据
13、库文件，要求给出被访问数据库的名称及文件路径。例如，要访问“C:program filesdb1.mdb”，该属性的定义如下： Data1. DatabaseName=“C:program filesdb1.mdb” 3.RecordSource属性 该属性用于设置数据控件从何处获取数据，即要打开的数据库文件中数据表的名称。例如，要打开db1.mdb中的学生表，则该属性的定义如下：Data1. RecordSource=“学生表” 4.ReadOnly属性 该属性设定数据控件是否能被编辑，它有两个设置值：“True”：数据控件使用的数据库对象以只读的方式打开； “False”：数据控件使用的数
14、据库对象以读/写方式打开，即对于数据库中的数据可读可写，此为系统的缺省值,9.3.2 常用方法 1.Move系列方法对“Data控件”来说，最简单的方法应该是Move方法，对应于控件上4个箭头按钮的操作分别是：MoveFirst：将控件定位到第一个记录上；MoveLast：将控件定位到最后一个记录上；MovePrevious：将控件定位到前一个记录上；MoveNext：将控件定位到下一个记录上。用这些方法可以实现记录之间的移动，下面的语句将移动到最后一个记录上：Private Sub Command1_Click()Data1.Recordset.MoveLastEnd Sub,2、Find方
15、法除了移动方法之外，“Data 控件”还提供了另外四种方法，用于查找记录集合的对象。 FindFirst：查找第一个符合指定条件的记录； FindLast：查找最后一个符合指定条件的记录； FindNext：查找下一个符合指定条件的记录； FindPrevious：查找上一个符合指定条件的记录。,3、AddNew方法、Update方法、Delete方法对数据库记录的操作，主要是数据的添加、更改和删除等。要在数据库中添加新的记录，首先可以使用AddNew方法创建一条新的空记录，这是该空白记录已经成为当前的记录，然后再个该新记录中的各个字段赋值，最后使用Update方法保存新的记录，这时记录的指针
16、恢复为原来的值。,9.3.3 常用事件 1、Reposition事件 当数据库表格中的一条记录成为当前记录时，就会产生该事件，它的语法为：Private Sub Data1_Reposition() 当加载一个“Data 控件”时，Recordset对象中的第一条记录成为当前记录，会发生Reposition事件。无论何时，只要用户单击“Data 控件”上四个按钮中的任何一个进行记录的移动，或者使用了某个Move方法、Find方法或任何其他改变当前记录的属性或方法，在每条记录成为当前记录以后，均会发生Reposition事件。 2、Validate事件 与Reposition事件相对应，Vali
17、date事件在当记录指针移到另一条记录，即当前记录发生改变时产生。在发成Update方法、使用Delete、Unload或Close操作之前都会产生该事件。其语法为： Private Sub Data1_Validate(Action As Integer, Save As Integer),9.4 SQL简介 9.4.1 SQL概述 9.4.2 SQL的构成 9.4.3 SQL在Visual Basic中的应用,9.4.1 SQL概述 SQL语言的主要特点 综合统一 操作一体化：查询、操作、定义、控制 高度非过程化 用户“干什么” RDBMS“怎么干” 隐蔽数据的存取路径 面向集合的操作方式 操作对象是一个或多个关系 操作结果也是一个新关系 以同一种语法结构提供两种使用方式 自含型：DBMS中独立使用，针对DB的所有用户 宿主型：嵌入到宿主语言中使用，针对应用程序员 两种类型的语法结构基本一致 语言简洁，易学易用 类似于英语的自然语言 操作谓词少,9.4.2 SQL在Visual Basic中的应用 在Visual Basic程序设计中，SQL语句可以通过属性窗口直接写入数据控件的RecordSource属性中，来设置数据控件具体调用的表；也可以在程序中设置或更改数据控件的RecordSource属性。,
