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

‘不用外部数据库，添加一个数据库连接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.关闭（）

易语言树型框全 *** 作源码例程程序结合易语言扩展界面支持库，针对树型框的完全 *** 作，支持设置树型框各种属性；动态添加、修改、删除项目；取得某一项目下所有子项目；树型框项目任意移动。

本易语言源码例程属于易语言初级进阶教程。

---