下面的示例首先打开数据库 testdata，然后用 adbobjects( ) 函数创建名为 gatables 的数组，数组将包含数据库中的表名，最后显示这些表名。
close databases
set path to (sys(2004) + 'samples\data\') &&设置数据库的路径
open database testdata && 打开数据库 testdata
clear
? adbobjects(gatables, 'table') && 创建包含表名的数组
display memory like gatables && 显示数组内容