使用Forall 與bulk collect的快速複製表資料

2使用BULK COLLECT，不使用FORALL, 分批插入,多次提交,比較適用於大表;
create or replace procedure cp_data5 as
type t_cur is REF cursor;
c_table t_cur;
type t_employee is table of employees%rowtype;
v_employees t_employee;
rows number := 50;
v_sql varchar2(300);
v_table varchar(50);
begin
v_table := 'employee_cp';
open c_table for
select * from employees; --sour
v_sql := 'insert /*+ APPEND*/ into ' || v_table ||
' (EMPLOYEE_ID,
FIRST_NAME,
LAST_NAME,
EMAIL,
PHONE_NUMBER,
HIRE_DATE,
JOB_ID,
SALARY,
COMMISSION_PCT,
MANAGER_ID,
DEPARTMENT_ID,
BIRTHDAY) values (:1, :2,:3,:4,:5,:6, :7, :8,:9,:10, :11,:12)';
loop
fetch c_table bulk collect
into v_employees limit rows; --分批
dbms_output.put_line(v_employees.count);
for i in 1 .. v_employees.count loop
execute immediate v_sql
using V_EMPLOYEES(i).EMPLOYEE_ID, V_EMPLOYEES(i).FIRST_NAME, V_EMPLOYEES(i).LAST_NAME, V_EMPLOYEES(i).EMAIL, V_EMPLOYEES(i).PHONE_NUMBER, V_EMPLOYEES(i).HIRE_DATE, V_EMPLOYEES(i).JOB_ID, V_EMPLOYEES(i).SALARY, V_EMPLOYEES(i).COMMISSION_PCT, V_EMPLOYEES(i).MANAGER_ID, V_EMPLOYEES(i).DEPARTMENT_ID, V_EMPLOYEES(i).BIRTHDAY;
end loop;
commit;
exit when c_table%notfound;
end loop;
close c_table;
end;

3使用BULK COLLECT和FORALL ，分批插入,多次提交,比較適用於大表; 前期資料欄位定義比較煩鎖(表各個欄位必須分開定義)
-------------------
create or replace procedure cp_data as
type type_EMPLOYEE_ID is table of EMPLOYEES.EMPLOYEE_ID%type;
type type_FIRST_NAME is table of EMPLOYEES.FIRST_NAME%type;
type type_LAST_NAME is table of EMPLOYEES.LAST_NAME%type;
type type_EMAIL is table of EMPLOYEES.EMAIL%type;
type type_PHONE_NUMBER is table of EMPLOYEES.PHONE_NUMBER%type;
type type_HIRE_DATE is table of EMPLOYEES.HIRE_DATE%type;
type type_JOB_ID is table of EMPLOYEES.JOB_ID%type;
type type_SALARY is table of EMPLOYEES.SALARY%type;
type type_COMMISSION_PCT is table of EMPLOYEES.COMMISSION_PCT%type;
type type_MANAGER_ID is table of EMPLOYEES.MANAGER_ID%type;
type type_DEPARTMENT_ID is table of EMPLOYEES.DEPARTMENT_ID%type;
type type_BIRTHDAY is table of EMPLOYEES.BIRTHDAY%type;
V_EMPLOYEE_ID TYPE_EMPLOYEE_ID;
V_FIRST_NAME TYPE_FIRST_NAME;
V_LAST_NAME TYPE_LAST_NAME;
V_EMAIL TYPE_EMAIL;
V_PHONE_NUMBER TYPE_PHONE_NUMBER;
V_HIRE_DATE TYPE_HIRE_DATE;
V_JOB_ID TYPE_JOB_ID;
V_SALARY TYPE_SALARY;
V_COMMISSION_PCT TYPE_COMMISSION_PCT;
V_MANAGER_ID TYPE_MANAGER_ID;
V_DEPARTMENT_ID TYPE_DEPARTMENT_ID;
V_BIRTHDAY TYPE_BIRTHDAY;
type t_cur is ref cursor;
c_table t_cur;
v_table varchar2(30); --dest table
v_sql varchar2(300);
v_rows number := 50;
begin
v_table := 'EMPLOYEE_CP';
open c_table for
select * from employees; --sour table
v_sql := 'insert /*+ APPEND*/ into ' || v_table ||
' (EMPLOYEE_ID,
FIRST_NAME,
LAST_NAME,
EMAIL,
PHONE_NUMBER,
HIRE_DATE,
JOB_ID,
SALARY,
COMMISSION_PCT,
MANAGER_ID,
DEPARTMENT_ID,
BIRTHDAY)
values (:1, :2,:3,:4,:5,:6, :7, :8,:9,:10, :11,:12)';
loop
fetch c_table --.EMPLOYEE_ID, c_table.FIRST_NAME, c_table.LAST_NAME, c_table.EMAIL, c_table.PHONE_NUMBER, c_table.HIRE_DATE, c_table.JOB_ID, c_table.SALARY, c_table.COMMISSION_PCT, c_table.MANAGER_ID, c_table.DEPARTMENT_ID, c_table.BIRTHDAY
bulk collect
into V_EMPLOYEE_ID, V_FIRST_NAME, V_LAST_NAME, V_EMAIL, V_PHONE_NUMBER, V_HIRE_DATE, V_JOB_ID, V_SALARY, V_COMMISSION_PCT, V_MANAGER_ID, V_DEPARTMENT_ID, V_BIRTHDAY limit v_rows; --分批
forall i in 1 .. V_EMPLOYEE_ID.count execute immediate v_sql using
V_EMPLOYEE_ID(i), V_FIRST_NAME(i), V_LAST_NAME(i),
V_EMAIL(i), V_PHONE_NUMBER(i), V_HIRE_DATE(i),
V_JOB_ID(i), V_SALARY(i), V_COMMISSION_PCT(i),
V_MANAGER_ID(i), V_DEPARTMENT_ID(i), V_BIRTHDAY(i)
;
commit;
exit when c_table%notfound;
end loop;
end;

---------------------------------------------------------
4相關附助SQL:
select 'type TYPE_' || column_name || ' is table of ' || table_name || '.' ||
column_name || '%type'
from dba_tab_columns
where table_name = 'EMPLOYEES'
and owner = 'HYF'

select 'V_' || column_name || ' TYPE_' || column_name ||';'
from dba_tab_columns
where table_name = 'EMPLOYEES'
and owner = 'HYF'

select 'V_' || column_name || ','
from dba_tab_columns
where table_name = 'EMPLOYEES'
and owner = 'HYF'

select 'V_' || column_name || '(i),'
from dba_tab_columns
where table_name = 'EMPLOYEES'
and owner = 'HYF'