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

列名是固定的。mssql数据库名:客户信息... 列名是固定的。mssql数据库名:客户信息 展开
 我来答
独语无泪
推荐于2017-12-16 · TA获得超过207个赞
知道小有建树答主
回答量:302
采纳率:75%
帮助的人:255万
展开全部

自己建数据库连接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, )

百度网友b3a0d3c
2020-02-02
知道答主
回答量:1
采纳率:0%
帮助的人:653
展开全部
啊实打实的
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
收起 1条折叠回答
推荐律师服务: 若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询

为你推荐:

下载百度知道APP,抢鲜体验
使用百度知道APP,立即抢鲜体验。你的手机镜头里或许有别人想知道的答案。
扫描二维码下载
×

类别

我们会通过消息、邮箱等方式尽快将举报结果通知您。

说明

0/200

提交
取消

辅 助

模 式