易语言逐条读access数据_易语言如何读取Access数据库中多个字段、表名、条件。...

【1】.连接Access数据库代码！.版本 2

.支持库 eDB .如果 (数据库连接.连接Access (MDB数据库, “”) ＝ 真)

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

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

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

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

.支持库 eDB

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

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

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

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

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

记录集.到首记录 ()

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

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

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

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

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

.否则

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

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

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

是否存在重复 ＝ 1

跳出循环 ()

.否则

是否存在重复 ＝ 0

.如果结束

树循环循环 ＝ 树循环循环 ＋ 1

.计次循环尾 ()

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

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

.如果真结束 .如果结束 记录集.到下一条 ()

.判断循环尾 ()

【3】.填充表名到树形框子项目并过滤树形框存在的重复项！.版本 2

.支持库 iext

.支持库 eDB.局部变量 原项目变量, 整数型

.局部变量 原项目循环, 整数型

.局部变量 项目数组, 文本型, , "0"

.局部变量 原项目文本, 文本型

.局部变量 新项目变量, 整数型

.局部变量 新项目循环, 整数型

.局部变量 新项目文本, 文本型

.局部变量 新项目标题, 文本型

.局部变量 过滤语句, 文本型

.局部变量 文本数组, 文本型, , "0"

.局部变量 文本变量, 文本型

.局部变量 数组成员, 整数型

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

.局部变量 次数数量, 整数型

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

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

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

原项目变量 ＝ 树型框.取项目数 ()

原项目循环 ＝ 1

.计次循环首 (原项目变量, 原项目循环)

加入成员 (项目数组, 树型框.取项目文本 (原项目循环 － 1))

.计次循环尾 ()

数组成员 ＝ 取数组成员数 (项目数组)原项目文本 ＝ 项目数组 [数组循环]

过滤语句 ＝ “字段” ＋ “=” ＋ “'” ＋ 原项目文本 ＋ “'”

.如果 (记录集.过滤记录 (过滤语句) ＝ 真)

次数数量 ＝ 记录集.记录数量

清除数组 (文本数组)

.计次循环首 (次数数量, 次数循环)

记录集.读文本 (“表名称”, 文本变量)

加入成员 (文本数组, 文本变量)

次数循环 ＝ 次数循环 ＋ 1

记录集.到下一条 ()

.计次循环尾 ()

项目变量 ＝ 树型框.取项目数 ()

.计次循环首 (项目变量, 循环变量)

树型框.置项目数值 (循环变量 － 1, 循环变量)

.计次循环尾 ().否则