vb6 ADO查询-显示最常用项

我在网站上发现了类似的问题 但是我需要一些修改，对于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 |
+------------+------------+-------+

---

假设您已经有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

---

你的数据库是什么类型的？前端技术并不重要，在thgis的情况下，重要的是数据库及其所基于的sql方言。通过在VB6中使用ODBC，您可以从任何数据库检索数据。