vb6 ADOクエリ - 最も人気のあるアイテムを表示

Question

類似した質問mySQL query - show most popular item で見つけましたが、私はほとんど変更が必要ではなく、VB6 ADOのためです。

普及している（最も売れている）アイテムのリストを作成したいのですが、日付範囲はありません。

テーブルの例：私は必要

+------------+---------------------+-------+ 
| date  | item    | qty | 
+------------+---------------------+-------+ 
| 2009-08-02 | Apple    |  5 | 
| 2009-08-03 | Pear    |  2 | 
| 2009-08-04 | Peach    |  4 | 
| 2009-08-05 | Apple    |  1 | 
| 2009-08-06 | Apple    |  3 | 
+------------+---------------------+-------+ 

結果：

+------------+------------+-------+ 
| sl| item |   | total | 
+------------+------------+-------+ 
| 1 | Apple |   |  9 | 
| 2 | Peach |   |  4 | 
| 3 | Pear |   |  2 | 
+------------+------------+-------+ 

Answer 1

すでにADODB.Connectionのを持っていると仮定すると：

Dim oRS as New ADODB.Recordset 
dim sSql as string 

sSql = "SELECT item, SUM(qty) FROM myTable GROUP BY item ORDER BY Item" 
oRS.Open sSql, oDBConn, adOpenForwardOnly, adLockReadOnly 
Do While Not oRS.EOF 
    '// Do something with the data' 
    oRS.MoveNext 
Loop 
oRS.Close