Office中国论坛/Access中国论坛

标题: 如何统计字段的内容和计数 [打印本页]
作者: renyucai1963    时间: 2012-10-15 14:39
标题: 如何统计字段的内容和计数
本帖最后由 renyucai1963 于 2012-10-15 14:42 编辑

[attach]50516[/attach]

[attach]50515[/attach]

因数据量很大，需用VBA来完成，先谢谢关注的朋友们。
作者: Henry D. Sy    时间: 2012-10-15 14:55
  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

  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

  13. End Function
复制代码
  1. SELECT 表1.*, Gstr([和值]) AS 个数和次数
  2. FROM 表1;
复制代码
[attach]50517[/attach]
作者: Henry D. Sy    时间: 2012-10-15 15:00
如果不考虑数据量用dcount也行
作者: renyucai1963    时间: 2012-10-15 15:07
Henry D. Sy 发表于 2012-10-15 15:00
如果不考虑数据量用dcount也行

版主，费心，请把代码写出来，因不太明白。
作者: renyucai1963    时间: 2012-10-15 15:15
Henry D. Sy 发表于 2012-10-15 15:00
如果不考虑数据量用dcount也行

[attach]50518[/attach]

作者: Henry D. Sy    时间: 2012-10-15 15:30
renyucai1963 发表于 2012-10-15 15:15

分组查询
作者: Henry D. Sy    时间: 2012-10-15 15:32
  1. SELECT DISTINCT A.和值, A.个数和次数
  2. FROM A;
复制代码
A就是上面那个查询
作者: Henry D. Sy    时间: 2012-10-15 15:36
renyucai1963 发表于 2012-10-15 15:07
版主，费心，请把代码写出来，因不太明白。

如果用dcount
  1. SELECT DISTINCT 表1.和值, [和值] & "-" & DCount("和值","表1","和值=" & [和值]) AS 个数和次数
  2. FROM 表1
复制代码
作者: Henry D. Sy    时间: 2012-10-15 15:38
[attach]50519[/attach]
作者: liangshu-fu    时间: 2012-10-15 16:27
谢谢版主。



欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/) Powered by Discuz! X3.3