Oracle extracts data through dblink

You can use select * from user_sequence and select * from all_tables to obtain the names of sequence and table for concatenation.

The biggest fear is that the current account has insufficient permissions. It's a testing environment, so I can do whatever I want.

 

1. Create or replace package extraction_dataIs
2. -- Author: ADMINISTRATOR
3. -- Created: 03:36:28
4. -- Purpose: extract data
6. Cursor TNAMEIsSELECT table_name AS table_name FROM all_tables@TB.REGRESS.RDBMS.DEV.US.Oracle.COM where owner = upper ('Tidba');
8. PROCEDURE EXT_DATA;
10. PROCEDURE EXT_SEQ;
11. End extraction_data;
12. /
13. Create or replace package body extraction_dataIs
15. PROCEDURE EXT_DATA IS
16. BEGIN
17. FOR T IN TNAME LOOP
18. /* Dbms_output.put_line ('execute the insert process' | T. table_name );*/
19. -- Delete a table to prevent repeated data insertion.
20. Begin
21. EXECUTE IMMEDIATE'Drop table'| T. table_name;
22. Exception when others then null;
23. End;
25. -- Output the SQL statement to be executed
26. Dbms_output.put_line ('Create table tieba .'| T. table_name |'As select * from'| T. table_name |'@ TB. REGRESS. RDBMS. DEV. US. ORACLE. COM');
27. Dbms_output.put_line ('Commit ;');
28. -- You may not be able to execute the remote table data to a local directory.
29. /* Execute immediate 'create table tieba. '| T. table_name | 'as select * from '| T. table_name | '@ TB. REGRESS. RDBMS. DEV. US. ORACLE. COM ';*/
31. End loop;
32. END EXT_DATA;
33. -- This process is not successfully executed. You can assemble sequence strings as needed.
34. PROCEDURE EXT_SEQ IS
35. BEGIN
36. -- Create sequence
37. -- Create sequence ADMIN_MESSAGE_SEQ minvalue 1 maxvalue 999999999 start with 100000 increment by 1 cache 20;
38. -- Select * from user_sequence;
39. For t in (select * from user_sequences@TB.REGRESS.RDBMS.DEV.US.ORACLE.COM) LOOP
40. /* Dbms_output.put_line ('execute the insert process' | T. table_name );*/
41. -- Delete a table to prevent repeated data insertion.
42. Begin
43. EXECUTE IMMEDIATE'Drop sequence'| T. sequence_name;
44. Exception when others then null;
45. End;
47. -- Output the SQL statement to be executed
48. Dbms_output.put_line ('Create sequence tieba .'| T. sequence_name |'Minvalue 1 maxvalue 999999999 start'| T. LAST_NUMBER |'Increment by 1 cache 20 ;');
49. /* Execute immediate 'create sequence tieba. '| T. sequence_name | 'minvalue 1 maxvalue 999999999 start with' | T. LAST_NUMBER | 'crement by 1 cache 20 ;';*/
50. End loop;
51. Dbms_output.put_line ('Commit ;');
52. END EXT_SEQ;
53. End extraction_data;
54. /