如何统计字段的内容和计数

renyucai1963

因数据量很大，需用VBA来完成，先谢谢关注的朋友们。

Henry D. Sy

1. Public Function Gstr(lngV As Long) As String
   
2.     Dim rs As New ADODB.Recordset
   
3.     Dim intCount As Integer
   
4.     Dim strSQL As String
   
5. 
   
6.     strSQL = "select 和值 from 表1 where 和值=" & lngV
   
7.     rs.Open strSQL, CurrentProject.Connection, adOpenKeyset, adLockReadOnly
   
8.     intCount = rs.RecordCount
   
9.     Gstr = lngV & "-" & intCount
   
10.     rs.Close
    
11.     Set rs = Nothing
    
12. 
    
13. End Function
    

复制代码

1. SELECT 表1.*, Gstr([和值]) AS 个数和次数
   
2. FROM 表1;

复制代码

Henry D. Sy

如果不考虑数据量用dcount也行

renyucai1963

Henry D. Sy 发表于 2012-10-15 15:00
如果不考虑数据量用dcount也行

版主，费心，请把代码写出来，因不太明白。

renyucai1963

Henry D. Sy 发表于 2012-10-15 15:00
如果不考虑数据量用dcount也行

Henry D. Sy

renyucai1963 发表于 2012-10-15 15:15

分组查询

Henry D. Sy

1. SELECT DISTINCT A.和值, A.个数和次数
   
2. FROM A;

复制代码

A就是上面那个查询

Henry D. Sy

renyucai1963 发表于 2012-10-15 15:07
版主，费心，请把代码写出来，因不太明白。

如果用dcount

1. SELECT DISTINCT 表1.和值, [和值] & "-" & DCount("和值","表1","和值=" & [和值]) AS 个数和次数
   
2. FROM 表1

复制代码

Henry D. Sy

liangshu-fu

谢谢版主。