数据约束控件是指要求与Data 控件连接到一起的控件, 如DBGird 等。典型的特征是都有一个DataSource 属性, 该属性在运行时是不可用的。 在没有使用数据控件Data 而采用DAO 命令打开一个后,如何将表中记录显示在数据约束控件内?方法如下:

约束控件在设计时应该连接到一个空的 DATA1,

在运行中:

Set DATA1.Recordset = 没有使用数据控件建立的Recordset

刷新该数据约束控件, 注意不能刷新DATA1。

awing 提供的例子如下:

在一个窗体内建立一个文本控件和一个数据控件,将文本控件的DataSource属性指向Data1,设置对应的字段,然后编下如程序:

dim db as database

dim rs as recordset

set db=opendatabase("temp.mdb")

set rs =db.openrecordset("files",dbopentable)

set data1.recordset=rs

运行程序后,点击数据控件的移动记录。