28,406
社区成员
发帖
与我相关
我的任务
分享
'````````````数据库连接省略`````````
y="2009"
m1=1
m2=11
userid=session("userid")
uid=6
set cmd=server.CreateObject("adodb.command")
with cmd
.activeconnection=conn
.commandText="getChukuList"
.commandType=4
.prepared=true
.parameters.append .CreateParameter("@Y",200,1,10,y)
.parameters.append .CreateParameter("@m1",3,1,4,m1)
.parameters.append .CreateParameter("@m2",3,1,4,m2)
.parameters.append .CreateParameter("@userid",3,1,4,userid)
.parameters.append .CreateParameter("@uid",3,1,4,uid)
set rs=.execute'创建记录集,用循环调用就死机
end with
do while not rs.eof
response.Write(rs("pubtime")&"<br>")
rs.movenext
loop
rs.close
set rs=nothing
cmd.close
set cmd=nothing
create procedure [dbo].[getChukuList]
(
@y varchar(10),
@m1 int,
@m2 int,
@userid int,
@uid int
)
as
declare @class_name varchar(50)
declare @gg varchar(10)
declare @dw varchar(5)
declare @values float
declare @num int
declare @cv float
declare mycur cursor--游标名mycur
for
-----查询chuku表中符合条件的class_name,gg,dw,values;有多个组数据
select class_name,gg,dw,[values],num=isnull(sum(num),0),cv=isnull(sum([values]*num),0)
from chuku as a
where year=@y and month>=@m1 and month<=@m2 and userid=@userid and uid=@uid and isuse=0 and isdrop=0
group by class_name,gg,dw,[values]
--打开游标mycur
open mycur
fetch next from mycur into @class_name,@gg,@dw,@values,@num,@cv
while (@@Fetch_status=0)
begin
-----跟据上面SQL查询结果的条件查询chuku表中符合条件的pubtime,num,month;有多个组数据
select pubtime,num,month
from chuku
where class_name=@class_name and gg=@gg and [values]=@values and year=@y and month>=@m1 and month<=@m2 and userid=@userid and uid=@uid and isuse=0 and isdrop=0
fetch next from mycur into @class_name,@gg,@dw,@values,@num,@cv
end
close mycur
deallocate mycur