Data控件是vb数据库编程访问数据库的一种利器，它能够利用三种Recordset对象来访问数据库中的数据，数据控件提供有限的不需编程而能访问现存数据库的功能，允许将VisualBasic的窗体与数据库方便地进行连接。要利用数据控件返回数据库中记录的集合，应先在窗体上画出控件，再通过它的三个基本属性Connect、DatabaseName和RecordSource设置要访问的数据资源。

Data控件属性

1．Connect属性

Connect属性指定数据控件所要连接的数据库类型，VisualBasic默认的数据库是Access的MDB文件，此外，也可连接DBF、XLS、ODBC等类型的数据库。

2．DatabaseName属性

DatabaseName属性指定具体使用的数据库文件名，包括所有的路径名。如果连接的是单表数据库，则DatabaseName属性应设置为数据库文件所在的子目录名，而具体文件名放在RecordSource属性中。

例如，要连接一个MicrosoftAccess的数据库C:\Student.mdb，则设置DatabaseName=”C:＼Student.mdb"，Access数据库的所有表都包含在一个MDB文件中。如果连接一个FoxPro数据库如C:＼VB6＼stu_fox.dbf,则DatabaseName=”C:＼VB6”，RecordSource=”stu_fox.dbf”，stu_fox数据库只含有一个表。

3．RecordSource属性

RecordSource确定具体可访问的数据，这些数据构成记录集对象Recordset。该属性值可以是数据库中的单个表名，―个存储查询，也可以是使用SQL查询语言的一个查询字符串。

例如，要指定Student.mdb数据库中的基本情况表，则RecordSource=”基本情况”。而RecordSource=”Select*From基本情况Where专业=’物理’”，则表示要访问基本情况表中所有物理系学生的数据。

4．RecordType属性

RecordType属性确定记录集类型。

5．EofAction和BofAction属性

当记录指针指向Recordset对象的开始(第一个记录前)或结束(最后一个记录后)时，数据控件的EofAction和BofAction属性的设置或返回值决定了数据控件要采取的操作。属性的取值如表9.1所示。

表9.1EofAction和BofAction属性

在VisualBasic中，数据控件本身不能直接显示记录集中的数据，必须通过能与它绑定的控件来实现。可与数据控件绑定的控件对象有文本框、标签、图像框、图形框、列表框、组合框、复选框、网格、DB列表框、DB组合框、DB网格和OLE容器等控件。要使绑定控件能被数据库约束，必需在设计或运行时对这些控件的两个属性进行设置：

(1)DataSource属性

DataSource属性通过指定―个有效的数据控件连接到一个数据库上。

(2)DataField属性

DataField属性设置数据库有效的字段与绑定控件建立联系。

绑定控件、数据控件和数据库三者的关系如图9.7所示。

图9.7绑定控件、数据控件和数据库三者的关系

当上述控件与数据控件绑定后，VisualBasic将当前记录的字段值赋给控件。如果修改了绑定控件内的数据，只要移动记录指针，修改后的数据会自动写入数据库。数据控件在装入数据库时，它把记录集的第一个记录作为当前记录。当数据控件的BofAction属性值设置为2时，当记录指针移过记录集结束位，数据控件会自动向记录集加入新的空记录。

例9.1建立student.mdb数据库，它包含两个表：“基本情况”表和“学生成绩表”。参见表9.2和表9.3。

表9.2学生基本情况表结构

照片

表9.3学生成绩表结构

学期

用可视化数据管理器建立以上设计的数据库及其表，表中数据可自行录入。

例9.2设计一个窗体用以显示建立的student.mdb数据库中基本情况表的内容。

基本情况表包含了6个字段，故需要用6个绑定控件与之对应。这里用一个图形框显示照片和5个文本框显示学号、姓名等数据。本例中不需要编写任何代码，具体操作步骤如下：

(1)参考如图9.8所示窗体，在窗体上放置1个数据控件，一个图形框、5个文本框和5个标签控件。5个标签控件分别给出相关的提示说明。

(2)将数据控件Data1的Connect属性指定为Access类型，DatabaseName属性连接数据库Student.mdb，RecordSource属性设置为“基本情况”表。

(3)图形框和5个文本框控件Text1～Text5的DataSource属性都设置成Data1。通过单击这些绑定控件的DataField属性上的“…”按钮，将下拉出基本情况表所含的全部字段，分别选择与其对应的字段照片、学号、姓名、性别、专业和出生年月，使之建立约束关系。

运行该工程即可出现图9.8所示效果。5个文本框分别显示基本情况表内的字段：学号、姓名、性别、专业和出生年月的内容，图形框显示每个学生的照片。

使用数据控件对象的4个箭头按钮可遍历整个记录集中的记录。单击最左边的按钮显示第l条记录；单击其旁边的按钮显示上一条记录；单击最右边的按钮显示最后一条记录；单击其旁边的按钮显示下―条记录。数据控件除了可以浏览Recordset对象中的记录外，同时还可以编辑数据。如果改变了某个字段的值，只要移动记录，这时所作的改变存入数据库中。

VisualBasic6.0提供了几个比较复杂的网格控件，几乎不用编写代码就可以实现多条记录数据显示。当把数据网格控件的DataSource属性设置为一个Data控件时，网格控件会被自动地填充，并且其列标题会用Data控件的记录集里的数据自动地设置。

data控件与MsFlexGrid控件结合显示数据库中信息

用数据网格控件MsFlexGrid显示Student.mdb数据库中基本情况表的内容。

MsFlexGrid控件不是VisualBasic工具箱内的默认控件，需要在开发环境中选择“工程|部件”菜单命令，并在随即出现的对话框中选择“MicroSoftFlexGridControl6.0”选项，将其添加到工具箱中。本例所用控件的属性设置如表9.4所示。请读者自行比较不可卷动列属性FixedCols=0与FixedCols=1的区别。Form启动后自动显示如图9.9所示窗口。

表9.4控件属性

2.3数据控件的常用方法

学习数据库控件的内置功能很多，可以在代码中用数据控件的方法访问这些属性。

1．Refresh方法

如果在设计状态没有为打开数据库控件的有关属性全部赋值，或当RecordSource在运行时被改变后，必须使用数据控件的Refresh方法激活这些变化。在多用户环境下，当其他用户同时访问同一数据库和表时，Refresh方法将使各用户对数据库的操作有效。

例如：将例9.2的设计参数改用代码实现，使所连接数据库所在的文件夹可随程序而变化：

PrivateSubForm_Load()

DimmpathAsString

Mpath=App.Path’获取当前路径

IfRight(mpath,1)<>”/”Thenmpath=mpath+”/”

Data1.DatabaseName=mpath+”Student.mdb”’连接数据库

Data1.RecordSource=”基本情况”’构成记录集对象

Data1.Refresh’激活数据控件

EndSub

2．UpdateControls方法

UpdateControls方法可以将数据从数据库中重新读到被数据控件绑定的控件内。因而我们可使用UpdateControls方法终止用户对绑定控件内数据的修改。

例如：将代码Data1.UpdateControts放在一个命令按钮的Click事件中，就可以实现对记录修改的功能。

3.UpdateRecord方法

当对绑定控件内的数据修改后，数据控件需要移动记录集的指针才能保存修改。如果使用UpdateRecord方法，可强制数据控件将绑定控件内的数据写入到数据库中，而不再触发Validate事件。在代码中可以用该方法来确认修改。