Question

易语言怎样在超级列表框里显示ACCESs数据库?

我仿照一个软件的代码
我运行的的是这样的：

被我仿照的那个软件是这样的：
运行时：

我的代码：
.版本 2.支持库 iext
.支持库 eDB
.子程序 显示读者.局部变量 读者号, 文本型
.局部变量 读者姓名, 文本型
.局部变量 年龄, 整数型
.局部变量 性别, 文本型
.局部变量 注册日期, 文本型
.局部变量 索引, 整数型
超级列表框1.全部删除 ()记录集1.置连接 (数据库连接1)
记录集1.打开 (“读者”, #数据表名)
.计次循环首 (记录集1.记录数量, )
记录集1.读文本 (“读者号”, 读者号)
记录集1.读文本 (“读者姓名”, 读者姓名)
记录集1.读整数 (“年龄”, 年龄)
记录集1.读文本(“性别”, 性别)
记录集1.读文本 (“注册日期”, 注册日期)
索引 ＝ 超级列表框1.插入表项 (-1, 读者号, , , , )
超级列表框1.置标题 (索引, 1, 读者姓名)
超级列表框1.置标题 (索引, 2, 到文本 (年龄))
超级列表框1.置标题 (索引, 3, 到文本 (性别))
超级列表框1.置标题 (索引, 6, 到文本 (注册日期))
记录集1.到下一条 ()
.计次循环尾 ()
记录集1.关闭 ()





Answer 1

这种列程应该比较多吧,我最近想写的一个软件也有这个功能 附上源码你参考下吧

.版本 2.支持库 iext
.程序集 起动窗口程序集
.子程序 __启动窗口_创建完毕
.判断开始 (外部数据库1.打开MDB数据库 (取运行目录 () ＋ “\data\mpdata.mdb”, , “mp611”, , ) ＝ 真)
信息框 (“欢迎使用加菲猪售后管理系统”, 0, )
.默认
信息框 (“系统启动失败！”, 0, )
.判断结束
刷新列表框 ()

.子程序 刷新列表框
.局部变量 记录集句柄, 整数型
.局部变量 索引, 整数型

记录集句柄 ＝ 外部数据库1.查询 (“select * from wxdj”)
超级列表框1.全部删除 ()
.判断循环首 (外部数据库1.尾记录后 (记录集句柄) ＝ 假)
索引 ＝ 超级列表框1.插入表项 (, 外部数据库1.读 (记录集句柄, “djbh”), , , , )
超级列表框1.置标题 (索引, 1, 外部数据库1.读 (记录集句柄, “yhxm”))
超级列表框1.置标题 (索引, 2, 外部数据库1.读 (记录集句柄, “lxdh”))
超级列表框1.置标题 (索引, 3, 外部数据库1.读 (记录集句柄, “sjggxh”))
超级列表框1.置标题 (索引, 4, 外部数据库1.读 (记录集句柄, “sjch”))
超级列表框1.置标题 (索引, 5, 外部数据库1.读 (记录集句柄, “gzms”))
超级列表框1.置标题 (索引, 6, 外部数据库1.读 (记录集句柄, “sxrq”))
超级列表框1.置标题 (索引, 7, 外部数据库1.读 (记录集句柄, “sxry”))
超级列表框1.置标题 (索引, 8, 外部数据库1.读 (记录集句柄, “fhrq”))
超级列表框1.置标题 (索引, 9, 外部数据库1.读 (记录集句柄, “tzqj”))
外部数据库1.到后一记录 (记录集句柄)
.判断循环尾 ()
外部数据库1.关闭记录集 (记录集句柄)