VB数据库操作控件Data详细使用说明

1、在控件箱中的 Data 控件是 VB 用于数据库操作的控件， 双击 Data 控件或单击后在体上拖动出控件的大小， 都可 以看到 Data 控件的外观1. Data 控件的常用属性（1）Connect 属性Connect 属性用来指定该数据控件所要链接的数据库格式，默认值为 Access ，其他还包括 dBASE 、 FoxPro 、 Excel 等。（2）DatabaseName 属性DatabaseName 属性是用于确定数据控件使用的数据库的完整路径。如果链接的 Access 数据库，就可单击按 钮定位.mdb文件。例如，选择"C: dbbook.mdb "文件。（3

2、）RecordSource 属性RecordSource 属性用于指定数据控件所链接的记录来源，可以是数据表名，也可以是查询名。在属性窗口中单 击下拉箭头在列表中选出数据库中的记录来源。例如，选择客户信息表”Customers ”。（4）RecordsetType 属性RecordsetType 属性用于指定数据控件存放记录的类型， 包含表类型记录集、 动态集类型记录集和快照类型记录 集，默认为动态集类型。表类型记录集（ Table ）:包含实际表中所有记录，这种类型可对记录进行添加、删除、修改、查询等操作，直接更新数据。动态集类型记录集（ Dynaset ）:可以包含来自于一个或多个表中记录

3、的集合，即能从 多个表中组合数据，也 可只包含所选择的字段。这种类型可以加快运行的速度，但不能自动更新数据。快照类型记录集（ Snapshot ）:与动态集类型记录集相似，但这种类型的记录集只能读不能更改数据。（5）BOFAction 和 EOFAction 属性在运行时用户通过单击数据控件的指针按钮可移动记录到开始或结尾，BOFAction 属性是指当用户移动到开始时程序将执行的操作， EOFAction 指当用户移动到结尾时程序将执行的操作。EOFAcfion 值为 0（MoveFirst ）是将第一笔记录作为当前记录，为1（BOF）；9 记录的开头。EOFAction 值为 0（Move

4、Last ）是将最后一笔记录作为当前记录，为1（EOF ）指记录的末尾，为 2（AddNew ）移动到记录结尾并自动添加一记录。2. Data 控件常用的方法（1）AddNew 方法AddNew 用于添加一个新记录，新记录的每个字段如果有默认值将以默认值表示，如果没有则为空白。 例如，给 Data1 的记录集添加新记录:Data1.Recordset.AddNew（2）Delete 方法Delete 用于删除当前记录的内容，在删除后应将当前记录移到下一个记录。（3）Edit 方法Edit 用于对可更新的当前记录进行编辑修改。（4）Find 方法群组Find 方法群组是用于查找记录，包含 Fin

5、dFirst 、 FindLast 、 Find Next 和 FindPreviou 方法，这 4 种方法查找的 起点不同 。Find 方法 查找起点 查找方向。FindFirst 第一个记录 向后查找。FindLast 最后一个记录 向前查找。FindNext 当前记录 向后查找。FindRrevious 当前记录 向前查找 例如，查找 ”客户号 ”字段为 ”10002 ”的记录:Datal.Recordset.Fi ndFirst 客户号=10002；'If Datal.Recordset.NoMatchThe n如果没找到MsgBoX'找不到10002号客户End If

6、通常当查找不到符合条件的记录时，需要显示信息提示用户，因此使用NoMatch 属性，当使用 Find 或 Seek 方法找不到相符的记录时， NoMatch 属性为 True 。（5）Move 方法群组Move 方法群组是用于移动记录，包含 MoveFirst 、MoveLast 、 M oveNext 和 MovePrevious 方法，这四种方法 分别是移到第一笔记录、移到最后一笔记录、移到下一笔记录和移到前一笔记录。当在最后一个记录时，如果使用了 MoveNext 方法时 EOF 的值会变为 True ，如果再使 用 MoveNext 方法就会 出错。对于 MovePrevious 方法

7、如果前移 ,结果也是同样。（6）Refresh 方法如果 DatabaseName 、 ReadOnly 、Exclusive 或 Connect 属性的设置值发生改变，可以使用 Refresh 方法打开 或重新打开数据库，用 Refresh 方法可以更新数据控件的集合内容。（7）Seek 方法Seek 方法适用于数据表类型（ Table ）记录集，通过一个已被设置为索引（ Index ）的字段，查找符合条件的记 录，并使该记录为当前记录。语法：记录集 .Seek 比较式， key1 ，key2 ，.，key13 例如，当索引为 ”客户号”字段时，查找客户号为 ”10005”的记录：Data1

