Question

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

如题： 易语言如何读取Access数据库中多个字段、表名、条件。 并将读取结果字段下多个表名分别填充父项目、子项目 父项目=字段 子项目=多个表名 这样子！ 子项目又如何过滤存在的子项！

Answer 1

【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, 循环变量)
.计次循环尾 ().否则

Answer 2

在启动窗口新建两个控件：数据库连接、记录集
然后 双击启动窗口 加入以下代码：

.子程序 __启动窗口_创建完毕
.局部变量 临时文本, 文本型
.局部变量 临时变量, 整数型

数据库连接1.连接Access (“数据库文件的完整路径名”, “可以为空”)
记录集1.置连接 (数据库连接1)
记录集1.打开 (“select user_ip from user_online”, #SQL语句, )
记录集1.到首记录 ()
.计次循环首 (记录集1.记录数量, 临时变量)
记录集1.读文本 (“user_ip”, 临时文本)
调试输出 (临时文本) ' 每次输出的临时文本就是你要的每个值
记录集1.到下一条 ()
.计次循环尾 ()