易语言里怎么读取数据库里的数据到树形框

‘不用外部数据库，添加一个数据库连接1控件：

’假设库文件名为“产品数据库.mdb”，库中的表名为“产品表”，产品字段名“类别”

全局变量：a 文本型

如果真（数据库连接1.连接Access（取运行目录（）+“\产品数据库.mdb”，“”）=假）

          信息框（“连接数据库失败！”，0，）

返回（）

’添加一个记录集控件；

记录集1.置连接（数据库连接1）

‘上面我们已经打开并且连接好了MDB数据库，接下来我们做读取和显示；

记录集1.打开（“select * from 产品表”，#SQL语句，#服务器端游标）

记录集1.到首记录（）

判断循环首（记录集1.尾记录后=假）

      记录集1.读文本（“类别”，a）

      如果真（a=“日用品”）

        树型框1.加入项目（0，a，，，，，）

      如果真（a=“洗化用品”）

        树型框1.加入项目（1，a，，，，，）

      如果真（a=“洗发水” 或 a=“洗衣粉”）

        树型框1.加入项目（2，a，，，，，）

      记录集1.到下一条（）

判断循环尾（）

记录集1.关闭（）

fne文件 是易语言的支持库，实际上是一个动态链接库（DLL文件），文件里有公开的函数。要读取里面的易语言数据类型、命令、常量等等，需要你了解开发易语言支持库的相关知识，需要调用公开的函数进行读取。

GetNewInf 函数，返回类型：整数型 。返回支持库信息指针。这个指针需要转换成自定义数据类型。然后一一读出。

建议先看看支持库开发手册，不过，我估计你看不懂。还是在深入了解及学习一下易语言。

下面这几个API可以搞定。

.版本 2

.DLL命令 LoadLibraryA, 整数型, , "LoadLibraryA", , 载入指定的动态链接库，并将它映射到当前进程使用的地址空间

.参数 动态链接库名称, 文本型, , lpLibFileName,指定要载入的动态链接库的名称

.DLL命令 FreeLibrary, 整数型, , "FreeLibrary", , 非零表示成功，零表示失败

.参数 库句柄, 整数型, , hModule

.DLL命令 GetProcAddress, 整数型, , "GetProcAddress"

.参数 模块句柄, 整数型, , hModule

.参数 进程名称, 文本型, , lpProcName

.DLL命令 RtlMoveMemory, , , "RtlMoveMemory"

.参数 库信息, 易库信息

.参数 库数据, 整数型

.参数 库尺寸, 整数型

【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,

循环变量)

.计次循环尾

().否则

---