易语言如何把从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, )

啊实打实的