1,216
社区成员
发帖
与我相关
我的任务
分享
select distinct name from [user] t1 where not contains(name,'迟到');
select name,count(1)
from user
where 考勤日期 between (起始日期,结束日期)
group by name
having count(1) = 考勤日期范围内的工作日天数
Set conn = createobject("adodb.connection")
conn.open "provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\BaiduNetdiskDownload\testsql\database1.mdb"
Set rs = createobject("adodb.recordset")
rs.open "select distinct name from [user] t1 where (select count(name) from [user] t2 where t1.name=t2.name and status='迟到')=0",conn,1,3
rs.movefirst
While Not rs.eof
msgbox rs("name")
rs.movenext
Wend
Set conn = createobject("adodb.connection")
conn.open "provider=Microsoft.Jet.OLEDB.4.0;Data Source=d:\我的文件\文档\database1.mdb"
Set rs = createobject("adodb.recordset")
rs.open "select * from [user] where status<>'迟到'",conn,1,3
rs.movefirst
While Not rs.eof
msgbox rs("status")
rs.movenext
Wend