-- Create table
create table EMP
(
empno NUMBER(4) not null,
ename VARCHAR2(10),
job VARCHAR2(9),
mgr NUMBER(4),
hiredate DATE,
sal NUMBER(7,2),
comm NUMBER(7,2),
deptno NUMBER(2)
)
create or replace procedure firstP(name in varchar2) is
/*這里name為的參數(shù),in為輸入,varchar2為類型*/
begin
/* dbms_output.put_line(); 相當(dāng)輸出到控制臺(tái)上,這樣我們一個(gè)簡單的存儲(chǔ)過程就完成啦
記住一句話的結(jié)束使用分號(hào)結(jié)束,存儲(chǔ)過程寫完一定要執(zhí)行
將它保存到數(shù)據(jù)庫中 (F8)快捷鍵,或者點(diǎn)擊左上角執(zhí)行*/
dbms_output.put_line('我的名字叫'||name);/*dbms_output.put_line相當(dāng)于JAVA中的System.out.println("我的名字叫"+name);*/
end firstP;
-- Created on 2018/12/30 星期日 by ADMINISTRATOR
declare
-- Local variables here
/*測(cè)試名稱 名稱類型 使用 := 給參數(shù)賦值,在多說一句,分號(hào)結(jié)束本句*/
name2 varchar2(64):='數(shù)據(jù)庫';
begin
-- Test statements here
firstp(name2);
end;
我們打開DBMS Output就可以看到執(zhí)行的存儲(chǔ)過程啦。
存儲(chǔ)過程IF判斷
create or replace procedure isifp(age in number) is
/*存儲(chǔ)過程if判斷以then開始,以end if; 結(jié)束*/
begin
if (age > 30) then
dbms_output.put_line('我已經(jīng)超過30歲了');
else
if (age 10) then
dbms_output.put_line('我還是個(gè)兒童');
else
dbms_output.put_line('我正在奮斗時(shí)期');
end if;
end if;
end;
存儲(chǔ)過程輸出
create or replace procedure inandout(name in varchar2, age in number,outp out varchar2) is
/*in 代表輸入,out 代表輸出*/
begin
outp:='my name is '|| name ||',my age is '||age;/*相當(dāng)于JAVA中的return outp,但是請(qǐng)注意,存儲(chǔ)過程中可以return多個(gè)值*/
end inandout;
測(cè)試輸出代碼
-- Created on 2018/12/30 星期日 by ADMINISTRATOR
declare
-- Local variables here
name varchar2(64):='數(shù)據(jù)庫';
age number:=06;
out_p varchar2(64);
begin
-- Test statements here
inandout(name,age,outp=>:out_p);
/*這里的outp是存儲(chǔ)過程中的輸出參數(shù),out_p是在測(cè)試中使用的別名*/
end;
返回游標(biāo)
create or replace procedure sysrefcursor(id in number, columnss out sys_refcursor) as
/*columnss out sys_refcursor 為輸出游標(biāo)*/
begin
open columnss for
select * from emp where empno=id;
end;
測(cè)試游標(biāo)
第一種測(cè)試方法
-- Created on 2018/12/30 星期日 by ADMINISTRATOR
declare
-- Local variables here
cursor ee is select * from emp where empno=7934;
begin
-- Test statements here
for e in ee loop
dbms_output.put_line('deptno:'||e.deptno);
end loop;
end;
輸出結(jié)果如下:
第二種測(cè)試方法
-- Created on 2018/12/30 星期日 by ADMINISTRATOR
declare
-- Local variables here
cursor ee is select * from emp where empno=7934;
cur ee % rowtype;
begin
-- Test statements here
open ee;
loop
fetch ee into cur;
exit when ee%notfound;
dbms_output.put_line('name:'||cur.ename);
end loop;
close ee;
end;
-- Created on 2018/12/30 星期日 by ADMINISTRATOR
declare
-- Local variables here
cursor ee is select * from emp where job='CLERK';
begin
-- Test statements here
for e in ee loop
dbms_output.put_line('deptno:'||e.deptno);
end loop;
end;
游標(biāo)返回多條數(shù)據(jù)。
由于對(duì)于初學(xué)者來說,游標(biāo)可能不是很容易理解,下面我用JAVA語言來描述一下。
我們?cè)趈ava程序中寫條件查詢的時(shí)候,返回出來的數(shù)據(jù)是List泛型>。這個(gè)操作相當(dāng)于游標(biāo),說白了就是個(gè)查詢而已(大家不要誤認(rèn)為就這么一句簡單的SQL為什么要用游標(biāo),因?yàn)橹皇欠奖阕x者學(xué)習(xí)游標(biāo)罷了,具體業(yè)務(wù)具體分析,請(qǐng)不要抬杠哦)
當(dāng)我們要使用list中的數(shù)據(jù)時(shí),我們使用循環(huán)調(diào)用某一條數(shù)據(jù)時(shí),是不是就要用實(shí)體類對(duì)象點(diǎn)get字段。可以理解為for e in ee loop dbms_output.put_line('deptno:'||e.deptno); end loop;
這里面的e.deptno。
獲取table中的column
create or replace procedure intop(id in number, print2 out varchar2) as
e_name varchar2(64);
begin
select ename into e_name from emp where empno = id;
if e_name ='ALLEN' then
dbms_output.put_line(e_name);
print2:='my name is '||e_name;
else if e_name ='SMITH' then
print2:='打印sql'||e_name;
else
print2:='打印其他';
end if;
end if;
end intop;
-- Create table
create table CLASSES
(
id NUMBER not null,
name VARCHAR2(14),
classesc VARCHAR2(10),
seq NUMBER(5)
)
tablespace USERS
pctfree 10
initrans 1
maxtrans 255
storage
(
initial 64K
next 1M
minextents 1
maxextents unlimited
);
-- Create/Recreate primary, unique and foreign key constraints
alter table CLASSES
add constraint PK_CLASSES primary key (ID)
using index
tablespace USERS
pctfree 10
initrans 2
maxtrans 255
storage
(
initial 64K
next 1M
minextents 1
maxextents unlimited
);
下面我們創(chuàng)建一個(gè)序列
-- Create sequence
create sequence SEQ_CLASSES
minvalue 1
maxvalue 9999999999999999999999999999
start with 2
increment by 1
cache 20;
下面創(chuàng)建存儲(chǔ)過程,寫的亂一些,希望不要介意
create or replace procedure proclasses(Names in varchar2,
classescs in varchar) as
/*在我們創(chuàng)建存儲(chǔ)過程的時(shí)候as其實(shí)是is*/
id number;/*設(shè)置變量名稱*/
c number;
seq number;
begin
select SEQ_CLASSES.nextval into id from dual;/*獲取下一個(gè)序列,使用into賦值給id這個(gè)變量名稱*/
dbms_output.put_line('classescs=' || classescs);/*打印而已*/
select count(*) into c from Classes where classesc = classescs;/*條件判斷,classesc=進(jìn)來的變量*/
if (c > 0) then/*當(dāng)數(shù)量大于0時(shí)*/
select max(seq) + 1 into seq from Classes where classesc = classescs;
dbms_output.put_line('第一個(gè)seq' || seq);
else
if (c = 0) then
seq := 0;/*如果查詢出來的數(shù)量為0的時(shí)候,我們賦值seq變量為0*/
dbms_output.put_line('c=0的時(shí)候seq' || seq);
end if;
end if;
insert into classes
(id, name, classesc, seq)
values
(id, names, classescs, seq);
/*insert插入這個(gè)不用多說了,大家都明白;注意的是我們insert之后一定要提交。
不然數(shù)據(jù)沒有持久化到數(shù)據(jù)庫,這個(gè)insert沒有任何意義了*/
end proclasses;
下面我們來調(diào)用這個(gè)存儲(chǔ)過程
-- Created on 2019/1/7 星期一 by ADMINISTRATOR
declare
-- Local variables here
names varchar2(32):='曉明';
classescs varchar2(32):='一班';
begin
-- Test statements here
proclasses(names,classescs);
end;