如何往其他的schema里面拷贝表，包括index,急！！在线等候！！！

Question

转载,仅供参考:
set echo offcolumn order_col1 noprint
column order_col2 noprintset heading off
set verify off
set feedback off
set echo offspool move_build_tpcrm.sql
!date
select decode( segment_type, 'TABLE', 
                       segment_name, table_name ) order_col1,
       decode( segment_type, 'TABLE', 1, 2 ) order_col2,
      'alter ' || segment_type || ' ' || segment_name ||
      decode( segment_type, 'TABLE', ' move; ', ' rebuild; ' )  
  from user_segments, 
       (select table_name, index_name from user_indexes )
where segment_type in ( 'TABLE', 'INDEX' )
   and segment_name = index_name (+)
   and tablespace_name in 
      (×Ô¼ºÑ¡ÔñµÄ±í¿Õ¼ä)
order by 1, 2
/       
!date
spool offset heading on
set verify on
set feedback on
set echo onREM UNCOMMENT TO AUTO RUN the generated commands
REM ELSE edit move_build.sql, modify as needed and run it
@move_build

Answer 1

忘了说了，是要在delphi里面实现，通过SQL语句有什么办法吗？