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