山寨机中的战斗机！	程序优化工程师到底对IT界有没有贡献

查询问题？

楼主kyzh（）2003-12-02 00:23:01 在 VB / 数据库(包含打印，安装，报表) 提问

怎样将一个Listbox里面的记录从数据库查询出来显示到一个MSHFlexGrid控件里? 问题点数：100、回复次数：12Top

1 楼minghui000（沉迷网络游戏）回复于 2003-12-02 01:01:36 得分 0

upTop

2 楼lxqlogo0（群子）回复于 2003-12-02 01:02:09 得分 5

是单击一条listbox里面的纪录，然后去查找数据库，再把详细的内容显示到
MSHFlexGrid控件吗？
private sub list1_click
Dim objcon As New ADODB.Connection
Dim objrs As New ADODB.Recordset
objcon.Open "Provider=sqloledb.1;user id=sa;password=密码;Initial Catalog=数据库名;Data Source="
objrs.Open "select * from 表 where 相应字段名='" & list1.text & "'", objcon, 3, 1

Set MSHFlexGrid1.DataSource = objrs
end subTop

3 楼jian_aa（aa）回复于 2003-12-02 01:08:54 得分 5

lxqlogo0(群子) ：你是，是全部listbox里的内容都显示出来Top

4 楼kyzh（）回复于 2003-12-02 01:21:44 得分 0

是要把listbox的内容都显示到MSHFlexGrid里不是一个Top

5 楼j4sxw（HELLOworld :)）回复于 2003-12-02 08:30:58 得分 0

UPTop

6 楼wangqingyu（机器人）回复于 2003-12-02 09:15:39 得分 5

select * from [表名] where name =' " & list1.text & " '试试Top

7 楼yoki（小马哥--鬓微霜，又何妨）回复于 2003-12-02 10:42:21 得分 0

你的想法不合实际呀，listbox中的每个表名的字段个数不一样，如何放在一个网格中呢？Top

8 楼kyzh（）回复于 2003-12-02 14:40:30 得分 0

yoki(小马哥):
我的listbox里是一个字段的部分记录，我是想用来一次进行多个记录查询，然后在
MSHFlexGrid控件里显示查询出来的记录。Top

9 楼kyzh（）回复于 2003-12-02 17:15:02 得分 0

upTop

10 楼jpinglee（想去海边）回复于 2003-12-02 17:36:50 得分 80

你要的是"查询字段如name等于listbox里的值的所有记录"吗?看看下面代码能不能实现
sql="select * from [表名] where "
for i=0 to listbox1.listcount-1
sql="name='" & listbox1.list(i) & "' or "
next i
sql=left(sql,len(sql)-4)'把最后的" or "去掉Top

11 楼yoki（小马哥--鬓微霜，又何妨）回复于 2003-12-02 17:46:42 得分 5

如楼上所说。。。Top

12 楼kyzh（）回复于 2003-12-02 18:24:35 得分 0

不行的Top