求一个mssql读取数据到超级列表框的例子 如果 有必要，可以提供RMB~

bigjn

求一个mssql读取数据到超级列表框的例子 必须要源码

1、查询一条数据时，有多条结果返回的时候 如何判断 例如 只返回1条数据 就直接显示在某个编辑框里
如果返回2条或者2条以上数据，则弹出一个超级列表框，显示返回的所有数据，让用户单击选择

2、这个应该不难，可是小弟不怎么熟悉。查询返回的数据 如何把返回的数据插入到超级列表框  

举个例子吧

服务器IP：127.0.0.1
MSSQL帐号：sa
密码：123456

库名：test

表名：test1

字段id user pass

有多条数据，大家可以按照这个写，然后我再自己套弄下就差不多了  谢谢啊~

不只要列表框，不允许用到高级表格~  如果 有必要，可以提供RMB~

小人物ヾ

[e]
.版本 2
.支持库 iext

.程序集 窗口程序集1

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

数据库连接 ()

.子程序 数据库连接

.如果 (外部数据库1.打开SQL数据库 (“127.0.0.1”, “sa”, “123456”, “test”, , ) ＝ 假)
信息框 (“数据库连接失败”, 16, “错误”)
.否则
信息框 (“数据库连接成功”, 64, “信息”)
.如果结束


.子程序 _按钮_读取_被单击
.局部变量 记录集句柄, 整数型
.局部变量 计次1, 整数型
.局部变量 文本判断1, 文本型
.局部变量 文本判断2, 文本型

超级列表框1.全部删除 ()
超级列表框1.插入列 (0, “ID”, 50, , , )
超级列表框1.插入列 (1, “user”, 50, , , )
超级列表框1.插入列 (2, “pass”, 50, , , )
记录集句柄 ＝ 外部数据库1.查询 (“select * from [test1]”)
外部数据库1.到首记录 (记录集句柄)
文本判断1 ＝ 到文本 (外部数据库1.读 (记录集句柄, “ID”))
外部数据库1.到尾记录 (记录集句柄)
文本判断2 ＝ 到文本 (外部数据库1.读 (记录集句柄, “ID”))
计次1 ＝ 0
外部数据库1.到首记录 (记录集句柄)
.如果 (文本判断1 ＝ 文本判断2)
编辑框1.可视 ＝ 真
超级列表框1.可视 ＝ 假
编辑框1.加入文本 (到文本 (外部数据库1.读 (记录集句柄, “ID”)) ＋ #换行符) ' 整数型 不知道你的数据类型
编辑框1.加入文本 (外部数据库1.读 (记录集句柄, “user”) ＋ #换行符) ' 文本型
编辑框1.加入文本 (外部数据库1.读 (记录集句柄, “pass”) ＋ #换行符) ' 文本型
.否则
编辑框1.可视 ＝ 假
超级列表框1.可视 ＝ 真
.判断循环首 (外部数据库1.尾记录后 (记录集句柄) ＝ 假)
超级列表框1.插入表项 (, , , , , )
超级列表框1.置标题 (计次1, 0, 到文本 (外部数据库1.读 (记录集句柄, “ID”)))
超级列表框1.置标题 (计次1, 1, 外部数据库1.读 (记录集句柄, “user”))
超级列表框1.置标题 (计次1, 2, 外部数据库1.读 (记录集句柄, “pass”))
计次1 ＝ 计次1 ＋ 1
外部数据库1.到后一记录 (记录集句柄)
.判断循环尾 ()
.如果结束
外部数据库1.关闭记录集 (记录集句柄)

[/e]

小人物ヾ

wang22099

555555555555555555555