.版本 2
.支持库 iext
.支持库 spec
.程序集 窗口程序集1
.子程序 __启动窗口_创建完毕
读取数据子程序 ()
.子程序 读取数据子程序
.局部变量 返回值, 逻辑型
.局部变量 记录集句柄, 整数型
返回值 ＝ 外部数据库1.打开MDB数据库 (取运行目录 () ＋ “\赤血学院.mdb”, , , , 真)
.如果真 (返回值 ＝ 假)
信息框 (“数据库打开错误”, 0, )
返回 ()
.如果真结束
' 如果打开返回假 我们来个信息框提示下
' 否则继续执行下面的
记录集句柄 ＝ 外部数据库1.查询 (“SELECT id,姓名,性别,年龄 FROM bate”)
.如果真 (记录集句柄 ＝ 0)
信息框 (“查询错误”, 0, )
返回 ()
.如果真结束
' 检查下记录集句柄是否正确
外部数据库1.到首记录 (记录集句柄) ' 先将记录集移动到首记录
.判断循环首 (外部数据库1.尾记录后 (记录集句柄) ＝ 假) ' 然后循环读出所有数据
超级列表框1.插入表项 (, , , , , )
超级列表框1.置标题 (超级列表框1.取表项数 () － 1, 0, 到文本 (外部数据库1.读 (记录集句柄, 1)))
超级列表框1.置标题 (超级列表框1.取表项数 () － 1, 1, 到文本 (外部数据库1.读 (记录集句柄, 2)))
超级列表框1.置标题 (超级列表框1.取表项数 () － 1, 2, 到文本 (外部数据库1.读 (记录集句柄, 3)))
超级列表框1.置标题 (超级列表框1.取表项数 () － 1, 3, 到文本 (外部数据库1.读 (记录集句柄, 4)))
超级列表框1.置标题 (超级列表框1.取表项数 () － 1, 4, 到文本 (外部数据库1.读 (记录集句柄, 5)))
外部数据库1.到后一记录 (记录集句柄)
调试输出 (1)
.判断循环尾 ()
外部数据库1.关闭记录集 (记录集句柄)
这回可以了吧？？？ 我说了 这两天是易语言的数据库 下来才是access的教程。
