vb6 ADO query - показать самый популярный предмет

Question

Подобный вопрос я нашел на запросе MySQL - показать самый популярный элемент , но мне нужны небольшие изменения, и для 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