Question

易语言如何读取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.到下一条
()
.计次循环尾
()