读去access数据库里的循环语句问题 急~~高手们帮帮忙

时间:2021-04-05 20:44:57
那个我的表是这样的
百度       合同1
百度       合同2
谷歌       合同3
谷歌       合同4


我想点百度的时候,在一个listbox里能显示出  合同1
                                          合同2

我想点谷歌的时候,在一个listbox里能显示出  合同3
                                          合同4

这个循环语句怎么写啊 大家看看...

14 个解决方案

#1


没人会吗.........高手来帮帮忙呀

#2


做两个表,根据主外键查询不就好了!循环干嘛

#3


比如百度 我是不确定他有几个合同的 1~无穷大   第2张表怎么做

#4


使用SQL语句根据合同分组查询到数据填充到DATASET中,然后循环将DATASET中对应列的数据添加到LISTBOX.

#5


点百度的时候,以百度为条件查找不就行了

#6


引用 4 楼 asdfy 的回复:
使用SQL语句根据合同分组查询到数据填充到DATASET中,然后循环将DATASET中对应列的数据添加到LISTBOX.

可行

#7


用条件查询语句

#8


该回复于2009-07-27 16:01:11被版主删除

#9


dataset.select("column = '百度'")

#10


引用 4 楼 asdfy 的回复:
使用SQL语句根据合同分组查询到数据填充到DATASET中,然后循环将DATASET中对应列的数据添加到LISTBOX.

group by 后是不是还要加having啊?这个似乎有点绕。

#11


不需要,前面加个where子句就行了。

#12


dim myconnection as new oledbconnection("……"
dim mycommand as oledbcommand
dim myreader as oledbdatareader
Dim SQLString As String = "SELECT * FROM 表名 WHERE 字段名='百度'""
MyConnection.Open()
Mycommand = New OleDbCommand(SQLString, MyConnection)
        MyReader = Mycommand.ExecuteReader()
        While MyReader.Read
            ListBox.Items.Add(MyReader("合同的字段名"))
        End While

#13


该回复于2009-08-16 09:56:43被版主删除

#14


都去excel  里面试下在回好不好。

#1


没人会吗.........高手来帮帮忙呀

#2


做两个表,根据主外键查询不就好了!循环干嘛

#3


比如百度 我是不确定他有几个合同的 1~无穷大   第2张表怎么做

#4


使用SQL语句根据合同分组查询到数据填充到DATASET中,然后循环将DATASET中对应列的数据添加到LISTBOX.

#5


点百度的时候,以百度为条件查找不就行了

#6


引用 4 楼 asdfy 的回复:
使用SQL语句根据合同分组查询到数据填充到DATASET中,然后循环将DATASET中对应列的数据添加到LISTBOX.

可行

#7


用条件查询语句

#8


该回复于2009-07-27 16:01:11被版主删除

#9


dataset.select("column = '百度'")

#10


引用 4 楼 asdfy 的回复:
使用SQL语句根据合同分组查询到数据填充到DATASET中,然后循环将DATASET中对应列的数据添加到LISTBOX.

group by 后是不是还要加having啊?这个似乎有点绕。

#11


不需要,前面加个where子句就行了。

#12


dim myconnection as new oledbconnection("……"
dim mycommand as oledbcommand
dim myreader as oledbdatareader
Dim SQLString As String = "SELECT * FROM 表名 WHERE 字段名='百度'""
MyConnection.Open()
Mycommand = New OleDbCommand(SQLString, MyConnection)
        MyReader = Mycommand.ExecuteReader()
        While MyReader.Read
            ListBox.Items.Add(MyReader("合同的字段名"))
        End While

#13


该回复于2009-08-16 09:56:43被版主删除

#14


都去excel  里面试下在回好不好。