用ODBC方式操作dbf文件

.版本 2
.支持库 spec

.程序集 窗口程序集1
.程序集变量 集句柄, 整数型
.程序集变量 集dbf文件名, 文本型

.子程序 _按钮1_被单击

集dbf文件名 ＝ “2年”
调试输出 (外部数据库1.打开 (“DRIVER={Microsoft dBase Driver (*.dbf)};DBQ=” ＋ 取当前目录 () ＋ “;”, , ))
调试输出 (外部数据库1.取连接文本 ())
集句柄 ＝ 外部数据库1.查询 (“select distinct 班级 from ” ＋ 集dbf文件名)
调试输出 (集句柄)

外部数据库1.到首记录 (集句柄)

.判断循环首 (外部数据库1.尾记录后 (集句柄) ＝ 假)
    调试输出 (到文本 (外部数据库1.读 (集句柄, 1)))
    外部数据库1.到后一记录 (集句柄)
.判断循环尾 ()

外部数据库1.关闭记录集 (集句柄)