vb6 ADO 查询 - 显示最受欢迎的项目答案

【问题标题】：vb6 ADO query - show most popular itemvb6 ADO 查询 - 显示最受欢迎的项目
【发布时间】：2010-11-28 00:08:00
【问题描述】：

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

【问题讨论】：

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

标签： vb6 ado

【解决方案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

【讨论】：