易语言逐条读access数据_易语言access数据库打开读取

【1】.连接Access数据库代码！.版本 2、.支持库 eDB .如果 (数据库连接.连接Access (MDB数据库, “”) ＝ 真)

记录集.置连接 (数据库连接)

排序条件 ＝ “字段，表名，条件”

.如果 (记录集.打开并排序 (MDB数据表, 排序条件) ＝ 真) .否则 销毁 ()

【2】.填充树形框字段到父项目代码！.版本 2、.支持库 eDB

.支持库 iext.局部变量 分类变量, 文本型

.局部变量 树项目总数, 整数型

.局部变量 树循环循环, 整数型

.局部变量 临时项目文本, 文本型

.局部变量 是否存在重复, 整数型

记录集.到首记录 ()

.判断循环首 (记录集.尾记录后 ＝ 假)

记录集.读文本 (“字段”, 分类变量)

树项目总数 ＝ 树型框.取项目数 ()

.如果 (树项目总数 ＝ 0)

树型框.加入项目 (, 分类变量, , , )

.否则

.计次循环首 (树项目总数, 树循环循环)

临时项目文本 ＝ 树型框.取项目文本 (树循环循环 － 1)

.如果 (临时项目文本 ＝ 分类变量)

是否存在重复 ＝ 1、 跳出循环 ()

.否则

是否存在重复 ＝ 0

.如果结束

树循环循环 ＝ 树循环循环 ＋ 1、 .计次循环尾 ()

.如果真 (是否存在重复 ＝ 0)

树型框.加入项目 (, 分类变量, , , )

.如果真结束 .如果结束 记