oracle 存储过程（帮忙看一下）

Question

Create   Or   Replace   Procedure   pppp() As   
  sql   Varchar2(8000);   
  Begin
sql:='';
sql:='select b.name,b.sex,trunc((to_char(sysdate,''yyyyMMdd'')-to_char(birthdate,''yyyyMMdd''))/10000) age,';
set sql=sql+'b.idcard,b.homephone,a.vipid,count(*) num,sum(realmoney) realmoney,';
cursor c_main is
select couternid from  resa_counter;
c_main c_mainf%rowtype;
open c_main;
loop
  fetch c_main into c_mainf;
  cid := c_mainf.counterid;
  @sql=@sql+'case when counterid='''+cid+''' then sum(realmoney) else 0 end g'''+cid+''' ';
end loop;
close c_main;
@sql=@sql+'from zx_prt_resa_09 a,RESA_CUSTOMER_def b,resa_vip c where ';
@sql=@sql+'useday>=to_date(''2004-12-31'',''yyyy-mm-dd'') and useday<=to_date(''2005-1-30'',''yyyy-mm-dd'') ';
@sql=@sql+'and b.rsacustomerid=c.rsacustomerid and a.vipid=c.vipid and rownum<10 group by b.name,b.sex,';
@sql=@sql+'trunc((to_char(sysdate,''yyyyMMdd'')-to_char(birthdate,''yyyyMMdd''))/10000),b.idcard,b.homephone,a.vipid,counterid';print @sql;
end pppp;
这是一个从Sql Server拷过来的，请大家帮忙看看转成oracle的。具体功能是列转行，中间那个游标就是为了把sql中的拼成串。

Answer 1

你是要在Oracle中实现列转行功能呢？还是要把你这个存储改成Oracle中的存储 ？

Answer 2

 sql 为关键字 改成 sqloracle  赋值方式改变 set sql = ....改为 sqloracle :=..... 字符串连接F改变 "+" 改为 "||" 变量前去掉 "@" 符号  print 改为 dbms_output.put_line

Answer 3

CREATE OR REPLACE Procedure pppp As
  sqloracle  Varchar2(8000);
  cid varchar(200);
cursor c_main is select couternid from  resa_counter;;
c_mainf c_main%rowtype;
Begin
sqloracle:='';
sqloracle:='select b.name,b.sex,trunc((to_char(sysdate,''yyyyMMdd'')-to_char(birthdate,''yyyyMMdd''))/10000) age,';
sqloracle:=sqloracle+'b.idcard,b.homephone,a.vipid,count(*) num,sum(realmoney) realmoney,';
open c_main;
fetch c_main into c_mainf;
while c_main%found 
loop
  cid := c_mainf.counterid;  sqloracle:=sqloracle||'case when counterid='''||cid||''' then sum(realmoney) else 0 end g'''||cid||''' ';
  exit when c_main%notfound;
end loop;
close c_main;
sqloracle:=sqloracle||'from zx_prt_resa_09 a,RESA_CUSTOMER_def b,resa_vip c where ';
sqloracle:=sqloracle||'useday>=to_date(''2004-12-31'',''yyyy-mm-dd'') and useday <=to_date(''2005-1-30'',''yyyy-mm-dd'') ';
sqloracle:=sqloracle||'and b.rsacustomerid=c.rsacustomerid and a.vipid=c.vipid and rownum <10 group by b.name,b.sex,';
sqloracle:=sqloracle||'trunc((to_char(sysdate,''yyyyMMdd'')-to_char(birthdate,''yyyyMMdd''))/10000),b.idcard,b.homephone,a.vipid,counterid';dbms_output.putline(sqloracle);
commit;
end;

Answer 4

Create  Or  Replace  Procedure  pppp() As  //这里不需要括号
  sql  Varchar2(8000);  //变量名最好加个前缀，比如var_等，避免不知道的情况下与关键字冲突了
  Begin
sql:='';
sql:='select b.name,b.sex,trunc((to_char(sysdate,''yyyyMMdd'')-to_char(birthdate,''yyyyMMdd''))/10000) age,';
//age的算法有问题。
set sql=sql+'b.idcard,b.homephone,a.vipid,count(*) num,sum(realmoney) realmoney,';
//没有用set方式的，用 sql :=sql|| ....; 来连接两个字符串
cursor c_main is
select couternid from  resa_counter;
c_main c_mainf%rowtype;
open c_main;
loop
  fetch c_main into c_mainf; 
  //这里应加上 exit when c_main%notfound; 来检测游标滚到末尾时退出，否则你这个循环到最后会报错。
  cid := c_mainf.counterid; //这里写错了，少了个n，并且cid也没有定义
  @sql=@sql+'case when counterid='''+cid+''' then sum(realmoney) else 0 end g'''+cid+''' ';
//这句一样，直接sql:=sql||来连接
end loop;
close c_main;
@sql=@sql+'from zx_prt_resa_09 a,RESA_CUSTOMER_def b,resa_vip c where '; //同上修改赋值语句
@sql=@sql+'useday>=to_date(''2004-12-31'',''yyyy-mm-dd'') and useday <=to_date(''2005-1-30'',''yyyy-mm-dd'') ';//同上修改赋值语句
@sql=@sql+'and b.rsacustomerid=c.rsacustomerid and a.vipid=c.vipid and rownum <10 group by b.name,b.sex,';//同上修改赋值语句
@sql=@sql+'trunc((to_char(sysdate,''yyyyMMdd'')-to_char(birthdate,''yyyyMMdd''))/10000),b.idcard,b.homephone,a.vipid,counterid';//同上修改赋值语句print @sql; //应用dbms_output.put_line(sql);来打印。需要在执行前set serveroutput on，才能看到。
end pppp; 

Answer 5

现在语句是好使了，可是在执行时提示line length overflow,limit of 255 bytes per line,应该怎么解决呀

Answer 6

dbms_output.put_line最长支持255个字符，你的太长。怎么改不晓得。

Answer 7

纠正--不懂的不要乱说 ：
dbms_output.put_line最长支持255个字符
你自己查查再跟别人讲好么......

Answer 8

sql  Varchar2(8000);  
不对哦

Answer 9

TO  crazylaa刚工作，还只能模仿着别人的过程写自己的，你的讲解很好，谢谢！

Answer 10

]“疯狂的程序员”YY语音交流。 
                YY频道：26831170