就是通過select * from user_sequence和select * from all_tables 來獲取sequence和table的名字進行拼串

最怕的就是當前賬號的許可權不夠。還好是測試環境，我能隨便折騰

create or replace package extraction_data is -- Author : ADMINISTRATOR -- Created : 2010-12-15 下午 03:36:28 -- Purpose : 抽取資料 Cursor TNAME is SELECT table_name AS table_name FROM all_tables@TB.REGRESS.RDBMS.DEV.US.ORACLE.COM where owner =upper('tieba'); PROCEDURE EXT_DATA; PROCEDURE EXT_SEQ; end extraction_data; / create or replace package body extraction_data is PROCEDURE EXT_DATA IS BEGIN FOR T IN TNAME LOOP /* dbms_output.put_line('執行insert過程'||T.table_name);*/ --執行表的刪除操作，防止重複插入資料 begin EXECUTE IMMEDIATE 'drop table '||T.table_name ; EXCEPTION WHEN OTHERS THEN NULL; end; --輸出要執行的sql dbms_output.put_line('create table tieba.'||T.table_name||' as select * from '||T.table_name||'@TB.REGRESS.RDBMS.DEV.US.ORACLE.COM'); dbms_output.put_line('commit;'); --將遠端的表的資料拿到本地，可能執行不了呀 /*EXECUTE IMMEDIATE 'create table tieba.'||T.table_name||' as select * from '||T.table_name||'@TB.REGRESS.RDBMS.DEV.US.ORACLE.COM';*/ END LOOP; END EXT_DATA; --此過程沒有成功執行。如果需要可以拼裝sequence串 PROCEDURE EXT_SEQ IS BEGIN -- Create sequence --create sequence ADMIN_MESSAGE_SEQ minvalue 1 maxvalue 999999999 start with 100000 increment by 1 cache 20; --select * from user_sequence; FOR T IN (select * from user_sequences@TB.REGRESS.RDBMS.DEV.US.ORACLE.COM) LOOP /* dbms_output.put_line('執行insert過程'||T.table_name);*/ --執行表的刪除操作，防止重複插入資料 begin EXECUTE IMMEDIATE 'drop sequence '||T.sequence_name ; EXCEPTION WHEN OTHERS THEN NULL; end; --輸出要執行的sql dbms_output.put_line('create sequence tieba.'||T.sequence_name||' minvalue 1 maxvalue 999999999 start with '||T.LAST_NUMBER||' increment by 1 cache 20;'); /* EXECUTE IMMEDIATE 'create sequence tieba.'||T.sequence_name||' minvalue 1 maxvalue 999999999 start with '||T.LAST_NUMBER||' increment by 1 cache 20;';*/ END LOOP; dbms_output.put_line('commit;'); END EXT_SEQ; end extraction_data; /