VB怎么样查询出几个结果

[beyondgo]

我有一个表list如下:
A
1
2
2
3
6
9
8

数据库连接如下:
Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\TM.mdb;Persist Security Info=False"
Adodc1.RecordSource = "select count(A) from list where A= 8"
Adodc1.Refresh
Text1.Text = Adodc1.Recordset.Fields(0)

我现在可以查询A字段中8出现的次数.


我的目标是:想查询出,1,2 ,3等数字出现的次数.
在几个TEXT中显示出来.

[beyondgo]

顶啊,有没有人来啊

[beyondgo]

一次可以执行如下的查询就好了
a1 = select aount(A) form list where A= 10 or a=11 .....
a2 = select aount(A) form list where A= 20 or a=11 .....
a3 = select aount(A) form list where A= 30 or a=11 .....

用什么方法都行,只要方便就行,
能用就行

[tongnaifu]

select count(A) from list where A in(1,2,3,4)

[beyondgo]

[Quote=引用 7 楼 beyondgo 的回复:]
一次可以执行如下的查询就好了
a1 = select aount(A) form list where A= 10 or a=11 .....
a2 = select aount(A) form list where A= 20 or a=11 .....
a3 = select aount(A) form list where A= 30 or a=11 .....

用什么方法都行,只要方便就行,
能用就行
[/Quote]

SQL语句我知道,我想知道在VB里怎么实现.

[clear_zero]

Adodc1.RecordSource = "select A,count(A) as c from list group by A"
Adodc1.Refresh
while not Adodc1.RecordSourc.eof
text1(Adodc1.Recordset.Fields("A")).text=Adodc1.Recordset.Fields("c") '用text1控件数组
Adodc1.RecordSourc.movenext
wend

[LWMWORK]

做text控件数组，试试
for i=0 to 9
Adodc1.RecordSource = "select count(A) from list where A= " & i
Adodc1.Refresh
Text1(i).Text = Adodc1.Recordset.Fields(0)
next

[tongnaifu]

2楼可以

[vbman2003]

    Adodc1.RecordSource  =  "select A,count(A) as c from list group by A"
    Adodc1.Refresh 
    while not Adodc1.RecordSourc.eof  
        text1(rs!A).text=rs!c     '用text1控件数组
        Adodc1.RecordSourc.movenext
    wend

[vbman2003]

错了：

    Adodc1.RecordSource  =  "select A,count(A) as c from list group by A"
    Adodc1.Refresh 
    while not Adodc1.RecordSourc.eof  
        text1(Adodc1.Recordset.Fields("A")).text=Adodc1.Recordset.Fields("c")      '用text1控件数组
         Adodc1.RecordSourc.movenext
    wend

没用过Adodc，用习惯了ADO对象...

[beyondgo]

用数组的形式是可以的,如果没有别的更快的方法也只有用这种方法的
我的数字比较多,如果一次可以查几个数的就好了