oracle 存储过程实现增删改查

公司一个项目没有接触过oracle的程序员准备的一个oracle如何使用proc实现增删改查，简单示例:

create table t1

(

sid number not null primary key,

sname varchar2(10)

)

tablespace test;

----1.insert

create or replace procedure proc_insert

(

sid number,

sname varchar2

)

is

begin

insert into scott.t1(sid,sname) values(sid,sname);

dbms_output.put_line(' 影响的行数： '||sql%rowcount);

commit;

end

;

set serveroutput on

exec proc_insert(103,'snow');

----2.update

create or replace procedure proc_update

(

isid in number ,

nsname in varchar2

)

is

begin

update scott.t1 set sname=nsname where sid=isid;

If SQL%Found Then

DBMS_OUTPUT.PUT_LINE('更新成功！');

Else

DBMS_OUTPUT.PUT_LINE('更新失败！');

End If;

commit;

end

;

set serveroutput on

exec proc_update(101,'ocpyang');

----3.delete

create or replace procedure proc_delete

(

isid in number

)

is

begin

delete scott.t1 where sid=isid;

If SQL%Found Then

DBMS_OUTPUT.PUT_LINE('删除成功！');

Else

DBMS_OUTPUT.PUT_LINE('删除失败！');

End If;

commit;

end

;

set serveroutput on

exec proc_update(101);

--------------4.select

--4.1变量(select ....into)：单行查询操作

create or replace procedure proc_select0

(isid in t1.sid%type ) --输入参数

as

osid t1.sid%type; --变量

osname t1.sname%type; --变量

begin

select sid,sname into osid, osname from t1 where sid=isid;

dbms_output.put_line(' 编号为 '||osid|| ' , 的职工姓名为 '||osname );

exception

when no_data_found then

dbms_output.put_line('没有符合条件的记录！');

when too_many_rows then

dbms_output.put_line('返回的行数太多！');

when others then

dbms_output.put_line('发生意外错误！');

end;

set serveroutput on

exec proc_select0 (101);

---4.2显示游标：返单行单列记录

create or replace procedure proc_select1

(isid in t1.sid%type ) --输入参数

as

cursor a is select sname from t1 where sid=isid;

osname t1.sname%type;

begin

open a;

fetch a into osname;

if a%found then

dbms_output.put_line( '的职工姓名为:'||osname ); --游标结果集中只有一列

else

dbms_output.put_line('没有符合条件的记录！');

end if;

close a;

end;

set serveroutput on

exec proc_select1 (101);

--4.3显示游标：返回单行多列记录

create or replace procedure proc_select2

(isid in t1.sid%type ) --输入参数

as

cursor a is select * from t1 where sid=isid ;

osname t1%rowtype;

begin

open a;

fetch a into osname;

if a%found then

dbms_output.put_line( '职工的编号为:'||osname.sid||';'||'的职工姓名为 '||osname.sname );

else

dbms_output.put_line('没有符合条件的记录！');

end if;

close a;

end;

set serveroutput on

exec proc_select2 (101);

---4.4显示游标(loop循环)：返回多行多列记录

/*

exit when语句一定要紧跟在fetch之后。必避免多余的数据处理。

处理逻辑需要跟在exit when之后。这一点需要多加小心。

循环结束后要记得关闭游标。

*/

create or replace procedure proc_select3

--(isid in t1.sid%type ) --输入参数

as

cursor a is select * from t1 ;

osname t1%rowtype;

begin

open a;

fetch a into osname;

loop

dbms_output.put_line( '职工的编号为:'||osname.sid||';'||'的职工姓名为 '||osname.sname );

fetch a into osname;

exit when a%notfound;

end loop;

close a;

end;

set serveroutput on

exec proc_select3 ;

---4.5显示游标(while....loop循环)：返回多行多列记录

/*

游标打开后，必须执行一次fetch语句，游标的属性才会起作用。所以使用while 循环时，

就需要在循环之前进行一次fetch动作。

而且数据处理动作必须放在循环体内的fetch方法之前。循环体内的fetch方法要放在最后。否则就会多处理一次。

while循环是游标里最复杂的一种.

*/

create or replace procedure proc_select4

--(isid in t1.sid%type ) --输入参数

as

cursor a is select * from t1 ;

osname t1%rowtype;

begin

open a;

fetch a into osname;

while a%found loop --循环之前做个fetch

dbms_output.put_line( '职工的编号为:'||osname.sid||';'||'的职工姓名为 '||osname.sname );

fetch a into osname;

end loop;

close a;

end;

set serveroutput on

exec proc_select4 ;

---4.6显示游标(for循环)(适合多个记录)：返回多行多列记录

游标使用for循环不用open、fetch、close关闭游标.

--方法1：典型for循环

create or replace procedure proc_select5

as

cursor a is select * from t1 ;

begin

for res in a loop

dbms_output.put_line( '职工的编号为:'||res.sid||';'||'的职工姓名为 '||res.sname );

end loop;

end;

set serveroutput on

exec proc_select5 ;

--方法2：简单for循环

create or replace procedure proc_select6

as

begin

for res in ( select * from t1 ) loop

dbms_output.put_line( '职工的编号为:'||res.sid||';'||'的职工姓名为 '||res.sname );

end loop;

end;

set serveroutput on

exec proc_select6 ;