vb6 requête ADO - afficher l'article le plus populaire

Question

Question similaire je l'ai trouvé à mySQL query - show most popular item mais j'ai besoin de peu de changements, et pour VB6 ADO.

Je veux créer une liste d'articles populaires (les plus vendus), sans plage de dates.

Un exemple de la table:

+------------+---------------------+-------+ 
| 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 | 
+------------+---------------------+-------+ 

Résultat j'ai besoin:

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

Answer 1

En supposant que vous avez déjà un 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