oracle 更新游标记录,oracle中利用游标更新表中的记录集

前几天，一个朋友找我帮忙，叫我帮他写一个oracle语句，需求如下：他有一张表，里面a,b,money字段，a字段有些值是相等的，b有很多记录，其中有些记录是2,3，他想将a值相同的记录，b=2的money更新为b=3的记录的money加上b=2的money总和,而将b=3的记录里面的money的值更新为0,我考虑了一下,

第一步：

首先要将 a1=a2 并且b=3的记录查出来，而这个记录集是包含多条记录

第二步：

既然是个记录集，就不能简单的“=”了事，要遍历才行，但是遍历的话一般用游标是个不错的选择

第三步：

编写sql

见表语句如下：

create table TEST1

(

TID       VARCHAR2(20),//主键

TNAME     VARCHAR2(20),//名称

TMONEY    NUMBER,//金额

TCODE     NUMBER,//编号

TPRO_CODE VARCHAR2(20)//厂家代码

)；

//以下是利用游标来遍历重复的记录行数,并更新表中金额的数据(以下语句纯属个人学习所用，有不当的地方，还请各位指教)

declare

v_cur test1%rowType;//声明游标的类型为表类型

cursor p_ret is  select distinct a.tid,a.tname,a.tmoney,a.tcode,a.tpro_code

from test1 a join test1 b on a.tpro_code = b.tpro_code and a.tcode = 3;//利用内连接查询(用这种方法只能用内连接，用外连接是不对的)，并用distinct来去掉重复的行数

begin

open p_ret ;//打开游标，显示的游标需要手动的打开关闭

loop        //循环开始

fetch p_ret into v_cur;  //将值赋到v_cur中

//==========当游标退出之前还会到这里执行一次，因此更新的语句不能写在此处，比如你游标明明只有两条记录，但是它会在这里执行三次的

exit when p_ret%NOTFOUND;//游标中没有值的时候退出

dbms_output.put_line('tid :'||v_cur.tid||' tname :'||v_cur.tname||' tmoney :'||v_cur.tmoney||' tcode :'||v_cur.tcode);  //打印测试值

update test1 a set a.tmoney = v_cur.tmoney + a.tmoney where a.tpro_code = v_cur.tpro_code and a.tcode = 2;   //将tcode =2 的金额更新为 2和3的总金额

update test1 b set b.tmoney = 0 where b.tpro_code = v_cur.tpro_code and b.tcode = 3;//将tcode的金额更新为0

end loop;

commit;

close p_ret ;

end;

第二种：

declare v_cur test1%rowType; cursor p_ret is  select a.tid,a.tname,a.tmoney,a.tcode,a.tpro_code from test1 a  join (        select c.tpro_code,count(*) cnt from test1 c group by c.tpro_code having count(*)>1        ) b on a.tpro_code = b.tpro_code and a.tcode = 3;//第二种方法与第一种大致相同，只是在找出重复行的时候的的方法不通而已，先用group by对厂商编号进行分组然后再查出条件为3的记录集 begin   open p_ret ;        loop           fetch p_ret into v_cur;           exit when p_ret%NOTFOUND;              dbms_output.put_line('tid :'||v_cur.tid||' tname :'||v_cur.tname||' tmoney :'||v_cur.tmoney||' tcode :'||v_cur.tcode);              update test1 a set a.tmoney = v_cur.tmoney + a.tmoney where a.tpro_code = v_cur.tpro_code and a.tcode = 2;              update test1 b set b.tmoney = 0 where b.tpro_code = v_cur.tpro_code and b.tcode = 3;          end loop;         commit;   close p_ret ; end;