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

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

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

这就得看的帮助文件了你在索引那里打上“树形框”然后看看“树形框”有什么可 *** 作的指令你要改变图片，那么就得找和图片有关系的指令关于读取配置项~也可以看帮助文件但是我认为没必要用到配置项你弄个数据库会比较好点

---