如何在无法执行SQL的Recordset中统计列的不同值数量

嘿，这个问题我碰到过！既然没法直接对Recordset执行SQL分组统计，咱们完全可以用代码手动实现去重计数，下面给你两种常用的方案，适配不同的开发环境：

方法一：用字典去重计数（VBA/经典ASP场景） #

这是处理ADO Recordset最常用的方式，利用字典的键唯一性来自动过滤重复值：

Function GetDistinctCount(rs As ADODB.Recordset, colName As String) As Long
    Dim valueDict As Object
    Set valueDict = CreateObject("Scripting.Dictionary")
    
    ' 确保游标在数据集开头
    If Not rs.BOF Then rs.MoveFirst
    
    Do While Not rs.EOF
        Dim currentVal As Variant
        currentVal = rs(colName).Value
        
        ' 可选：如果要排除空值，加上 IsNull(currentVal) 判断
        If Not valueDict.Exists(currentVal) Then
            valueDict.Add currentVal, 1 ' 值可以随便设，我们只关心键的数量
        End If
        
        rs.MoveNext
    Loop
    
    GetDistinctCount = valueDict.Count
    ' 把游标移回开头，避免影响后续对Recordset的操作
    rs.MoveFirst
End Function

使用的时候直接调用 GetDistinctCount(你的Recordset对象, "tag") 就能得到5啦。这个方法的优势是不需要额外依赖，处理几万条数据也不会太慢。

方法二：LINQ查询（.NET环境） #

如果是在C#/VB.NET里，可以先把Recordset转成DataTable，再用LINQ快速统计：

// 先将Recordset加载到DataTable
DataTable dataTable = new DataTable();
dataTable.Load(你的Recordset对象);

// 统计"tag"列的不同值数量
int distinctCount = dataTable.AsEnumerable()
                             .Select(row => row["tag"])
                             .Distinct()
                             .Count();

这种写法非常简洁，LINQ会帮我们处理去重和计数的逻辑，代码可读性很高。

小提示 #

如果目标列可能存在NULL值，记得根据需求决定是否要将其计入统计：

• 如果要排除空值，在VBA里加And Not IsNull(currentVal)的判断；在.NET的LINQ里可以加.Where(row => row["tag"] != DBNull.Value)。

内容的提问来源于stack exchange，提问作者bm00