瀛樺偍榪囩▼閲屼笉鑳界洿鎺ヤ嬌鐢―DL璇彞錛屾墍浠ュ彧鑳戒嬌鐢ㄥ姩鎬丼QL璇彞鏉ユ墽琛?/span>
--ON COMMIT DELETE ROWS 璇存槑涓存椂琛ㄦ槸浜嬪姟鎸囧畾錛屾瘡嬈℃彁浜ゅ悗ORACLE灝嗘埅鏂〃錛堝垹闄ゅ叏閮ㄨ錛?
--ON COMMIT PRESERVE ROWS 璇存槑涓存椂琛ㄦ槸浼?xì)璇濇寚瀹氬Q屽綋涓柇浼?xì)璇濇椂ORACLE灝嗘埅鏂〃銆?/p>
CREATE OR REPLACE PROCEDURE temptest
(p_searchDate IN DATE)
IS
v_count INT;
str varchar2(300);
BEGIN
v_count := 0;
str:='drop table SETT_DAILYTEST';
execute immediate str;
str:='CREATE GLOBAL TEMPORARY TABLE SETT_DAILYTEST (
NACCOUNTID NUMBER not null,
NSUBACCOUNTID NUMBER not null)
ON COMMIT PRESERVE ROWS';
execute immediate str; ----浣跨敤鍔ㄦ丼QL璇彞鏉ユ墽琛?/span>
str:='insert into SETT_DAILYTEST (select naccountid,nsubaccountid from sett_dailyaccountbalance)';
execute immediate str;
END temptest;
涓婇潰寤虹珛涓涓復(fù)鏃惰〃鐨勫瓨鍌ㄨ繃紼?/p>
涓嬮潰鏄墽琛屼竴浜涙搷浣?鍚戜復(fù)鏃惰〃鍐欐暟鎹?/p>
CREATE OR REPLACE PROCEDURE PR_DAILYCHECK
(
p_Date IN DATE,
p_Office IN INTEGER,
p_Currency IN INTEGER,
P_Check IN INTEGER,
p_countNum OUT INTEGER)
IS
v_count INT;
BEGIN
v_count := 0;
IF p_Date IS NULL THEN
dbms_output.put_line('鏃ユ湡涓嶈兘涓虹┖');
ELSE
IF P_Check = 1 THEN
insert into SETT_DAILYTEST (select naccountid,nsubaccountid from sett_dailyaccountbalance
where dtdate = p_Date);
select
count(sd.naccountid) into v_count
from sett_subaccount ss,sett_account sa,sett_dailytest sd
where sd.naccountid = sa.id and sd.nsubaccountid = ss.id and sa.id = ss.naccountid
AND sa.nofficeid = p_Office AND sa.ncurrencyid = p_Currency
and rownum < 2;
COMMIT;
p_countNum := v_count;
dbms_output.put_line(p_countNum);
END IF;
IF P_Check = 2 THEN
insert into SETT_DAILYTEST (select naccountid,nsubaccountid from sett_dailyaccountbalance
where dtdate = p_Date);
select
count(sd.naccountid) into v_count
from sett_cfsubaccount ss,sett_account sa,sett_dailytest sd
where sd.naccountid = sa.id and sd.nsubaccountid = ss.id and sa.id = ss.naccountid
AND sa.nofficeid = p_Office AND sa.ncurrencyid = p_Currency
and rownum < 2;
COMMIT;
p_countNum := v_count;
dbms_output.put_line(p_countNum);
END IF;
END IF;
END PR_DAILYCHECK;
璇峰弬鑰?lt;<Oracle PL/SQL Programming>> Chapter 11銆丆hapter 12銆?/p>
---------------------- 鍗曠淮鏁扮粍 ------------------------
DECLARE
TYPE emp_ssn_array IS TABLE OF NUMBER INDEX BY BINARY_INTEGER; ----娉細(xì)澹版槑涓涓狢ollection
best_employees emp_ssn_array;
worst_employees emp_ssn_array;
BEGIN
best_employees(1) := '123456';
best_employees(2) := '888888';
worst_employees(1) := '222222';
worst_employees(2) := '666666';
FOR i IN 1..best_employees.count LOOP
DBMS_OUTPUT.PUT_LINE('i='|| i || ', best_employees= ' ||best_employees(i)
|| ', worst_employees= ' ||worst_employees(i));
END LOOP;
END;
---------------------- 澶氱淮鏁扮粍 ------------------------
DECLARE
TYPE emp_type IS RECORD ---------娉細(xì)澹版槑涓涓猂ecord綾誨瀷銆emp_type
( emp_id employee_table.emp_id%TYPE, 銆銆銆銆銆銆銆銆銆銆----Record綾誨瀷涓殑鎴愬憳...
emp_name employee_table.emp_name%TYPE,
emp_gender employee_table.emp_gender%TYPE );
TYPE emp_type_array IS TABLE OF ----娉細(xì)澹版槑涓涓狢ollection綾誨瀷 emp_type_array 錛屽叾涓厓绱犱負(fù)emp_type綾誨瀷
emp_type INDEX BY BINARY_INTEGER;
emp_rec_array emp_type_array;
emp_rec emp_type;
BEGIN
emp_rec.emp_id := 300000000;
emp_rec.emp_name := 'Barbara';
emp_rec.emp_gender := 'Female';
emp_rec_array(1) := emp_rec;
emp_rec.emp_id := 300000008;
emp_rec.emp_name := 'Rick';
emp_rec.emp_gender := 'Male';
emp_rec_array(2) := emp_rec;
FOR i IN 1..emp_rec_array.count LOOP
DBMS_OUTPUT.PUT_LINE('i='||i
||', emp_id ='||emp_rec_array(i).emp_id
||', emp_name ='||emp_rec_array(i).emp_name
||', emp_gender = '||emp_rec_array(i).emp_gender);
END LOOP;
END;
-------------- Result --------------
i=1, emp_id =300000000, emp_name =Barbara, emp_gender = Female
i=2, emp_id =300000008, emp_name =Rick, emp_gender = Male