一个sql语句不会写,关于业务量信息登记的

jiangjinsong jiangjinsong 墨衍会员 · AI 创作全网分发 墨衍智能分发 通过墨衍一键同步至各平台 可同步平台 CSDN微信公众号微博知乎掘金百家号博客园抖音小红书 你的文章也可以这样分发 墨衍会员 ¥399起/年,写一次发全网 我也要 + 加入社区
<%
dim conn,sql,rs
set conn=Server.CreateObject("adodb.Connection")
conn.provider="microsoft.jet.oledb.4.0"
conn.open Server.MapPath("/porder/porder.mdb")
sql="select 服务日期,业务员,count(公司名称) as 业务量 from 业务信息登记 group by 服务日期"
set rs=conn.Execute(sql)
if Err.number>0 then
Response.Write(Err.Description)
end if
if rs.bof then
Response.Write "现在还有没有数据"
else
do while not rs.eof
Response.Write rs("服务日期")&"    "&rs("业务员")&"    "&rs("业务量")&"<br>"
rs.movenext
loop
end if
set rs=nothing
set conn=nothing

%>

希望有这样的效果
服务时间 业务员 业务量
2008-9-10 业务员A 10条
2008-9-10 业务员b 10条
2008-9-10 业务员c 88条
2008-9-10 业务员d 190条
2008-9-10 业务员e 12条
...................
2008-9-1 业务员b 10条
2008-9-1 业务员c 88条
2008-9-1 业务员d 190条
...全文
评论 6
收藏 已收藏
分享
返回顶部
jiangjinsong
ASP 28,401 成员 356,940 内容