谁能给我一段有关创建一段简单的存储过程和游标识的简单代码？

Question

col02  number(10,1) not null default 10;
过程例子
create or replace procedure
(para1 in number,
para2 out number)
is
  cursor c1 is select count(*) from user_tables;
begin
  open c1;
  fetch c1 into para2;
  close c1;
  para2=para2+para1;
exception
 when others then
  raise;
end;

Answer 1

大哥我也是你那么做的
但是总告诉我少一个右括号是什么意思？（defalut 10)

Answer 2

SQL> create table dd(col01 varchar2(10),col02  number(10,1) default 10 not null );Table created

Answer 3

我就是想把这个SP改成ORA下面的
应该如何做？
create table NewJb1(
jxlb   char(4)      not null, /*机车类别*/
lbmc   varchar(40)  not null , /*项目名称*/
trans_head char(4)  not null default 0, /*传输文件抬头*/这里报错说没有右括号
col01  number(10,1) not null default 0,  /*配属机车 col01=sum(col02+col03+col05+col06-col04)*/
col02  number(10,1) not null , /*出租*/
col03  number(10,1) not null,  /*助勤出*/
修*/
)/*已经创建好机报一文件*/
if exists(select name from sysobjects where name='GetNewJb1' and type='P')
drop proc GetNewJb1
go
create proc GetNewJb1
@startrq datetime,
@endrq   datetime,
@jxlb      char(4)
as
  delete from NewJb1 
  if @jxlb is null select @jxlb=''
  insert into NewJb1(jxlb,lbmc,trans_head,col01,col02,col03,col04,
    col05,col06,col07,col08,col09,col10,col11,col12,col13,col14,
    col15,col16,col17,col18,col19,col20_H,col20,col21_H,
    col21,col22_H,col22,col23_H,col23,col24_H,col24,col25_H,col25)
  select 
    jxlb,lbmc,trans_head,col01=sum(col01),col02=sum(col02),col03=sum(col03),col04=sum(col04),
    col05=sum(col05),col06=sum(col06),col07=sum(col07),col08=sum(col08),col09=sum(col09),
    col10=sum(col10),col11=sum(col11),col12=sum(col12),col13=sum(col13),col14=sum(col14),
    col15=sum(col15),col16=sum(col16),col17=sum(col17),col18=sum(col18),
    col19=sum(col19),col20_H=sum(col20_H),col20=sum(col20),col21_H=sum(col21_H),
    col21=sum(col21),col22_H=sum(col22_H),col22=sum(col22),col23_H=sum(col23_H),
    col23=sum(col23),col24_H=sum(col24_H),col24=sum(col24),col25_H=sum(col25_H),
    col25=sum(col25)
 from NewJb1Rj where jxlb=@jxlb and tjrq>=@startrq and tjrq<=@endrq
 group by jxlb,lbmc,trans_head
 order by  jxlb,trans_head  /*计算其他*/
  update NewJb1 set col19=col20+col21+col22+col23+col24+col25 
  update NewJb1 set col07=col08+col09+col10+col11+col12+col13+col14+col15
  update NewJb1 set col06=col07+col17+col18+col19 
  update NewJb1 set col01=col02+col03+col05+col06-col04 
  update NewJb1 set col19_h=case
                              when col06 is null then 0
                              when col06=0 then 0
                              else round((col19/col06)*100,1)
                            end,
                    col20_h=case
                              when col06 is null then 0
                              when col06=0 then 0
                              else round((col20/col06)*100,1)
                            end,
                    col21_h=case
                              when col06 is null then 0
                              when col06=0 then 0
                              else round((col21/col06)*100,1)
                            end,
                    col22_h=case
                              when col06 is null then 0
                              when col06=0 then 0
                              else round((col22/col06)*100,1)
                            end,
                    col23_h=case
                              when col06 is null then 0
                              when col06=0 then 0
                              else round((col23/col06)*100,1)
                            end,
                    col24_h=case
                              when col06 is null then 0
                              when col06=0 then 0
                              else round((col24/col06)*100,1)
                            end,
                    col25_h=case
                              when col06 is null then 0
                              when col06=0 then 0
                              else round((col25/col06)*100,1)
                            end
  
  select * from NewJb1
go
grant all on GetNewJb1 to public
go

Answer 4

select @jxlb=''
  insert into NewJb1(jxlb,lbmc,trans_head,col01,col02,col03,col04,
    col05,col06,col07,col08,col09,col10,col11,col12,col13,col14,
    col15,col16,col17,col18,col19,col20_H,col20,col21_H,
    col21,col22_H,col22,col23_H,col23,col24_H,col24,col25_H,col25)对上面语句不熟，请解释,怎样得col01,...col25的值

