超级列表框数据库操作

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

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

.版本 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.关闭记录集 (记录集句柄)

㈡ 易语言如何把从mssql数据库读出来的信息全部显示在超级列表框内

自己建数据库连接1，记录集1，超级列表框1(显示你的内容)，你具体数据库的字段名我不知道，只好用列名代替，你可以自己更改变你相应的字段名，代码如下：

.版本 2

.支持库 eDB

.支持库 iext

.程序集 窗口程序集_启动窗口

.子程序 __启动窗口_创建完毕

.局部变量 客户编号, 整数型

.局部变量 客户名称, 文本型

.局部变量 客户地址, 文本型

.局部变量 索引, 整数型

.如果 (数据库连接1.连接SQLServer (SQL所在服务器IP地址, “客户信息”, “sa”, “”) ＝ 真)

记录集1.置连接 (数据库连接1)

记录集1.打开 (“select * from 表名 where 条件”, #SQL语句, )

.如果真 (记录集1.记录数量 ＝ 0)

信息框 (“暂没找到你所需要的数据！”, 0, )

返回 ()

.如果真结束

超级列表框1.全部删除 ()

记录集1.到首记录 ()

.判断循环首 (记录集1.尾记录后 ＝ 假)

记录集1.读整数 (“客户编号”, 客户编号)

记录集1.读文本 (“客户名称”, 客户名称)

记录集1.读文本 (“客户地址”, 客户地址)

索引 ＝ 超级列表框1.插入表项 (-1, “”, , , , )

超级列表框1.置标题 (索引, 0, 到文本 (客户编号))

超级列表框1.置标题 (索引, 1, 客户名称)

超级列表框1.置标题 (索引, 2, 客户地址)

记录集1.到下一条 ()

.判断循环尾 ()

记录集1.关闭 ()

数据库连接1.关闭 ()

.否则

信息框 (“连接不成功”, 0, )

㈢ 【易语言】如何把超级列表框的数据内容保存到MDB数据库！！

.版本 2
.支持库 iext

.局部变量 变量, 整数型

.计次循环首 (超级列表框_主窗口.取表项数 (), 变量)
外部版数据库.执行 ("insert into 进货表权
(货品名称, 规格, 单位, 数量, 单价, 金额, 单据编号, 进货日期, 入帐时间) values ('" + 超级列表框_主窗口.取标题 (变量 － 1, 0) + "','" + 超级列表框_主窗口.取标题 (变量 － 1, 1) + "','" + 超级列表框_主窗口.取标题 (变量 － 1, 2) + "','" + 超级列表框_主窗口.取标题 (变量 － 1, 3)+"','"+ 超级列表框_主窗口.取标题 (变量 － 1, 4) + "','" + 超级列表框_主窗口.取标题 (变量 － 1, 5) + "','" + 超级列表框_主窗口.取标题 (变量 － 1, 6) + "','" + 超级列表框_主窗口.取标题 (变量 － 1, 7)+ "','" + 超级列表框_主窗口.取标题 (变量 － 1, 8) + "')", )
.计次循环尾 ()