第12章 Visual Basic 6.0与数据库

12.2.2数据绑定控件常用属性
要使文本等控件与数据控件捆绑在一起，成为数据控件的绑定控 件。并且能够受到数据库约束，必须在运行时对这些控件的两个 属性进行设置： 1）DataSource属性 DataSource属性用来将一个有效的数据控件与一个数据库连接。 2）DataFleld属性 DataFleld属性设置数据库有效的字段与绑定控件建立联系。
第12章Visual Basic 6.0与数据库
12.1数据库管理器
12.2数据控件的使用
12.3 SQL语言
12.4
ADO数据控件
退出
12.1数据库管理器
图12-1可视数据库管理器
利用可视化数据管理器可创建多种类型的数据库。创建步骤如下： 1. 单击“文件”菜单下的“新建”菜单项，出现数据库类型选择菜 单。单击数据库类型菜单中的Microsoft Access将出现版本子菜单， 在版本菜单中选择要创建的数据库版本。
例如以下语句： Dim Ds1 As Database ‘定义数据对象 Dim Ds2 As Database Set Ds1= OpenDatabase(“e:\VB|class.mdb) ‘使Ds1获取物理数据库 Set Ds2=Me.data1. Database ‘将数据控件的Database对象传递给Ds2
3）RecordSource属性 RecordSource属性确定具体可访问的数据，这些数据构成记录集 对象Recordset。 4）RecordsetType属性 RecordsetType属性确定记录集类型。 5）ReadOnly属性 在对数据库只查看不修改时，通常将ReadOnly属性设置为True， 而在运行时根据一定的条件，响应一定的指令后，才将它设置为 False。 6）Exclusive属性 Exclusive属性值设置为True时，则在通过关闭数据库撤消这个设 置前，其他任何人不能对数据库访问。这个属性的缺省值是False。
12.2.6数据控件的事件
1 Reposition事件 Reposition事件发生在一条记录成为当前记录后。 只要改变记录集的指针使其从一条指针移到另一条记录。会产生 Reposition事件，可以在该事件过程中建立程序，可反映出记录位 置、记录总数等。 2 Validate事件 当要移动记录指针前，修改与删除记录前或卸载含有数据控件的窗 体时触发Validate事件。Validate事件检查被数据控绑定的控件内的 数据是否发生变化。它通过save参数（）True或False）判断是否 有数据发生变化，Action参数判断哪一种操作触发了Validate事件。 Action参数可为表12-4中的值：
2 Recordset对象 Recordset对象代表一组与数据库相关的逻辑记录集合。它所对 应的数据来源可以是数据表，也可以是和SQL语言中查询语句 （SELECT）有关的查询结果。 Recordset对象有三种类型： Table类型：记录集为表集，可以显示、添加、删除和修改，具有 较好的更新性能。 Dynaset类型：记录集为动态集，可以显示、添加、删除和修改， 并具有较大的操作灵活性。 Snapshot类型：记录集为快照集，只能显示，具有较好的显示速 度。 除了Data控件获取Recordset对象之外，还可以在程序中定义 Recordset对象，并通过函数获得数据。
7）BOFAction、EOFAction属性 当BOFAction值为0，控件重定位到第一个记录；BOFAction值为1， 移过记录集开始位，定位到一个无效记录，触发数据控件对第一个 记录的无效事件。 当EOFAction值为0，控件重定位到最后一个记录；当EOFAction值 为1，移过记录集结束位，定位到一个无效记录，触发数据控件对 最后一个记录的无效事件；EOFAction值为2，向记录集加入新的空 记录，可以对新纪录进行编辑，移动记录指针新纪录写入数据库。
图12-2 创建数据库的菜单选项
2)选择要创建的数据库类型及版本后，出现新建数据库对话框，在 此对话框中，输入要创建的数据库名“student.mdb”。 3)此时，在可视化数据库管理器窗口中出现“数据库窗口”和 “SQL语句”窗口，如图12-3所示。“数据库窗口”以树型结构显 示数据库中的所有对象，单击鼠标右键激活快捷菜单，执行“新建 表”、“刷新列表“和数据库三者的关系
12.2.3使用数据控件操作数据库中的数据
例9．1、设计一窗体，在窗体内通过文本框等绑定控件显示9.1节 中建立的学生情况表内的记录。
表12-2 窗体属性表
对 象 data 属 性 Name Databasename Connect Recordsetsource Name datafield datasource Name datafield datasource Name datafield datasource Name datafield datasource Data1 E:\VB书\student.mdb access student text1 学号 data1 text2 姓名 data1 text3 性别 data1 text4 出生年月 data1 设 置
表12-3 窗体属性表
对 象 Data 属 性 Name Data1.Caption Databasename \student.mdb Recordsource 设 置 data1 学生信息 D:\Vb书 学生情况
图12-12 通过数据网格控件浏览学生情况表
12.2.4数据控件上的对象
数据控件是依靠数据对象来获取对数据访问的，与其相关的数据 对象有： 1 Database对象 Database对象是物理数据库的逻辑表示。数据控件通过 DatabaseName属性连接到一个具体的数据库，并通过它的 Database对象表现出来。 除了数据控件获取Database对象之外，还可以在程序中定义 Database对象，并通过OpenDatabase()函数实现对物理数据库的 连接；或者将数据控件的Database对象传递给被定义的Database 对象。
例12-2：设计一个窗体，通过数据网格控件浏览学生情况表内的 记录。参见图12-12所示。 使用DATA数据控件时可使用MsflexGrid网格控件或VB5.0提供的数 据网格控件DBGrid。MsflexGrid控件与DBGrid控件都不是Visual Basic工具箱内的默认控件，需要在开发环境中选择“工程”主菜 单中的“添加部件”命令，并在随即出现的对话框中选择Microsoft Flex Grid Control6.0或Microsoft Data Bound Control5.0，将其添 加到工具箱中。
Dim Ds As Database ‘定义数据对象 Dim Rs As Recorderset ‘定义记录对象 Set Ds= OpenDatabase(“e:\VB|class.mdb) ‘使Ds获取物理数据库 Set Rs=Me.data1. Database. OpenRecordse(“SElECT *FROM 学生情 况”,dbOpenDynaset) ‘以动态集方式打开从“学生情况”数据表取得的SQL查询，传 给Rs对象 Set Me.data1. Recorderset=. Rs
1.Connect属性 Connect属性指定数据控件所要连接的数据库类型。 Visual Basic 6．0提供了7种可访问的数据库类型，Visual Basic可 识别的数据库有： 1）Microsoft Access的MDB文件（缺省值）； 2）Borland dBASE、Microsoft Foxpro的DBF文件； 3）Borland Paradox的DB文件； 4）Novell Btrieve的DDF文件； 5）Microsoft Excel的XLS文件； 6）Lotus的WKS文件; 7）Open DataBase Connectivity(ODBC)数据库
TextBox
TextBox
TextBox
TextBox
不需编写任何代码，就可浏览表中的内容。单击运行按钮就可出现 如图12-11所示4个文本框分别显示学号，姓名，性别，和出生年月 的内容。
图12-11 学生情况表显示界面
使用数据控件对象的4个箭头可遍历整个记录集中的记录。 通过DBList控件和DBCombo控件浏览学生情况表内的记录时， DBList控件和DBCombo控件不是Visual Basic工具箱内的默认控件， 需要在开发环境中选择“工程”|“部件”菜单命令，并在随即出现 的对话框中选择Microsoft Data Bound List Controls选项，将它们添 加到工具箱中。
12.2.5数据控件的常用方法
1 Refresh方法 如果在设计状态没有为打开数据控件的有关属性全部赋值，或当 RecordSource在运行时 被改变后，必须使用激活数据控件的 Refresh方法激活这些变化。 2 UpdateCountrols方法 UpdateCountrols方法可以将数据从数据库中重新读到 被数据控件 绑定的空件内。使用UpdateCountrols方法终止用户对绑定内控件 的修改。 3 UpdateRecord方法 当对绑定内的控件修改后，数据控件需要移动记录集的指针才能保 存修改，如果使用UpdateRecord方法可强制数据控件将绑定控件 内的数据写入到数据库中而不再触发Vaildate事件。在代码中用该 方法修改。
图12-7 添加索引对话框 图12-6 添加字段后的“表结构”对话框
7)完成上述步骤后，单击“生成表”按钮，就会在“数据库窗口” 中出现“学生情况”表，如图12-8所示。
图12-8 生成新表后的“数据库窗口”
8）当一张表建立后，可以再建立另一张表。如果要在已经存在的 数据库文件内增加一张新表，只需要在数据管理器文件菜单中选择 打开数据库命令，其余操作过程与建立数据表的操作相同。 当表建好后，用鼠标左键双击出现在数据库窗口中的”学生情况” 表名，打开图12-9所示的表格输入窗，选择对应命令进行添加、编 辑、增删记录等操作。