declare
cursor emp_cursor (pno in number default 7369)
is select * from emp where empno=pno;
emp_row emp%rowtype;
begin
open emp_cursor(7934);
fetch emp_cursor into emp_row;
dbms_output.put_line(emp_row.ename);
close emp_cursor;
end;
/
declare
cursor emp_cursor (pno in number default 7369)
is select * from emp where empno=pno;
begin
for emp_row in emp_cursor(7934) loop
dbms_output.put_line(emp_row.ename);
end loop;
end;
/
declare
type emp_cname is ref cursor return emp%rowtype;
ecname emp_cname;
emp_row emp%rowtype;
begin
dbms_output.put_line('開始');
open ecname for select * from emp;
loop
fetch ecname into emp_row;
exit when ecname%notfound;
dbms_output.put_line(emp_row.ename);
end loop;
close ecname;
dbms_output.put_line('結(jié)束');
end;
/
//向emp表中添加一條記錄
create procedure insert_emp as
begin
insert into emp(empno,ename,job,mgr,sal,comm,deptno)
values('7777','redarmy','teacher','7369',9000,1000,20);
commit;
end insert_emp;
set serveroutput on;
begin
insert_emp;
end;
create or replace procedure insert_emp as
begin
insert into emp(empno,ename,job,mgr,sal,comm,deptno)
values('7777','redarmy','teacher','7369',9000,1000,20);
commit;
end insert_emp;
create or replace procedure insert_emp(
cempno in number,
cename in varchar2,
cjob in varchar2,
cmgr in number,
chiredate in date,
csal in number,
ccomm in number,
cdeptno in number
) as
begin
insert into emp(empno,ename,job,mgr,hiredate,sal,comm,deptno)
values(cempno,cename,cjob,cmgr,chiredate,csal,ccomm,cdeptno);
end insert_emp;
set serveroutput on;
begin
insert_emp(cempno=>7377,cename=>'mjjj',cjob=>'stu',cmgr=>7777,chiredate=>to_date('2011-01-01','YYYY-MM-dd'),csal=>5000,ccomm=>1000,cdeptno=>20);
end;
set serveroutput on;
begin
insert_emp(3333,'mjjj','stu',7777,to_date('2011-01-01','YYYY-MM-dd'),5000,1000,20);
end;
set serveroutput on;
begin
insert_emp(9999,cename=>'mjjj',cjob=>'stu',cmgr=>7777,chiredate=>to_date('2011-01-01','YYYY-MM-dd'),csal=>5000,ccomm=>1000,cdeptno=>20);
end;
declare
begin
dbms_output.put_line('開始');
delete from emp where empno=7934;
dbms_output.put_line('結(jié)束');
end;
/
更多文章、技術(shù)交流、商務(wù)合作、聯(lián)系博主
微信掃碼或搜索：z360901061
微信掃一掃加我為好友
QQ號聯(lián)系： 360901061
您的支持是博主寫作最大的動力，如果您喜歡我的文章，感覺我的文章對您有幫助，請用微信掃描下面二維碼支持博主2元、5元、10元、20元等您想捐的金額吧，狠狠點擊下面給點支持吧，站長非常感激您！手機微信長按不能支付解決辦法：請將微信支付二維碼保存到相冊，切換到微信，然后點擊微信右上角掃一掃功能，選擇支付二維碼完成支付。
【本文對您有幫助就好】元
