DECLARE
TYPE c_a IS TABLE OF VARCHAR2(200) INDEX BY BINARY_INTEGER;
TYPE c_b IS TABLE OF po_vendors%ROWTYPE INDEX BY BINARY_INTEGER;
v_1 c_a;
CURSOR cur IS
SELECT * from po_vendors pv WHERE pv.vendor_id < 10;
n NUMBER;
BEGIN
n := 0;
FOR i IN cur LOOP
n := n + 1;
v_1(n) := i.vendor_name;
END LOOP;
dbms_output.put_line(v_1.first);
dbms_output.put_line(v_1.last);
dbms_output.put_line(v_1.count);
--v_1.delete; -- 清除数组
FORALL j IN 1 .. v_1.count
INSERT INTO cux_vendor (vendor_id, vendor_name) VALUES (1, v_1(j));
FOR j IN v_1.first .. v_1.last LOOP
INSERT INTO cux_vendor (vendor_id, vendor_name) VALUES (1, v_1(j));
END LOOP;
END;
--create table
CREATE TABLE cux_vendor(vendor_id NUMBER, vendor_name VARCHAR2(240));
--
SELECT * FROM cux_vendor;
来自 “ ITPUB博客 ” ，链接：https://blog.itpub.net/25684327/viewspace-692772/ ，如需转载，请注明出处，否则将追究法律责任。