8、.Recordset.Seek ": ”，" 10005"（8）Update 方法Update 方法用于将修改的记录内容保存到数据库中。（9）UpdateControls 方法UpdateControls 方法可以从数据控件的记录集中再取回原先的记录内容，即恢复原先值。当在与数据控件链接 的控件中修改了记录内容，可以用 UpdateControls 方法使这些控件显示恢复原来的值。3. Data 控件常用的事件（1 ） Reposition 事件Reposition 事件是当某一个记录成为当前记录之后触发。 通常利用该事件对当前记录的数据内容进行计算， 触发 该事

9、件有以下几种原因：单击数据控件的某个按钮，进行记录的移动。使用 Move 方法群组。使用 Find 方法群组。其他可改变当前记录的属性或方法。（2）Validate 事件Validate 事件与 Reposition 事件不同，是当某一记录成为当前记录之前，或是在Update 、Delete 、 Unload 或Close 操作之前触发。事件的定义如下：语法：Private Sub Data1_Validate（ action As Integer ,save As Integer）其中：action ：用来指示引发这种事件的操作。Save ：用来指定被链接的数据是否修改了。例如，在 Vali

10、date 事件触发时确定记录内容是否修改，如果不修改则恢复：Private Sub Data1_Validate（Action As Integer ,Save As Integer）Dim magif Save=True Thenmag=MsgBox ("要保存修改吗？" , vbYesNo )If mag=vbNo ThenSave=FalseDatal.UpdateCo ntrols恢复原先内容End ifEndIfEnd Sub二、与控件绑定控件箱中的常用控件 PictureBox 、Label 、TextBox 、CheckBox 、Image 、OLE、List

11、Box 和 ComboBox 控件都 能和 Data 的 Recordset 的一个字段绑定，与 Data 控件绑定的控件称为数据感知控件。1 .数据感知控件的相关属性DataSource 属性：用于在下拉列表中选择想要绑定的控件名称。DataField 属性：用于在下拉列表中选择要显示的字段名称。2.绑定数据控件的步骤 数据感知控件绑定的过程不需要加入任何程序代码，将文本框txtOrderNo 与 Dara1 绑定的步骤如下：( 1 )将数据控件( Data1 )放置在窗体中，将数据感知控件 TextBox 放置在窗体中并改名为 txtOrderNo 。(2) 设置 Datal 的 Data

12、baseName 属性为"C:dbbook.Mdb "文件，设置 Datal 的 RecordSource 属性为"Orders ” 表。(3) 设置 txtOrderNo 的 DataSource 属性为 Data1 ，设置 txtOrderNo 的 DataField 属性为”定单号”字段。例 Ex_Data1_out 创建一个订购图书的客户信息的输入界面，用文本框绑定Data 控件， txtOrderNo 、txtCuNo和txtDate分别显示"Customers "表的各字段。界面设计，窗体由 4 个按钮、 3 个标签、 3 个文本框

13、和 1 个 Dara 控件组成。窗体文本框控件和 Data 控件的属性设置，标签和按钮属性设置省略。对象控件名属性名属性值。TextBox txtCuNotxtOrderNotxtDateTextDataSourceDataFieldTextDataSourceDataFieldTextDataSourceDataField 空Data1客户号空Data1定单号空Data1订购日期。Data Data1CaptionDataBaseNameRecondSource 客户信息C:dbbook.mdbOders 程序代码如下：Option ExplicitPrivate Sub cmdAdd_Cl

14、ick()添加记录Data1.Recordset.AddNewData1.Recordset.UpdateData1.Recordset.MoveLastEnd SubPrivate Sub cmdDelete_Click ()删除记录Dim magmag= MsgBox("要删除吗？ " , vbYesNo ,"删除记录”)If mag=VbYes ThenData1.Recordset.DelereData1.Recordset ， MoveLastEnd IfEnd Sub当删除最后一个记录后，如果再删除就会出错，因此每次删除完将当前记录移到最后一个。Private Sub cmdend_Click ()EndEnd SubPrivate Sub cmdedit_Click ()修改记录Data1.Recordset.EditData1.Recordset.UpdateE