[size=large][b]1.索引表[/b][/size]
索引表是将数据保存在内存中,元素个数没有限制,并且下标可以是负值。
[b]1.1.定义索引表[/b]
[b]1.2.将条目插入到索引表中[/b]
索引表中的每个元素都由一个唯一的整型值(索引)标识。引用表中的值时,必须提供该值的索引。索引的范围:1 ----2147483647,索引值可以不连续,同时PL/SQL并不为没有使用的条目预留空间。
例如:
[b]1.3.对索引表中进行操作[/b]
1)引用:
2)修改:
3)删除:
[b]1.4.索引表中的函数[/b]
1) count:返回表的条目数量:
num_rows := emps.COUNT;
2) EXISTS:如果指定的条目存在,则返回为真;否则为假。
IF emps.EXIST(10) THEN
DBMS_OUTPUT.PUT_LINE('存在第10条记录。');
END IF;
3) LIMIT:该方法返回集合可以包含的最大元素数目。只有变长数组才有上限。将LIMIT 用于嵌套表和索引
表时,其返回为NULL。
4) FRIST:该方法返回集合中使用的最小的索引值。
5) LAST:该方法返回集合中使用的最大的索引值。
6) NEXT:该方法返回集合中当前使用的下一个索引值。
7) PRIOR:该方法返回集合中当前使用的上一个索引值。
8) DELETE:删除集合中的条目,见前例。
完整例子:
[size=large][b]2 嵌套表[/b][/size]
将数据保存在内存中!!!
嵌套表是一个无序记录集合。
检索数据库中的嵌套表时,条目的索引是连续的,不能象索引表那样随意跳过索引值。
需要使用构造函数初始化嵌套表。
嵌套表不能是以下数据类型:
BOOLEAN, NCHAR, NCLOB, NVARCHAR2, REF CURSOR, TABLE, VARRAY, NOT NULL。
嵌套表的定义和索引表类似,但不能使用INDEX BY 子句。
[b]2.1 初始化嵌套表[/b]
必须使用构造函数初始化嵌套表后,才能给它添加条目!
[b]2.2扩展嵌套表[/b]
利用 EXTEND 来扩展嵌套表的数据于内存。
[b]2.3删除嵌套表中的条目[/b]
1) DELETE 方法:
emps.DELETE(10); -- 删除嵌套表中的第10个条目。
注意:在删除嵌套表中的条目后,嵌套表中的条目并没有重新编号,还可以继续使用。
2) TRIM 方法:
TRIM方法是在表的末尾删除指定数目的条目。
TRIM方法只能用于嵌套表和变长数组。
[size=large][b]3.变长数组[/b][/size]
变长数组与嵌套表类似,但变长数组的最大长度是固定的。
变长数组与嵌套表一样需要初始化。
[b]3.1定义变长数组[/b]
[b]3.2扩展变长数组[/b]
类似于嵌套表,但不能超过最大长度。
[size=large][b]4.批绑定[/b][/size]
PL/SQL 批绑定是Oracle8i中的新功能。
1) 使用 BULK COLLECT
2) 使用 FORALL
[size=large][b]5.集合的异常处理[/b][/size]
[img]http://dl.iteye.com/upload/attachment/383751/2e69856b-c134-3c76-a869-a2ae6ad20089.png[/img]
索引表是将数据保存在内存中,元素个数没有限制,并且下标可以是负值。
[b]1.1.定义索引表[/b]
--定义索引表类型
type type_name is table of element_type [not null] index by key_type;
--定义索引表对象的实例
identifier type_name;
[b]1.2.将条目插入到索引表中[/b]
索引表中的每个元素都由一个唯一的整型值(索引)标识。引用表中的值时,必须提供该值的索引。索引的范围:1 ----2147483647,索引值可以不连续,同时PL/SQL并不为没有使用的条目预留空间。
例如:
create or replace procedure IndexTable is
CURSOR all_emps IS
SELECT * FROM EMP p ORDER BY p.empno;
TYPE EMP_TABLE IS TABLE OF EMP%ROWTYPE INDEX BY BINARY_INTEGER;
emps EMP_TABLE;
emps_max BINARY_INTEGER;
begin
emps_max := 0;
FOR employee IN all_emps LOOP
emps_max := emps_max + 1;
emps(emps_max).empno := employee.empno;
emps(emps_max).ename := employee.ename;
emps(emps_max).job := employee.job;
emps(emps_max).mgr := employee.mgr;
emps(emps_max).hiredate := employee.hiredate;
emps(emps_max).sal := employee.sal;
emps(emps_max).comm := employee.comm;
emps(emps_max).deptno := employee.deptno;
END LOOP;
end IndexTable;
[b]1.3.对索引表中进行操作[/b]
1)引用:
IF emps.EXISTS(10) THEN
DBMS_OUTPUT.put_line('存在第10条记录!');
END IF;
2)修改:
--修改emps表的第10个条目
IF emps.EXISTS(10) THEN
emps(10).ename := 'cdq;
DBMS_OUTPUT.put_line(emps(10).ename);
END IF;
3)删除:
--删除emps表的第10个条目
emps.DELETE(10);
--删除emps 表中的从1到10的条目
emps.DELETE(1,10);
--删除emps 表中的的所有条目
emps.DELETE;
[b]1.4.索引表中的函数[/b]
1) count:返回表的条目数量:
num_rows := emps.COUNT;
2) EXISTS:如果指定的条目存在,则返回为真;否则为假。
IF emps.EXIST(10) THEN
DBMS_OUTPUT.PUT_LINE('存在第10条记录。');
END IF;
3) LIMIT:该方法返回集合可以包含的最大元素数目。只有变长数组才有上限。将LIMIT 用于嵌套表和索引
表时,其返回为NULL。
4) FRIST:该方法返回集合中使用的最小的索引值。
5) LAST:该方法返回集合中使用的最大的索引值。
6) NEXT:该方法返回集合中当前使用的下一个索引值。
7) PRIOR:该方法返回集合中当前使用的上一个索引值。
8) DELETE:删除集合中的条目,见前例。
完整例子:
create or replace procedure IndexTable is
CURSOR all_emps IS
SELECT * FROM EMP p ORDER BY p.empno;
TYPE EMP_TABLE IS TABLE OF EMP%ROWTYPE INDEX BY BINARY_INTEGER;
emps EMP_TABLE;
emps_max BINARY_INTEGER;
begin
emps_max := 0;
FOR employee IN all_emps LOOP
emps_max := emps_max + 1;
emps(emps_max).empno := employee.empno;
emps(emps_max).ename := employee.ename;
emps(emps_max).job := employee.job;
emps(emps_max).mgr := employee.mgr;
emps(emps_max).hiredate := employee.hiredate;
emps(emps_max).sal := employee.sal;
emps(emps_max).comm := employee.comm;
emps(emps_max).deptno := employee.deptno;
END LOOP;
DBMS_OUTPUT.put_line('emps表中的数量是:'||emps.COUNT);
DBMS_OUTPUT.put_line('emps表中的LIMIT是:'||emps.LIMIT);
DBMS_OUTPUT.put_line('emps表中的FRIST是:'||emps.FIRST);
DBMS_OUTPUT.put_line('emps表中的LAST是:'||emps.LAST);
DBMS_OUTPUT.put_line('emps表中的NEXT是:'||emps.NEXT(1));
DBMS_OUTPUT.put_line('emps表中的PRIOR是:'||emps.PRIOR(6));
IF emps.EXISTS(10) THEN
DBMS_OUTPUT.put_line('存在第10条记录!');
END IF;
IF emps.EXISTS(10) THEN
emps(10).ename := 'cdq';
DBMS_OUTPUT.put_line(emps(10).ename);
END IF;
emps.DELETE(100);
emps.DELETE(1,100);
emps.DELETE;
end IndexTable;
[size=large][b]2 嵌套表[/b][/size]
将数据保存在内存中!!!
嵌套表是一个无序记录集合。
检索数据库中的嵌套表时,条目的索引是连续的,不能象索引表那样随意跳过索引值。
需要使用构造函数初始化嵌套表。
嵌套表不能是以下数据类型:
BOOLEAN, NCHAR, NCLOB, NVARCHAR2, REF CURSOR, TABLE, VARRAY, NOT NULL。
嵌套表的定义和索引表类似,但不能使用INDEX BY 子句。
[b]2.1 初始化嵌套表[/b]
必须使用构造函数初始化嵌套表后,才能给它添加条目!
-- 定义索引表类型
TYPE emp_tab IS TABLE OF emp%ROWTYPE;
-- 定义索引表对象的实例
emps emp_tab;
-- 初始化嵌套表
emps := emp_tab();
[b]2.2扩展嵌套表[/b]
利用 EXTEND 来扩展嵌套表的数据于内存。
create or replace procedure NestTable is
CURSOR all_emps IS SELECT * FROM EMP p ORDER BY p.empno;
TYPE emp_table IS TABLE OF emp%ROWTYPE;
emps emp_table;
i PLS_INTEGER;
l_count PLS_INTEGER;
begin
l_count :=0;
emps := emp_table();
FOR c1 IN all_emps LOOP
l_count := l_count + 1;
emps.EXTEND;
emps(l_count).empno := c1.empno;
emps(l_count).ename := c1.ename;
emps(l_count).job := c1.job;
emps(l_count).mgr := c1.mgr;
emps(l_count).hiredate := c1.hiredate;
emps(l_count).sal := c1.sal;
emps(l_count).comm := c1.comm;
emps(l_count).deptno := c1.deptno;
END LOOP;
-- clone the first entry five times
emps.EXTEND(5,1);
FOR i IN 1..l_count+5 LOOP
DBMS_OUTPUT.PUT_LINE(TO_CHAR(emps(i).empno) || ' ' || emps(i).ename);
END LOOP;
end NestTable;
[b]2.3删除嵌套表中的条目[/b]
1) DELETE 方法:
emps.DELETE(10); -- 删除嵌套表中的第10个条目。
注意:在删除嵌套表中的条目后,嵌套表中的条目并没有重新编号,还可以继续使用。
2) TRIM 方法:
TRIM方法是在表的末尾删除指定数目的条目。
TRIM方法只能用于嵌套表和变长数组。
create or replace procedure NestTable is
CURSOR all_emps IS
SELECT * FROM EMP p ORDER BY p.empno;
TYPE emp_table IS TABLE OF emp%ROWTYPE;
emps emp_table;
i PLS_INTEGER;
l_count PLS_INTEGER;
begin
l_count := 0;
emps := emp_table();
FOR c1 IN all_emps LOOP
l_count := l_count + 1;
emps.EXTEND;
emps(l_count).empno := c1.empno;
emps(l_count).ename := c1.ename;
emps(l_count).job := c1.job;
emps(l_count).mgr := c1.mgr;
emps(l_count).hiredate := c1.hiredate;
emps(l_count).sal := c1.sal;
emps(l_count).comm := c1.comm;
emps(l_count).deptno := c1.deptno;
END LOOP;
-- clone the first entry five times
emps.EXTEND(5, 1);
FOR i IN 1..emps.LAST LOOP
DBMS_OUTPUT.PUT_LINE(TO_CHAR(emps(i).empno) || ' ' || emps(i).ename);
END LOOP;
DBMS_OUTPUT.PUT_LINE('================================');
-- Trim off the five clones of entry #1
emps.TRIM(5);
-- Delete the first entry
emps.DELETE(1);
FOR i IN 1..l_count + 5 LOOP
IF emps.EXISTS(i) THEN --不判断可能会出现没有数据的错误
DBMS_OUTPUT.PUT_LINE(TO_CHAR(emps(i).empno) || ' ' || emps(i).ename);
END IF;
END LOOP;
end NestTable;
[size=large][b]3.变长数组[/b][/size]
变长数组与嵌套表类似,但变长数组的最大长度是固定的。
变长数组与嵌套表一样需要初始化。
[b]3.1定义变长数组[/b]
-- 定义最大长度为100 的变长数组
TYPE type_name IS VARRAY(100) OF VARCHAR2(20);
[b]3.2扩展变长数组[/b]
create or replace procedure ArrayTable is
CURSOR all_emp IS SELECT p.ename FROM EMP p ORDER BY p.empno;
TYPE emp_name IS ARRAY(14) OF emp.ename%TYPE;
names emp_name;
i PLS_INTEGER;
begin
names := emp_name();
i :=0;
FOR c1 IN all_emp LOOP
i := i+1;
names.EXTEND;
names(i) := c1.ename;
END LOOP;
FOR i IN names.FIRST..names.LAST LOOP
DBMS_OUTPUT.PUT_LINE(names(i));
END LOOP;
end ArrayTable;
类似于嵌套表,但不能超过最大长度。
[size=large][b]4.批绑定[/b][/size]
PL/SQL 批绑定是Oracle8i中的新功能。
1) 使用 BULK COLLECT
2) 使用 FORALL
create or replace procedure BULKTest is
CURSOR c1 IS
SELECT empno, ename FROM emp;
TYPE eno_tab IS TABLE OF emp.empno%TYPE;
TYPE ename_tab IS TABLE OF emp.ename%TYPE;
l_enos eno_tab;
l_enames ename_tab;
begin
OPEN c1;
FETCH c1 BULK COLLECT
INTO l_enos, l_enames;
CLOSE C1;
FOR i IN 1 .. l_enos.COUNT LOOP
DBMS_OUTPUT.PUT_LINE(TO_CHAR(l_enos(i)) || ' ' || l_enames(i));
END LOOP;
FORALL i IN l_enos.FIRST .. l_enos.LAST
UPDATE emp SET ename = l_enames(i) WHERE empno = l_enos(i);
end BULKTest;
[size=large][b]5.集合的异常处理[/b][/size]
[img]http://dl.iteye.com/upload/attachment/383751/2e69856b-c134-3c76-a869-a2ae6ad20089.png[/img]