[导入]在SYBASE数据库中使用游标(Cursors)将多行查询结果进行逐行处理
在SYBASE数据库中使用游标(Cursors)将多行查询结果进行逐行处理
2000-08-16 14:47:33
在SYBASE数据库中,说明性数据库语言(SQL)是目前首推的最成功,应用最广泛的数据库语言,它已成为关系型数据库语言的国际标准。这主要得益于它的两大优点:一是免除了用户描述操作过程的麻烦,而将其转嫁给系统,系统可根据用户所提出的要求,确定一个有效的操作过程,二是其语言本身接近英语的自然语言,易学易用,很受用户欢迎。尽管如此,SQL语言一般局限于对数据库的操作,本身不是计算完备的语言,如在变量类型上不像高级程序设计语言(如:C语言)有如数组、指针等一些复杂变量类型;另外该语言是面向集合的语言(set_oriented languase),即执行一条语句可以一次性地提供所需的所有元组,可是在实际编程时我们需要对这些元组逐个地赋值给相关变量,根据条件分别处理。目前解决此类问题办法是将SQL语言嵌入到高级程序设计语言中,利用高级程序设计语言处理数据能力强的优点,与SQL语言对数据库直接操作的特点相结合,共同完成,这在一定程度上,既增加编写程序的难度,又使整个程序繁琐。下面我向大家介绍在新版SYBASE数据库中,增加的工具游标,使用它可以方便地实现将多行查询结果进行逐行处理。
一、首先介绍游标的功能、相应的操作命令、变量及工作流程
游标(cursor)主要功能是用select查询语句,得到的多行数据结果,一次一行地送至需要调用的存储过程或宿主程序中,最初游标指向第一行数据,将这行数据送至存储过程或宿主程序中,然后游标又指向下一行数据,这样一直循环下去,直至所有的数据全部调用完毕,它可以方便灵活地修改或删除游标所在行的数据。
游标的机制由以下五条语句及两个全局变量来完成。
1、说明语句。对一个游标进行命名,并将它与相应的查询语句相联系。
语法是:declare cursor_name cursor for select_statement
其中:select_statement是一个SELECT语句,这个语句返回多行结果数据,它不允许有INTO子句和COMPUTE子句存在。
2、打开游标语句。执行与游标相联系SQL查询语句,并将查询结果置于游标中。
语法是:open cursor_name
3、取数语句。用来从打开的游标中检索数据,并将这些数据赋给宿主变量。在每次执行取数语句时,首先将游标向前推进一位,然后按照游标当前位置取一值,并对相应变量赋值。
语法是:fetch cursor_name into: host_ vavriable,……
4、关闭游标语句。当取数完毕或者发生错误时,一定要关闭游标。否则下次调用游标将出错。
语法是:close cursor_name
5、 删除游标语句,该语句主要是将游标调用的内存资源释放。
语法是:dellocate cursor_name
全局变量:@@rowcount;使用取数语句返回行值数。
@@sql status 取数返回状态变量,值有三个:
0表示取数成功。
1表示取数结果错误。
2表示没有可取的数。
游标的工作流程图如下:
二、接下来这个程序是我运用游标功能,编写的计算定期存款应付利息的程序。
该程序由两个存储过程组成,需要调用定期存款表(t_dqcd)和利率表(t_ll)的数据,由于每笔存款金额、存期、适用利率、开户日不同,在进行计算定期存款应付利息时,只能按户逐笔进行。
第一个存储过程主要是执行游标操作语句,提出输入参数“帐号”,并调用存储过程“单帐号应付利息”,得出输出参数“单帐户利息值”,并对其进行累加,直到算出所有帐户的应付利息。
具体程序如下:
print 'install yflx.....'
go
drop proc yflx
go
create proc yflx
@we money output
as
declare c1 cursor for /*说明游标C1 */
select wh from t_dqcd where zhzt <> '1'
declare @iwh char(9)
declare @wh char(9)
declare @hzs char(12)
declare @ff money
declare @jj money
open c1 /*打开游标*/
select @jj = 0.00 /*赋初值为0*/
fetch c1 into @iwh /*提出游标数据给变量*/
while @@sqlstatus != 2
begin
if @@sqlstatus =1
begin
raiserror 20001 "select fail"
return
end
exec dhlx @wh=@iwh,@dhlx=@ff output /*调动存储过程*/
select @jj = @jj + @ff
fetch c1 into @iwh
end
select @we = @jj/*将汇总数付给输出变量*/
close c1/*关闭游标*/
deallocate cursor c1/*删除游标*/
go
第二个存储过程主要根据游标所提取的帐号运用sql查询语句,算出实际存期和当时挂牌利率,最终算出该帐户的应付利息。
计算公式为:
未到期定期储蓄存款
应付利息=本金×实际天数×存入时挂牌利率
逾期定期储蓄存款
应付利息=本金×存期×存入入时挂牌利率+本金×逾期天数×现行活期挂牌利率
具体程序如下:
print 'install dhlx .....'
go
drop proc dhlx
go
create proc dhlx
@wh char(9),
@dhlx money output
as
declare @ts smallint
declare @yflx money
declare @cts char(9)
declare @hqll float
declare @bcc char(5)
declare @zhbcc char(2)
declare @sbcc smallint
declare @khrq smallint
select @bcc=bcc from t_dqcd where wh=@wh
select @zhbcc=substring(@bcc,3,2)
select @sbcc= convert(int,@zhbcc)
select @ts=(datediff(mm,(select qxr from t_dqcd where wh =@wh),getdate())*30 + datepart(dd,getdate()) - datepart(dd, (select qxr from t_dqcd where wh=@wh))) from t_dqcd where wh=@wh /*计算实际存取天数*/
select @cts = convert(char, @ts)
select @hqll=ll from t_ll where bcc='12000' and rq=(select max(rq) from t_ll)
if @ts < @sbcc*30 /*检查该存款是否到期*/
select @yflx=round(((select bjje from t_dqcd where wh=@wh)*(select ll from t_ll where bcc=(select bcc from t_dqcd where wh=@wh)and rq=(select max(rq) from t_ll where bcc=(select bcc from t_dqcd where wh =@wh) and rq !> (select khr from t_dqcd where wh=@wh)))*(datediff(mm,(select qxr from t_dqcd where wh
=@wh),getdate())*30 + datepart(dd,getdate()) - datepart(dd,(select qxr from t_dqcd where wh=@wh)))/30000),2) from t_dqcd where wh=@wh
else
select @yflx=round((((select bjje from t_dqcd where wh=@wh)*(select ll from t_ll where bcc=(select bcc from t_dqcd where wh=@wh)and rq=(select max(rq) from t_ll where bcc=(select bcc from t_dqcd where wh =@wh) and rq !> (select qxr from t_dqcd where wh=@wh)))*@sbcc)/1000+((select bjje from t_dqcd where wh=@wh)*@hqll*(@ts-@sbcc*30))/30000),2) from t_dqcd where wh=@wh
select @dhlx=@yflx
go
总结:由于在程序中用游标对多行查询结果进行逐行处理,保证了使用SYBASE数据库查询语句进行子查询时返回值唯一,使整个程序结构简练、条理清晰。
摘自《赛迪网》 米晓华/文
http://tech.china.com/zh_cn/netschool/programme/sybase/4021/20000816/220619.htm
文章来源:http://computer.mblogger.cn/wucountry/posts/41605.aspx
/\_/\
(=^o^=) Wu.Country@侠缘
(~)@(~) 一辈子,用心做一件事!
--------------------------------
学而不思则罔,思而不学则怠!
================================
posted on 2005-07-14 18:26 Wu.Country@侠缘 阅读(1530) 评论(0) 编辑 收藏 举报