Answer 5

insert into NewJb1(jxlb,lbmc,trans_head,col01,col02,col03,col04,
    col05,col06,col07,col08,col09,col10,col11,col12,col13,col14,
    col15,col16,col17,col18,col19,col20_H,col20,col21_H,
    col21,col22_H,col22,col23_H,col23,col24_H,col24,col25_H,col25)
  select 
    jxlb,lbmc,trans_head,col01=sum(col01),col02=sum(col02),col03=sum(col03),col04=sum(col04),
    col05=sum(col05),col06=sum(col06),col07=sum(col07),col08=sum(col08),col09=sum(col09),
    col10=sum(col10),col11=sum(col11),col12=sum(col12),col13=sum(col13),col14=sum(col14),
    col15=sum(col15),col16=sum(col16),col17=sum(col17),col18=sum(col18),
    col19=sum(col19),col20_H=sum(col20_H),col20=sum(col20),col21_H=sum(col21_H),
    col21=sum(col21),col22_H=sum(col22_H),col22=sum(col22),col23_H=sum(col23_H),
    col23=sum(col23),col24_H=sum(col24_H),col24=sum(col24),col25_H=sum(col25_H),
    col25=sum(col25)
 from NewJb1Rj where jxlb=@jxlb and tjrq>=@startrq and tjrq<=@endrq
 group by jxlb,lbmc,trans_head
 order by  jxlb,trans_head
这一整段是实现向NEWJB1中插入从NEWJB1RJ中按照条件选取的记录值，
我向问一下怎么把这个转成ORACLE下的存储过程啊？

Answer 6

针对你上面语句，在ORACLE中col01=sum(col01) 表示为SUM（COL01） AS COL01
WHERE 条件后面jxlb=@jxlb 改为JXLB=变量。例如：
create or replace procedure
(para1 in number,
para2 out number)aaa number;
bbb varchar2(10);
CCC NUMBER；
is
  cursor c1 is select A，B，C from TABLENAME WHERE 
       WHERE  A=PARA1;
begin
  open c1;
  EXIT WHEN C1%NOTFOUND
  fetch c1 into AAA，BBB，CCC;  close c1;
  para2=para2+para1;
exception
 when others then
  raise;
end;

Answer 7

不好意思，上面的例子中有语法错误的，只是大概表示了一下ORACLE中存储过程该如何写，不要硬搬。
这里自己回复的帖子发错了要怎么能够才能够修改，好象没有这个功能吧。

Answer 8

create proc GetNewJb1(
startrq date,
endrq   datet,
jxlb     varchar2)
as
str varchar2(30);
begin
str:='delete from NewJb1';
execute immediate str;
if jxlb is null then
jxlb=null;
end if;
insert into NewJb1(jxlb,lbmc,trans_head,col01,col02,col03,col04,
    col05,col06,col07,col08,col09,col10,col11,col12,col13,col14,
    col15,col16,col17,col18,col19,col20_H,col20,col21_H,
    col21,col22_H,col22,col23_H,col23,col24_H,col24,col25_H,col25)
  (select 
    jxlb,lbmc,trans_head,sum(col01),sum(col02),sum(col03),sum(col04),
    sum(col05),sum(col06),sum(col07),sum(col08),sum(col09),
    sum(col10),sum(col11),sum(col12),sum(col13),sum(col14),
    sum(col15),sum(col16),sum(col17),sum(col18),
    sum(col19),sum(col20_H),sum(col20),sum(col21_H),
    sum(col21),sum(col22_H),sum(col22),sum(col23_H),
    sum(col23),sum(col24_H),sum(col24),sum(col25_H),
    sum(col25)
 from NewJb1Rj where jxlb=jxlb and tjrq>=startrq and tjrq<=endrq
 group by jxlb,lbmc,trans_head
 order by  jxlb,trans_head);
.......
下面要进一步解释

Answer 9

To: beckhambobo(beckham) 
create or replace procedure test_proc
(
  para1 in number,
  para2 out number
)
is
  cursor c1 is select count(*) from user_tables;
begin
  open c1;
  fetch c1 into para2;
  close c1;
  para2=para2+para1;
  exception
  when others then
  raise;
end test_proc; 
/警告：创建过程带有编译错误。

Answer 10

To: beckhambobo(beckham) 
帮忙看一下。

Answer 11

To:beckhambobo(beckham)
帮忙看一下！
打扰！

Answer 12

To: beckhambobo(beckham)
祝你眼角创伤早日痊愈！
OWEN