declare
創(chuàng)新互聯(lián)長期為上千客戶提供的網(wǎng)站建設(shè)服務(wù)，團(tuán)隊從業(yè)經(jīng)驗10年，關(guān)注不同地域、不同群體，并針對不同對象提供差異化的產(chǎn)品和服務(wù)；打造開放共贏平臺，與合作伙伴共同營造健康的互聯(lián)網(wǎng)生態(tài)環(huán)境。為岳陽縣企業(yè)提供專業(yè)的成都做網(wǎng)站、成都網(wǎng)站設(shè)計、成都外貿(mào)網(wǎng)站建設(shè)，岳陽縣網(wǎng)站改版等技術(shù)服務(wù)。擁有10余年豐富建站經(jīng)驗和眾多成功案例,為您定制開發(fā)。
--定義IntArray 類型，該類型是每個元素為int類型的數(shù)組
Type IntArray is table of int;
--定義一個IntArray 類型的變量
v_array IntArray := IntArray();
begin
--向數(shù)組中存入數(shù)據(jù)
for i in 1.. 100 loop
--需要擴(kuò)展數(shù)組
v_array.extend;
v_array(i) := i;
end loop;
--輸出數(shù)組的內(nèi)容
for i in 1.. 100 loop
dbms_output.put_line(v_array(i));
end loop;
end;
SQL set serverout on;
SQL declare
2 --定義IntArray 類型，該類型是每個元素為int類型的數(shù)組
3 Type IntArray is table of int;
4 --定義一個IntArray 類型的變量
5 v_array IntArray := IntArray();
6 begin
7 --向數(shù)組中存入數(shù)據(jù)
8 for i in 1.. 100 loop
9 --需要擴(kuò)展數(shù)組
10 v_array.extend;
11 v_array(i) := i;
12 end loop;
13
14 --輸出數(shù)組的內(nèi)容
15 for i in 1.. 100 loop
16 dbms_output.put_line(v_array(i));
17 end loop;
18 end;
19 /
1
2
3
4
5
6
7
8
9
10
此處省略90行
PL/SQL procedure successfully completed
SQL
首先你需要定義一個數(shù)組類型，然后定義這個數(shù)組變量
declare
type a_type is table of number;
-- type a_type is array(10) of number;
-- 下面一種定義方式則指定了該數(shù)組的最大元素個數(shù)
a a_type := a_type(); -- 定義并初始化一個數(shù)組變量
begin
a.extend(3); -- 數(shù)組擴(kuò)展到3個元素
a(1) := 1;
a(2) := 10;
a(3) := 100;
end;
另外數(shù)組還有一下方法和屬性
first -- 第一個元素下標(biāo)
last -- 最后一個元素下標(biāo)
count -- 數(shù)組元素個數(shù)
prior(n) -- 下標(biāo) n 的前一個元素下標(biāo)
next(n) -- 下標(biāo) n 后一個元素下標(biāo)
extend(n) -- 添加 n 個數(shù)組元素，不帶參數(shù)添加一個數(shù)組元素
delete(n) -- 刪除數(shù)組中下標(biāo)為 n 的元素，不帶參數(shù)刪除整個數(shù)組元素
除了構(gòu)造函數(shù)外,集合還有很多內(nèi)建函數(shù)，這些函數(shù)稱為方法。
調(diào)用方法的語法如下：
collection.method
下表中列出oracle中集合的方法
方法 描述 使用限制
COUNT 返回集合中元素的個數(shù)
DELETE 刪除集合中所有元素
DELETE() 刪除元素下標(biāo)為x的元素，如果x為null,則集合保持不變
對VARRAY非法
DELETE(,) 刪除元素下標(biāo)從X到Y(jié)的元素，如果XY集合保持不變
對VARRAY非法
EXIST() 如果集合元素x已經(jīng)初始化，則返回TRUE, 否則返回FALSE
EXTEND 在集合末尾添加一個元素
對Index_by非法
EXTEND() 在集合末尾添加x個元素
對Index_by非法
EXTEND(,) 在集合末尾添加元素n的x個副本
對Index_by非法
FIRST 返回集合中的第一個元素的下標(biāo)號，對于VARRAY集合始終返回1。
LAST 返回集合中最后一個元素的下標(biāo)號, 對于VARRAY返回值始終等于COUNT.
LIMIT 返回VARRY集合的最大的元素個數(shù)，對于嵌套表和對于嵌套表和Index_by為null Index_by集合無用
NEXT() 返回在元素x之后及緊挨著它的元素的值，如果該元素是最后一個元素，則返回null.
PRIOR() 返回集合中在元素x之前緊挨著它的元素的值，如果該元素是第一個元素，則返回null。
TRI M 從集合末端開始刪除一個元素
對于index_by不合法
TRIM() 從集合末端開始刪除x個元素
對index_by不合法
使用實例：
Set serveroutput on
Declare
type my_text_table_type is table of
varchar2(200)
index by binary_integer;
l_text_table
my_text_table_type;
l_index number;
begin
for emp_rec in (select *
from emp) loop
l_text_table(emp_rec.empno):=emp_rec.ename;
end
loop;
l_index:= l_text_table.first;--使用first方法
loop
exit
when l_index is null;
dbms_output.put_line(l_index ||’:’||
l_text_table(l_index));
l_index :=l_text_table.next(l_index);
end loop;
end;
實例：
CREATE OR REPLACE PROCEDURE sample
is
TYPE
R_REC IS RECORD(INT NUMBER(6,2), CHR VARCHAR2(100));
TYPE T_REC IS
TABLE OF R_REC INDEX BY BINARY_INTEGER;
A_ZEI T_REC;
IX
NUMBER(10);
BEGIN
FOR IX IN 1..1000 LOOP
A_ZEI(IX).INT :=
IX;
A_ZEI(IX).CHR := TO_CHAR(A_ZEI(IX).INT,'9,999,999.99');
END
LOOP;
END;
或
CREATE OR REPLACE PROCEDURE P_EMP
IS
TYPE T_EMP
IS TABLE OF EMP%ROWTYPE INDEX BY BINARY_INTEGER;
A_EMP T_EMP;
I
BINARY_INTEGER := 0;
BEGIN
FOR REC IN (SELECT EMPNO,ENAME FROM EMP)
LOOP
I := I + 1;
A_EMP(I).EMPNO := REC.EMPNO;
A_EMP(I).ENAME := REC.ENAME;
END LOOP;
FOR K IN 1..I LOOP
DBMS_OUTPUT.PUT_LINE( A_EMP(K).EMPNO || ' ' || A_EMP(K).ENAME);
END
LOOP;
END;
集合：是具有相同定義的元素的聚合。Oracle有兩種類型的集合：
可變長數(shù)組（VARRAY）：可以有任意數(shù)量的元素，但必須預(yù)先定義限制值。
嵌套表：視為表中之表，可以有任意數(shù)量的元素，不需要預(yù)先定義限制值。
在PL/SQL中是沒有數(shù)組(Array)概念的。但是如果程序員想用Array的話，就得變通一下，用TYPE 和Table of
Record來代替多維數(shù)組，一樣挺好用的。
emp_type 就好象一個table 中的一條record 一樣，里面有id, name,gender等。emp_type_array 象個table,
里面含有一條條這樣的record (emp_type)，就象多維數(shù)組一樣。
--單維數(shù)組
DECLARE
TYPE emp_ssn_array IS TABLE OF NUMBER
INDEX BY
BINARY_INTEGER;
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;
--多維數(shù)組
DECLARE
TYPE emp_type IS RECORD
( emp_id
employee_table.emp_id%TYPE,
emp_name
employee_table.emp_name%TYPE,
emp_gender employee_table.emp_gender%TYPE
);
TYPE emp_type_array IS TABLE OF 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
用下面語句聲明數(shù)組類型
type intarray is varry(30) of integer;
用下面語句聲明一個數(shù)組變量
declare
A intarray;用下面語句聲明數(shù)組類型
type intarray is varry(30) of integer;
用下面語句聲明一個數(shù)組變量
declare
A intarray;用下面語句聲明數(shù)組類型
type intarray is varry(30) of integer;
用下面語句聲明一個數(shù)組變量
declare
A intarray;
#includeiostream
using namespace std;
void main() {
int n;
cin n;
int* a=new int[n];
int* order=new int[n];
for(int i=0; in; i++) {
cin a[i]; order[i]=0;
}
int eqNum=0;
for(int ord=1; ord+eqNum=n; ord++) {
int first=0;
while(order[first]!=0) first++;
// cout "ord: " ord ", first: " first ;
int min=a[first], minAt=first;
for(int j=first+1; jn; j++) {
if(order[j]!=0) continue;
if(a[j]min) { min=a[j]; minAt=j; }
}
// cout ", minAt: " minAt ", min: " min endl;
int ord0=ord;
order[minAt]=ord0;
for(int k=minAt+1; kn; k++) {
if(a[k]==min) { order[k]=ord0; eqNum++; }
}
}
for(int i=0; in; i++) {
if(i0) cout " ";
cout order[i];
}
}
ORACLE在PL/SQL中是沒有數(shù)組(Array)概念的。但是如果程序員想用Array的話，就得變通一下，用TYPE 和Table of Record來代替多維數(shù)組，一樣挺好用的。
集合：是具有相同定義的元素的聚合。Oracle有兩種類型的集合：
可變長數(shù)組（VARRAY）：可以有任意數(shù)量的元素，但必須預(yù)先定義限制值。
嵌套表：視為表中之表，可以有任意數(shù)量的元素，不需要預(yù)先定義限制值。
type intarray is varry(30) of integer;
A intarray;
TYPE T_EMP IS TABLE OF EMP%ROWTYPE INDEX BY BINARY_INTEGER;
A_EMP T_EMP;
I BINARY_INTEGER := 0;
FOR REC IN (SELECT EMPNO,ENAME FROM EMP) LOOP
I := I + 1;
A_EMP(I).EMPNO := REC.EMPNO;
END LOOP;
l:= A_EMP.first;--使用first方法
loop
exit when l is null;
dbms_output.put_line(l||’:’|| A_EMP(l).ENAME );
l:=A_EMP.next(l);
end loop;
pl/sql預(yù)定義了在varray 和嵌套表實例上進(jìn)行調(diào)用的方法。這些方法能在集合上執(zhí)行一定的功能。
EXISTS該函數(shù)返回集合中第一個元素的索引，如果集合為空，返回NULL
Collection.EXISTS(index)
COUNT該函數(shù)集合元素的數(shù)目
Collection.COUNT
DELETE該過程從嵌套表中刪除一個或多個或合部元素
Table_name.DELETE 刪除所有元素
Table_name.delete(index)刪除指定索引的記錄
Table_name.delete(start_index,end_index)刪除區(qū)間內(nèi)元素
FIRST返回集合第一個元素索引，如果集合為空，返回NULL
Collection.FIRST
LAST返回集合中最后一個元素索引，如果集合為空，返回NULL
Collection. LAST
NEXT返回集合當(dāng)前元素的下一個元素的索引，如果它不存在就返回NULL
Collection. NEXT
PRIOR返回集合當(dāng)前元素的上一個元素的索引，如果它不存在就返回NULL
Collection. PRIOR
LIMIT返回varray中創(chuàng)建元素的最大個數(shù)
Collection. LIMIT
EXTENDS該過程在集合的末尾添加新的元素
Collection.EXTEND添加一個NULL元素；Collection.extends(n)添加N個NULL元素，Collection.extend(n,index)添加由index指定位置上元素的n個副表
TRIM從集合末尾處刪除元素
Collection.TRIM 刪除最后一個元素
Collection.TRIM(n)刪除最后N個元素
可用DBMS_OUTPUT.PUT_LINE()對存儲過程的進(jìn)行輸出。
編寫存儲過程：
create or replace procedure test_pro(in_num number)
as
M number；
begin
M := in_num；
if 0 M then
dbms_output.put_line('輸出SQL語句1')；
elsif M 3 then
dbms_output.put_line('輸出SQL語句2')；
else
dbms_output.put_line('nothing')；
end if；
end；
擴(kuò)展資料；
存儲在數(shù)據(jù)庫的數(shù)據(jù)字典中，存儲在當(dāng)前的應(yīng)用中安全性由數(shù)據(jù)庫提供安全保證，必須通過授權(quán)才能使用存儲子程序，安全性靠應(yīng)用程序來保證，如果能執(zhí)行應(yīng)用程序，就能執(zhí)行該子程序。模式描述IN參數(shù)用來從調(diào)用環(huán)境中向存儲過程傳遞值，不能給IN參數(shù)賦值，給此參數(shù)傳遞的值可以是常量、有值的變量、表達(dá)式等。
參考資料來源：百度百科-Oracle存儲過程
重慶分公司
重慶分公司
