请教用SQL语句统计出勤天数

suosuody · 发表于 2011-3-22 10:31

现有一个CL表，里面记录的是工人每天做的品种及产量。现要求根据产量记录，统计每个人的出勤天数，人员不要重复。每个人每天可能做多种规格的产品，也即同一天有几笔产量记录，但考勤只算一天。只要某天有产量，那这个人就有一天的考勤。请问如何用SQL语句统计出出勤天数？谢谢！详情见附件里的CL表
现举一个简单的例子：

日期工号姓名品种产量
2011-1-4 101 张 A 500
2011-1-4 101 张 B 300
2011-1-5 102 李 A 50
2011-1-5 101 张 A 300
2011-1-5 102 李 B 200
2011-1-5 102 李 C 100
那么张的出勤天数应该为：2，李出勤天数为1

suosuody · 发表于 2011-3-22 10:34

附件太大，传不上来。改成EXCEL表格形式了。请大家帮忙写个SQL语句，谢谢！！

zez · 发表于 2011-3-22 10:47

SELECT 姓名, Count(姓名) AS 出勤天数 FROM (SELECT 日期, 工号, 姓名 FROM Sheet1 GROUP BY 日期, 工号, 姓名) as A GROUP BY A.姓名 HAVING (((A.姓名) Is Not Null))

eqzh · 发表于 2011-3-22 10:53

select 姓名,count(日期) as 出勤 from (select 姓名,日期,sum(产量) from [Sheet1$] group by 姓名,日期) group by 姓名

cbtaja · 发表于 2011-3-22 11:02

。。。。。。。。。。。。。

ctp_119 · 发表于 2011-3-22 12:36

Sql = "select 工号,count(distinct 日期) as 天数 from [sheet1$] group by 工号"
为什么这条语句报错，真是想不通，望高手解答。

roych · 发表于 2011-3-22 23:02

用交叉表做也许更直观些：
TRANSFORM IIf(Count([Sheet1]![ID])>=1,"是","否") AS 是否出勤
SELECT Sheet1.工号, Sheet1.姓名
FROM Sheet1
GROUP BY Sheet1.工号, Sheet1.姓名
PIVOT Sheet1.日期;

产量表.rar (49.06 KB, 下载次数: 13)

suosuody · 发表于 2011-3-24 11:14

原帖由 ctp_119 于 2011-3-22 12:36 发表
Sql = "select 工号,count(distinct 日期) as 天数 from [sheet1$] group by 工号"
为什么这条语句报错，真是想不通，望高手解答。

网上查了下 count(distinct)好像只适合用于Oracle sql server 不适用ACCESS

ctp_119 · 发表于 2011-3-24 13:14

几经周折，终于调试成功，，呵呵，好高兴呀！
Sub zaizhitianshu()
Dim objcn As New ADODB.Connection
Dim sql As String
Dim sql2 As String
Sheet2.Cells.Clear
Sheet2.[a1:c1] = Array("工号", "姓名", "天数")
objcn.Open "provider=microsoft.jet.oledb.4.0;extended properties=excel 8.0;data source= " & ThisWorkbook.FullName
sql = "select distinct 日期 as 日期,工号 as 工号, 姓名 as 姓名 from [sheet1$] group by 工号,姓名,日期"
sql2 = "select 工号, 姓名,count(日期) as 天数 from (" & sql & ") group by 工号,姓名"
Sheet2.[A2].CopyFromRecordset objcn.Execute(sql2)
objcn.Close
Set objcn = Nothing
Sheet2.Activate
End Sub
具体情况附件。

suosuody · 发表于 2011-3-24 14:40

原帖由 ctp_119 于 2011-3-24 13:14 发表
几经周折，终于调试成功，，呵呵，好高兴呀！
Sub zaizhitianshu()
Dim objcn As New ADODB.Connection
Dim sql As String
Dim sql2 As String
Sheet2.Cells.Clear
Sheet2.[a1:c1] = Array("工号", "姓名", "天 ...

谢谢我来研究一下

		自动登录	找回密码
密码			免费注册

[求助] 请教用SQL语句统计出勤天数