oracle存儲過程record
1. 這個oracle存儲過程怎麼執行，大家幫個忙，在線坐等
sql">executecarry;
2. 誰知道Oracle資料庫存儲過程的語法
oracle
存儲過程
的基本語法
1.基本結構
CREATE
OR
REPLACE
PROCEDURE
存儲過程名字
(
參數1
IN
NUMBER,
參數2
IN
NUMBER
)
IS
變數1
INTEGER
:=0;
變數2
DATE;
BEGIN
END
存儲過程名字
2.SELECT
INTO
STATEMENT
將select查詢的結果存入到變數中，可以同時將多個
列存儲
多個變數中，必須有一條
記錄，否則拋出異常(如果沒有記錄拋出NO_DATA_FOUND)
例子：
BEGIN
SELECT
col1,col2
into
變數1,變數2
FROM
typestruct
where
xxx;
EXCEPTION
WHEN
NO_DATA_FOUND
THEN
xxxx;
END;
...
3.IF
判斷
IF
V_TEST=1
THEN
BEGIN
do
something
END;
END
IF;
4.while
循環
WHILE
V_TEST=1
LOOP
BEGIN
XXXX
END;
END
LOOP;
5.變數賦值
V_TEST
:=
123;
6.用for
in
使用cursor
...
IS
CURSOR
cur
IS
SELECT
*
FROM
xxx;
BEGIN
FOR
cur_result
in
cur
LOOP
BEGIN
V_SUM
:=cur_result.列名1+cur_result.列名2
END;
END
LOOP;
END;
7.帶參數的cursor
CURSOR
C_USER(C_ID
NUMBER)
IS
SELECT
NAME
FROM
USER
WHERE
TYPEID=C_ID;
OPEN
C_USER(
變數值
);
LOOP
FETCH
C_USER
INTO
V_NAME;
EXIT
FETCH
C_USER%NOTFOUND;
do
something
END
LOOP;
CLOSE
C_USER;
8.用pl/sql
developer
debug
連接資料庫後建立一個Test
WINDOW
在窗口輸入調用SP的代碼,F9開始debug,CTRL+N單步調試
參考
http://www.cnblogs.com/happyday56/archive/2007/07/05/806830.html
3. Oracle 存儲過程中的基本語法有哪些
Oracle存儲過程基本語法介紹參考下
Oracle存儲過程基本語法 存儲過程
1 CREATE OR REPLACE PROCEDURE 存儲過程名
2 IS
3 BEGIN
4 NULL;
5 END;
行1:
CREATE OR REPLACE PROCEDURE 是一個SQL語句通知Oracle資料庫去創建一個叫做skeleton存儲過程, 如果存在就覆蓋它;
行2:
IS關鍵詞表明後面將跟隨一個PL/SQL體。
行3:
BEGIN關鍵詞表明PL/SQL體的開始。
行4:
NULL PL/SQL語句表明什麼事都不做，這句不能刪去，因為PL/SQL體中至少需要有一句;
行5:
END關鍵詞表明PL/SQL體的結束
存儲過程創建語法：
create or replace procere 存儲過程名（param1 in type，param2 out type）
as
變數1 類型（值范圍）; --vs_msg VARCHAR2(4000);
變數2 類型（值范圍）;
復制代碼 代碼如下:
Begin
Select count(*) into 變數1 from 表A where列名=param1；
If (判斷條件) then
Select 列名 into 變數2 from 表A where列名=param1；
Dbms_output。Put_line(『列印信息');
Elsif (判斷條件) then
Dbms_output。Put_line(『列印信息');
Else
Raise 異常名（NO_DATA_FOUND）;
End if;
Exception
When others then
Rollback;
End;
注意事項：
1， 存儲過程參數不帶取值范圍，in表示傳入，out表示輸出
類型可以使用任意Oracle中的合法類型。
2， 變數帶取值范圍，後面接分號
3， 在判斷語句前最好先用count（*）函數判斷是否存在該條操作記錄
4， 用select 。。。into。。。給變數賦值
5， 在代碼中拋異常用 raise+異常名
復制代碼 代碼如下:
CREATE OR REPLACE PROCEDURE存儲過程名
(
--定義參數
is_ym IN CHAR(6) ,
the_count OUT NUMBER,
)
AS
--定義變數
vs_msg VARCHAR2(4000); --錯誤信息變數
vs_ym_beg CHAR(6); --起始月份
vs_ym_end CHAR(6); --終止月份
vs_ym_sn_beg CHAR(6); --同期起始月份
vs_ym_sn_end CHAR(6); --同期終止月份
--定義游標(簡單的說就是一個可以遍歷的結果集)
CURSOR cur_1 IS
SELECT 。。。
FROM 。。。
WHERE 。。。
GROUP BY 。。。;
BEGIN
--用輸入參數給變數賦初值，用到了Oralce的SUBSTR TO_CHAR ADD_MONTHS
TO_DATE 等很常用的函數。
vs_ym_beg := SUBSTR(is_ym,1,6);
vs_ym_end := SUBSTR(is_ym,7,6);
vs_ym_sn_beg := TO_CHAR(ADD_MONTHS(TO_DATE(vs_ym_beg,'yyyymm'), -12),'yyyymm');
vs_ym_sn_end := TO_CHAR(ADD_MONTHS(TO_DATE(vs_ym_end,'yyyymm'), -12),'yyyymm');
--先刪除表中特定條件的數據。
DELETE FROM 表名 WHERE ym = is_ym;
--然後用內置的DBMS_OUTPUT對象的put_line方法列印出影響的記錄行數，其中用到一個系統變數SQL%rowcount
DBMS_OUTPUT.put_line('del上月記錄='||SQL%rowcount||'條');
INSERT INTO表名(area_code,ym,CMCODE,rmb_amt,usd_amt)
SELECT area_code,is_ym,CMCODE,SUM(rmb_amt)/10000,SUM(usd_amt)/10000
FROM BGD_AREA_CM_M_BASE_T
WHERE ym >= vs_ym_beg
AND ym <= vs_ym_end
GROUP BY area_code,CMCODE;
DBMS_OUTPUT.put_line('ins當月記錄='||SQL%rowcount||'條');
--遍歷游標處理後更新到表。遍歷游標有幾種方法，用for語句是其中比較直觀的一種。
FOR rec IN cur_1 LOOP
UPDATE 表名
SET rmb_amt_sn = rec.rmb_amt_sn,usd_amt_sn = rec.usd_amt_sn
WHERE area_code = rec.area_code
AND CMCODE = rec.CMCODE
AND ym = is_ym;
END LOOP;
COMMIT;
--錯誤處理部分。OTHERS表示除了聲明外的任意錯誤。SQLERRM是系統內置變數保存了當前錯誤的詳細信息。
EXCEPTION
WHEN OTHERS THEN
vs_msg := 'ERROR IN xxxxxxxxxxx_p('||is_ym||'):'||SUBSTR(SQLERRM,1,500);
ROLLBACK;
--把當前錯誤記錄進日誌表。
INSERT INTO LOG_INFO(proc_name,error_info,op_date)
VALUES('xxxxxxxxxxx_p',vs_msg,SYSDATE);
COMMIT;
RETURN;
END;
oracle存儲過程語法
1 、判斷語句:
if 比較式 then begin end; end if;
復制代碼 代碼如下:
create or replace procere test(x in number) is
begin
if x >0 then
begin
x := 0 - x;
end;
end if;
if x = 0 then
begin
x: = 1;
end;
end if;
end test;
2 、For 循環
For ... in ... LOOP
-- 執行語句
end LOOP;
(1) 循環遍歷游標
復制代碼 代碼如下:
create or replace procere test() as
Cursor cursor is select name from student; name varchar(20);
begin
for name in cursor LOOP
begin
dbms_output.putline(name);
end;
end LOOP;
end test;
(2) 循環遍歷數組
復制代碼 代碼如下:
create or replace procere test(varArray in myPackage.TestArray) as
--( 輸入參數varArray 是自定義的數組類型，定義方式見標題6)
i number;
begin
i := 1; -- 存儲過程數組是起始位置是從1 開始的，與java 、C 、C++ 等語言不同。因為在Oracle 中本是沒有數組的概念的，數組其實就是一張
-- 表(Table), 每個數組元素就是表中的一個記錄，所以遍歷數組時就相當於從表中的第一條記錄開始遍歷
for i in 1..varArray.count LOOP
dbms_output.putline('The No.'|| i || 'record in varArray is:'||varArray(i));
end LOOP;
end test;
3 、While 循環
while 條件語句 LOOP
復制代碼 代碼如下:
begin
end;
end LOOP;
E.g
create or replace procere test(i in number) as
begin
while i < 10 LOOP
begin
i:= i + 1;
end;
end LOOP;
end test;
4 、數組
首先明確一個概念：Oracle 中本是沒有數組的概念的，數組其實就是一張表(Table), 每個數組元素就是表中的一個記錄。
使用數組時，用戶可以使用Oracle 已經定義好的數組類型，或可根據自己的需要定義數組類型。
(1) 使用Oracle 自帶的數組類型
x array; -- 使用時需要需要進行初始化
e.g:
create or replace procere test(y out array) is
x array;
begin
x := new array();
y := x;
end test;
(2) 自定義的數組類型 ( 自定義數據類型時，建議通過創建Package 的方式實現，以便於管理)
create or replace package myPackage is
Public type declarations type info is record( name varchar(20), y number);
type TestArray is table of info index by binary_integer;
-- 此處聲明了一個TestArray 的類型數據，其實其為一張存儲Info 數據類型的Table 而已，及TestArray 就是一張表，有兩個欄位，一個是name ，一個是y 。需要注意的是此處使用了Index by binary_integer 編制該Table 的索引項，也可以不寫，直接寫成：type TestArray is
table of info ，如果不寫的話使用數組時就需要進行初始化：varArray myPackage.TestArray; varArray := new myPackage.TestArray();
end TestArray;
5. 游標的使用 Oracle 中Cursor 是非常有用的，用於遍歷臨時表中的查詢結果。其相關方法和屬性也很多，現僅就常用的用法做一二介紹：
(1)Cursor 型游標( 不能用於參數傳遞)
復制代碼 代碼如下:
create or replace procere test() is
cusor_1 Cursor is select std_name from student where ...; --Cursor 的使用方式1 cursor_2 Cursor;
begin
select class_name into cursor_2 from class where ...; --Cursor 的使用方式2
可使用For x in cursor LOOP .... end LOOP; 來實現對Cursor 的遍歷
end test;
(2)SYS_REFCURSOR 型游標，該游標是Oracle 以預先定義的游標，可作出參數進行傳遞
create or replace procere test(rsCursor out SYS_REFCURSOR) is
cursor SYS_REFCURSOR;
name varhcar(20);
begin
OPEN cursor FOR select name from student where ... --SYS_REFCURSOR 只能通過OPEN 方法來打開和賦值
LOOP
fetch cursor into name --SYS_REFCURSOR 只能通過fetch into 來打開和遍歷 exit when cursor%NOTFOUND; --SYS_REFCURSOR 中可使用三個狀態屬性： ---%NOTFOUND( 未找到記錄信息) %FOUND( 找到記錄信息) ---%ROWCOUNT( 然後當前游標所指向的行位置)
dbms_output.putline(name);
end LOOP;
rsCursor := cursor;
end test;
實例
下面寫一個簡單的例子來對以上所說的存儲過程的用法做一個應用：
現假設存在兩張表，一張是學生成績表(studnet) ，欄位為：stdId,math,article,language,music,sport,total,average,step
一張是學生課外成績表(out_school), 欄位為:stdId,parctice,comment
通過存儲過程自動計算出每位學生的總成績和平均成績，同時，如果學生在課外課程中獲得的評價為A ，就在總成績上加20 分。
復制代碼 代碼如下:
create or replace procere autocomputer(step in number) is
rsCursor SYS_REFCURSOR;
commentArray myPackage.myArray;
math number;
article number;
language number;
music number;
sport number;
total number;
average number;
stdId varchar(30);
record myPackage.stdInfo;
i number;
begin
i := 1;
get_comment(commentArray); -- 調用名為get_comment() 的存儲過程獲取學生課外評分信息
OPEN rsCursor for select stdId,math,article,language,music,sport from student t where t.step = step;
LOOP
fetch rsCursor into stdId,math,article,language,music,sport; exit when rsCursor%NOTFOUND;
total := math + article + language + music + sport;
for i in 1..commentArray.count LOOP
record := commentArray(i);
if stdId = record.stdId then
begin
if record.comment = 'A' then
begin
total := total + 20;
go to next; -- 使用go to 跳出for 循環
end;
end if;
end;
end if;
end LOOP;
<<continue>> average := total / 5;
update student t set t.total=total and t.average = average where t.stdId = stdId;
end LOOP;
end;
end autocomputer;
-- 取得學生評論信息的存儲過程
create or replace procere get_comment(commentArray out myPackage.myArray) is
rs SYS_REFCURSOR ；
record myPackage.stdInfo;
stdId varchar(30);
comment varchar(1);
i number;
begin
open rs for select stdId,comment from out_school
i := 1;
LOOP
fetch rs into stdId,comment; exit when rs%NOTFOUND;
record.stdId := stdId;
record.comment := comment;
recommentArray(i) := record;
i:=i + 1;
end LOOP;
end get_comment;
-- 定義數組類型myArray
create or replace package myPackage is begin
type stdInfo is record(stdId varchar(30),comment varchar(1));
type myArray is table of stdInfo index by binary_integer;
end myPackage;
4. Oracle存儲過程及舉例（幾種參數情況的存儲
create table TESTTABLE
(
id1 VARCHAR2(12),
name VARCHAR2(32)
)
select t.id1,t.name from TESTTABLE t
insert into TESTTABLE (ID1, NAME)
values ('1', 'zhangsan');
insert into TESTTABLE (ID1, NAME)
values ('2', 'lisi');
insert into TESTTABLE (ID1, NAME)
values ('3', 'wangwu');
insert into TESTTABLE (ID1, NAME)
values ('4', 'xiaoliu');
insert into TESTTABLE (ID1, NAME)
values ('5', 'laowu');
---創建存儲過程
create or replace procere test_count
as
v_total number(1);
begin
select count(*) into v_total from TESTTABLE;
DBMS_OUTPUT.put_line('總人數：'||v_total);
end;
--准備
--線對scott解鎖：alter user scott account unlock;
--應為存儲過程是在scott用戶下。還要給scott賦予密碼
---alter user scott identified by tiger;
---去命令下執行
EXECUTE test_count;
----在ql/spl中的sql中執行
begin
-- Call the procere
test_count;
end;
create or replace procere TEST_LIST
AS
---是用游標
CURSOR test_cursor IS select t.id1,t.name from TESTTABLE t;
begin
for Test_record IN test_cursor loop---遍歷游標，在列印出來
DBMS_OUTPUT.put_line(Test_record.id1||Test_record.name);
END LOOP;
test_count;--同時執行另外一個存儲過程（TEST_LIST中包含存儲過程test_count）
end;
-----執行存儲過程TEST_LIST
begin
TEST_LIST;
END;
---存儲過程的參數
---IN 定義一個輸入參數變數，用於傳遞參數給存儲過程
--OUT 定義一個輸出參數變數，用於從存儲過程獲取數據
---IN OUT 定義一個輸入、輸出參數變數，兼有以上兩者的功能
--這三種參數只能說明類型，不需要說明具體長度 比如 varchar2(12)，defaul 可以不寫，但是作為一個程序員最好還是寫上。
---創建有參數的存儲過程
create or replace procere test_param(p_id1 in VARCHAR2 default '0')
as v_name varchar2(32);
begin
select t.name into v_name from TESTTABLE t where t.id1=p_id1;
DBMS_OUTPUT.put_line('name：'||v_name);
end;
----執行存儲過程
begin
test_param('1');
end;
default '0'
---創建有參數的存儲過程
create or replace procere test_paramout(v_name OUT VARCHAR2 )
as
begin
select name into v_name from TESTTABLE where id1='1';
DBMS_OUTPUT.put_line('name：'||v_name);
end;
----執行存儲過程
DECLARE
v_name VARCHAR2(32);
BEGIN
test_paramout(v_name);
DBMS_OUTPUT.PUT_LINE('name：'||v_name);
END;
-------IN OUT
---創建存儲過程
create or replace procere test_paramINOUT(p_phonenumber in out varchar2)
as
begin
p_phonenumber:='0571-'||p_phonenumber;
end;
----
DECLARE
p_phonenumber VARCHAR2(32);
BEGIN
p_phonenumber:='26731092';
test_paramINOUT(p_phonenumber);
DBMS_OUTPUT.PUT_LINE('新的電話號碼：'||p_phonenumber);
END;
-----sql命令下，查詢當前用戶的存儲過程或函數的源代碼，
-----可以通過對USER_SOURCE數據字典視圖的查詢得到。USER_SOURCE的結構如下：
SQL> DESCRIBE USER_SOURCE ;
Name Type Nullable Default Comments
---- -------------- -------- -------
-------------------------------------------------------------------------------------------------------------
NAME VARCHAR2(30) Y Name of the object
TYPE VARCHAR2(12) Y Type of the object: "TYPE", "TYPE BODY", "PROCEDURE", "FUNCTION",
"PACKAGE", "PACKAGE BODY" or "JAVA SOURCE"
LINE NUMBER Y Line number of this line of
source
TEXT VARCHAR2(4000) Y Source text
SQL>
---查詢出存儲過程的定義語句
select text from user_source WHERE NAME='TEST_COUNT';
----查詢存儲過程test_paramINOUT的參數
SQL> DESCRIBE test_paramINOUT;
Parameter Type Mode Default?
------------- -------- ------ --------
P_PHONENUMBER VARCHAR2 IN OUT
SQL>
---查看當前的存儲過程的狀態是否正確，
---VALID為正確，INVALID表示存儲過程無效或需要重新編譯
SELECT STATUS FROM USER_OBJECTS WHERE OBJECT_NAME='TEST_COUNT';
-----如果要檢查存儲過程或函數的依賴性，可以通過查詢數據字典USER_DENPENDENCIES來確定，該表結構如下：
SQL> DESCRIBE USER_DEPENDENCIES;
Name Type Nullable Default Comments
-------------------- ------------- -------- ------- ----------------------------------------------------------
NAME VARCHAR2(30) Name of the object
TYPE VARCHAR2(17) Y Type of the object
REFERENCED_OWNER VARCHAR2(30) Y Owner of referenced object (remote owner if remote object)
REFERENCED_NAME VARCHAR2(64) Y Name of referenced object
REFERENCED_TYPE VARCHAR2(17) Y Type of referenced object
REFERENCED_LINK_NAME VARCHAR2(128) Y Name of dblink if this is a remote object
SCHEMAID NUMBER Y
DEPENDENCY_TYPE VARCHAR2(4) Y
SQL>
---查詢存儲過程TEST_COUNT的依賴關系
SELECT REFERENCED_NAME,REFERENCED_TYPE FROM USER_DEPENDENCIES WHERE NAME='TEST_COUNT';
5. oracle 存儲過程異常處理
先建一個錯誤跟蹤表
create sequence s_error_id;
CREATE TABLE ERROR_RECORD
(
ERROR_ID NUMBER(10) primary key,
ERROR_CODE NUMBER(10),
ERROR_MSG VARCHAR2(2000),
ERROR_DATE DATE,
ERROR_PROGRAM VARCHAR2(200)
);
--------在過程的例外里向跟蹤表寫入錯誤信息:
create or replace procere day_task is
v_sqlcode ERROR_RECORD.ERROR_CODE%type;
v_msg ERROR_RECORD.error_msg%type;
begin
------program body
exception when others then
--記錄錯誤信息表
v_sqlcode :=sqlcode;
v_msg :=sqlerrm;
insert into error_record(error_code,error_msg,error_date,error_program)
values (v_sqlcode,v_msg,sysdate,『day_task』);
end;
6. oracle中創建一個存儲過程(procere)，過程中包含一句最簡答的sql，C# 使用sql語句。。。
也是先學習 SQL Server , 再開始學習Oracle的, 也為此找了很多資料. 你所說的這個需求可以這樣實現, 給你我的一個例子:
/* 定義Package 頭*/
CREATE OR REPLACE PACKAGE APPS.ECS_SIPRMA_PKG_SYS
IS
TYPE TYPE_INTLIST_ITEM IS RECORD (IDX NUMBER, VAL NUMBER);
FUNCTION SPLIT2INT (SRC VARCHAR2, CH VARCHAR2) RETURN ECS_SIPRMA_PKG_SYS.TYPE_INTLISTTB PIPELINED;
...
/* package中函數 SPLIT2INT*/
FUNCTION SPLIT2INT (SRC VARCHAR2, CH VARCHAR2)
RETURN ECS_SIPRMA_PKG_SYS.TYPE_INTLISTTB PIPELINED
IS
N1 NUMBER;
N2 NUMBER := LENGTH(CH);
S1 VARCHAR2(4000);
S2 VARCHAR2(4000) := SRC;
I NUMBER := 0;
E ECS_SIPRMA_PKG_SYS.TYPE_INTLIST_ITEM;
BEGIN
IF SRC IS NULL OR CH IS NULL THEN
RETURN;
END IF;
LOOP
N1 := INSTR(S2, CH);
IF N1 = 0 THEN
S1 := TRIM(S2);
IF S2 IS NOT NULL THEN
I := I + 1;
E.VAL := TO_NUMBER(S1, '999999999999');
E.IDX := I;
PIPE ROW(E);
END IF;
ELSIF N1 >= 1 THEN
S1 := TRIM(SUBSTR(S2, 1, N1 - 1));
IF S1 IS NOT NULL THEN
I := I + 1;
E.VAL := TO_NUMBER(S1, '999999999999');
E.IDX := I;
PIPE ROW(E);
END IF;
S2 := SUBSTR(S2, N1 + N2, LENGTH(S2) - N1 - N2 + 1);
END IF;
EXIT WHEN N1 = 0 OR S2 IS NULL;
END LOOP;
RETURN;
END SPLIT2INT;
而查詢時, 則使用table函數將返回結果轉成結果集:
select * from table(APPS.ECS_SIPRMA_PKG_SYS.SPLIT2INT('1;2;3', ';'));
需要用到的知識: 索引表, pipe row方法, table函數.
一個完整例子:
/* 創建包頭 */
create or replace package pkg_test
is
type type_rtn_item is record (s_name varchar2(200));
type type_rtn_tb is table of pkg_test.type_rtn_item;
function rtn_table return pkg_test.type_rtn_tb pipelined;
end pkg_test;
/* 創建包體 */
create or replace package body pkg_test
is
function rtn_table
return pkg_test.type_rtn_tb pipelined
is
ele pkg_test.type_rtn_item;
begin
for si in (SELECT SHOW_NAME FROM DOCS_REPORT_ITEM_CONFIG WHERE ITEM_ID=1129) loop
ele.s_name := si.SHOW_NAME;
pipe row(ele);
end loop;
return;
end rtn_table;
end pkg_test;
/* 查詢語句 */
select * from table(pkg_test.rtn_table());
注意: 該package需要在10g以上版本運行, 因為pipelined功能好像從10g才開始有的.
7. ORACLE中如何為存儲過程傳遞參數
第一種：只讀。參數是只讀的，不能修改，即調用時傳遞進來的是常量，或者變數（但變數不能在存儲過程中修改）。通常select及DML類型的存儲過程傳遞的是in類型的參數。
第二種：只寫。忽略調用語句傳遞的任何參數，並在函數（過程）內部給這些參數賦值，因此是只寫的。（這種情況是在函數或過程內部給參數重新賦值，但重新賦值後的參數是無法被外部調用的（好像游標類型的參數除外））
CREATE OR REPLACE PROCEDURE "SCOTT"."SWAP" (firstValue out
number, secondValue out number) is
temp number;
begin
temp := firstValue;
firstValue := secondValue;
secondValue := temp;
end swap;
外部調用：
set serveroutput on;
declare
firstVal number;
secondVal number;
begin
firstVal := 10;
secondVal := 20;
scott.swap(firstVal,secondVal);
dbms_output.put_line('first is ' || firstVal);
dbms_output.put_line('second is ' || secondVal);
end;
無法在外部訪問到firstValue與secondValue的值。此時列印出的結果為：
first is
second is
第三種：讀或寫。這可以完全控制參數，讀取傳遞的參數的值。可以再函數（過程）內部修改參數的值，在退出函數（過程）後，這些參數被賦給在函數內部寫入的值，這樣就可以返回多個值。（即入口參數寫入值後，可以傳遞到函數（過程）的外部，供外部調用的時候使用）
ps:函數中的返回值為如下幾種：
char; varchar2; number; integer; date; boolean; table; record
SQL> CREATE OR REPLACE PROCEDURE HelloWorld2 (
2 p_user_name IN VARCHAR2,
3 p_out_val OUT VARCHAR2,
4 p_inout_val IN OUT VARCHAR2
5 ) AS
6 BEGIN
7 dbms_output.put_line('Hello ' || p_user_name || p_inout_val || '!');
8 p_out_val := 'A';
9 p_inout_val := 'B';
10 END HelloWorld2;
11 /
Procere created.
SQL> DECLARE
2 p_outval VARCHAR2(10);
3 p_inoutval VARCHAR2(10) := '~Hi~';
4 BEGIN
5 HelloWorld2('Edward', p_outval, p_inoutval);
6
7 dbms_output.put_line('p_outval=' || p_outval);
8 dbms_output.put_line('p_inoutval=' || p_inoutval);
9 END;
10 /
Hello Edward~Hi~!
p_outval=A
p_inoutval=B
PL/SQL procere successfully completed.
8. oracle存儲過程如何返回記錄集
返回一個游標社！
有倆種方法:
一種是聲明系統游標,一種是聲明自定義游標,然後後面操作一樣,參數類型為
in out 或out
(1)聲明個人系統游標.(推薦)
create or replace p_temp_procere
(
cur_arg out sys_refcursor; --方法1
)
begin
open cur_arg for select * from tablename;
end
調用
declare
cur_calling sys_refcursor;
begin
p_temp_procere(cur_calling); --這樣這個游標就有值了
for rec_next in cur_calling loop
....
end loop;
end;
(2)在包頭中申明一個游表類型,然後調用者申明一個這個類型的游標變數,傳給返回遊標的存儲過程 ,存儲過程out這個結果集,這種方法很麻煩.游標類型不能像索引表一樣使用create or replace type方法來創建,所以只能在包中申明,並且需要使用/來執行,後面的存儲過程才認這個游標類型.(不推薦,但是建議要知道並且要會這種方式,畢竟它有它存在的道理)
--定義全局變數
create or replace package pkg_package
as
type type_cursor is ref cursor;
type type_record is record
(
test01 varchar2(32),
test02 varchar2(32),
test03 varchar2(32)
);
end;
/
--創建返回遊標的存儲過程
create or replace procere p_temp_procere
(
cur_out_arg out pkg_package.type_cursor
)
is
begin
open cur_out_arg for select * from test;
end;
/
--調用
declare
cur_out_arg pkg_package.type_cursor;
rec_arg pkg_package.type_record;
begin
p_temp_procere(cur_out_arg);
fetch cur_out_arg into rec_arg;
dbms_output.put_line(rec_arg.test01);
dbms_output.put_line(rec_arg.test02);
dbms_output.put_line(rec_arg.test03);
end;
9. oracle存儲過程並且怎麼寫
存儲過程(procere)：是一個命名了的語句塊，可以有0個或多個參數
語法：
create or replace procere HelloWorld
as
begin
dbms_output.put_line('HelloWorld');
end;
調用存儲過程
* 命令調用 exec helloworld
* 語句塊調用
begin
helloworld;
end;
/
DELETE:
create or replace procere del_emp01
is
begin
delete from emp01 where empno=7369;
end;
exec del_emp01;
create or replace procere del_emp01(v_empno in emp01.empno%type)
is
begin
delete from emp01 wherer empno=v_empno;
end;
exec del_emp01(7521);
INSERT
create or replace procere ins_emp01
(v_empno emp01.empno%type,v_ename emp01.ename%type)
as
begin
insert into emp01(empno,ename) values(v_empno,v_ename);
end;
exec ins_emp01(1000,'李四');
UPDATE
create or replace procere upd_emp01
(v_empno emp01.empno%type,v_ename emp01.ename%type)
as
begin
update emp01 set ename=v_ename where empno=v_empno;
end;
exec upd_emp01(1000,'張三');
SELECT
create or replace procere sel_emp01
(v_empno emp01.empno%type,v_emp01_data out emp01%rowtype)
as
begin
select * into v_emp01_data from emp where empno=v_empno;
end;
帶有輸出參數的存儲過程不能使用命令直接調用
只能由語句塊或程序調用(JAVA) ****************************************************************
declare
v_emp_data emp01%rowtype;
begin
sel_emp01(7499,v_emp_data);
dbms_output.put_line(v_emp_data.ename||' '||v_emp_data.sal);
end;
調用：
declare
v_emp_data emp01%rowtype;
begin
sel_emp01(7499,v_emp_data);
dbms_output.put_line(v_emp_data.ename||' '||v_emp_data.sal);
end;
使用scott用戶登錄
統計某個部門的員工的工資總和，員工的人數，平均工資，創建存儲過程
create or replace procere deptcount
(v_deptno emp.deptno%type,v_sal_sum out number,v_recordes out number,v_avg_sal out number,errorMsg out varchar2)
is
begin
select sum(sal) into v_sal_sum from emp group by deptno having deptno=v_deptno;
select count(*) into v_recordes from emp group by deptno having deptno=v_deptno;
select avg(sal) into v_avg_sal from emp group by deptno having deptno=v_deptno;
exception
when no_data_found then
errorMsg:='沒有該部門';
end;
調用：
declare
v_sal_sum number;
v_recordes number;
v_avg_sal number(8,2);
v_errormsg varchar2(20);
begin
deptcount(90,v_sal_sum,v_recordes,v_avg_sal,v_errormsg);
dbms_output.put_line(v_sal_sum||' '||v_recordes||' '||v_avg_sal);
dbms_output.put_line(v_errormsg);
end;
//輸出參數
create or replace procere my_pro(v_num in number,v_result out number)
is
v_temp number;
begin
v_temp:=0;
for i in 1..v_num
loop
v_temp:=v_temp+i;
end loop;
v_result:=v_temp;
end;
declare
v_recieve number;
begin
my_pro(100,v_recieve);
dbms_output.put_line(v_recieve);
end;
//既是輸入參數又是輸出參數
create or replace procere my_pro1(v_i in out number)
is
v_j number;
begin
v_j:=30;
v_i:=v_i*v_j;
end;
declare
v_t number;
begin
v_t:=20;
my_pro1(v_t);
dbms_output.put_line(v_t);
end;