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

列名是固定的。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, )

温馨提示:答案为网友推荐,仅供参考
第1个回答  2020-02-02
啊实打实的
相似回答