set heading off——不显示每行的列名
set echo off——不重复显示所要执行的sql语句
set line 200——设置每行显示200字符
set pages 0——不进行分页显示
set feed off——不显示sql语句的运行结果(selected N rows)
SQL code
-- 这些代码的目的是将COMPONENT表的数据
-- 导出Insert语句
-- one_table.sql的代码是通过all_tab_columns,
-- 将表的列写成查询语句,并且加上set feedback off等设置命令
-- 并在./data/以导出表的名称命名的Sql文件,然后在执行这个文件,
-- 形成./data/以导出表的名称加_data命名的Sql文件。
--*******************************
--File main.sql
--*******************************
set echo off -- 是否显示脚本中正在执行的SQL语句 on 显示 off 不显示
set serveroutput on -- 使用dbms_output.put_line时,是否在屏幕上显示信息 on 显示 off 不显示
set feedback off -- 是否显示当前sql语句查询或修改的行数 off 不显示查询或修改的行数
set trimspool on -- 是否去除重定向(spool)输出每行的拖尾空格,on 去除 off 不去除
set line 10000 -- 设置一行显示的字符总数
set verify off -- 是否显示替代变量被替代前后的语句 on 显示 off 不显示
set head off -- 是否显示列标题 on 显示 off 不显示
@@ one_table.sql 'COMPONENT'; -- 执行main.sql目录下的one_table.sql 'COMPONENT' 是输入的参数
set head on
set line 100
set feedback on
set termout on -- 是否显示脚本中的命令的执行结果 on 显示 off 不显示
set echo on
--*******************************
--File one_table.sql
--*******************************
prompt *** Process &1 ...; -- 在屏幕上显示 *** Process COMPONENT ...
set serveroutput on
set echo off
set feedback off
set trimspool on
set line 10000
set verify off
set feedback off
set head off
set termout off
define tab_name = '&1' -- 定义变量 tab_name 并且将 'COMPONENT' 赋值给tab_name
spool ./data/&tab_name..sql -- 将屏幕显示的结果输出到./data/COMPONENT.sql文件中
declare -- 声明变量 关键字
-- 定义 游标 C1 有两个入口参数 v_owner v_tab_name
cursor c1(v_owner varchar2, v_tab_name varchar2) is
select column_name, data_type
from all_tab_columns
where table_name = v_tab_name
and owner = v_owner;
-- 变量的注释只能用猜的
field_list varchar2(4000); -- 存储表列的列表
field_list_sel varchar2(4000); -- 存储选择的表列的列表
fmt_field varchar2(200);
date_format varchar2(30) := 'yyyymmddhh24miss'; -- 日期格式
v_owner varchar2(30) := user;
v_tab_name varchar2(30) := upper(trim('&tab_name'));
begin
dbms_output.enable(1000000); -- 设置dmbs_output输出的缓冲区大小
dbms_output.put_line('set echo off feedback off'); -- 在屏幕上输出 "set echo off feedback off" 信息
dbms_output.put_line('spool ./data/&tab_name' || '_data.sql');
-- Print the insert field
dbms_output.put_line('variable field_list varchar2(4000);');
dbms_output.put_line('begin');
dbms_output.put_line(' :field_list := ''insert into &tab_name (''' );
-- 打开游标并c1并循环提取游标数据
for rec1 in c1(v_owner, v_tab_name) loop
if c1%rowcount = 1 then -- 检查游标是否只有一条数据
field_list := ' || '' ' || rec1.column_name || '''';
else
field_list := ' || '',' || rec1.column_name || '''';
end if;
dbms_output.put_line(field_list);
end loop;
dbms_output.put_line('||'')''||chr(10)||''values ('';');
dbms_output.put_line('end;');
dbms_output.put_line('/');
-- For select SQL to generate insert statement
dbms_output.put_line('select :field_list || chr(10) ||');
for rec1 in c1(v_owner, v_tab_name) loop
-- For insert values clause
if rec1.data_type = 'DATE' then
fmt_field := '''to_date(''''''||to_char(' || rec1.column_name || ', ''' ||
date_format || ''')||'''''',''''' || date_format || ''''')''';
elsif rec1.data_type in ('CHAR', 'VARCHAR2') then
fmt_field := ''''''''' || replace(' || rec1.column_name || ','''''''', '''''''''''')|| ''''''''';
else
fmt_field := 'to_char(' || rec1.column_name || ')';
end if;
if c1%rowcount = 1 then
field_list_sel := fmt_field;
else
field_list_sel := ' ||'','' || ' || fmt_field;
end if;
dbms_output.put_line(field_list_sel);
end loop;
dbms_output.put_line('|| '');''');
dbms_output.put_line('from &tab_name ;');
dbms_output.put_line('spoo off;');
end;
/
spool off;
@ ./data/&tab_name..sql
set head on
set line 100
set termout on
sqlplus_set用法
最新推荐文章于 2021-02-07 12:41:00 发布