|
【赛迪网－it技术报道】>>从一个表a的取得数据插入另一个表b中？
（1）对于表a和表b两个表结构完全相同的话〔字段个数，相应字段的类型等等〕，可以使用
insert into b select * from a;
insert into b(field1,field2,field3) select a.field1,a.field2，a.field3 from a;
（2） 对于两个表如果字段数不一样，但是有几个字段的结构一样时〔类似于父子关系〕，必须使用 insert into b(field1,field2) select a.field1,a.field2 from a;
1.用带参数的游标实现insert功能：
create or replace procedure get_data(
-- 参数列表：
n_task_id in number, --任务编号
v_task_name in varchar2, --任务名称
v_name in varchar2 -- 名称
)
-----------------------------------------------
-- procedure名 ：get_data --
-- ?理内容 ：从数据源表取得符合条件的的数据插入到目标数据表: --
-- 引数 ：n_tas_id 任务id, --
-- v_task_namek 任务名称, --
-- v_bdw_name 对数据源表限制条件:本地网名称 --
-----------------------------------------------
is
--插入行数控制
i_count number(5);
--取数据游标：data_cur（in_name）
--参数：本地网名称：in_name
cursor data_cur(in_name varchar2) is /**注意：参数的定义中不带精度**/
select *
from get_data_src a
where a.name = in_name;
begin
--计数器，控制插入行数
i_count := 0;
--循环插入数据
for mycur in data_cur(v_name) loop
insert into abc(
row_id,
task_id,
task_name,
get_data_dt,
cust_id,
assign_flag,
deal_date
)values(
seq_kd.nextval,
n_task_id,
v_task_name,
sysdate,
mycur.cust_id,
'n',
null
);
--程序试用阶段，以后会删除satrt
i_count := i_count + 1;
if i_count >100 then
commit;
return;
end if;
--程序试用阶段，以后会删除end
end loop;
--数据commit,程序调试阶段避免大量数据，暂时关闭
--commit;
--------例外处理部分----------------------------
exception
when others then
rollback;
end srbz_get_srbz_kd_speed;
/
2.使用语句拼接法实现insert功能：
注：2.1字符串常量的引号 2.2 变量的引号
create or replace procedure abc(
-- 参数列表：
task_id in number, --任务编号
task_name in varchar2, --任务名称
in_name in varchar2 --名称
)
--------------------------- procedure名 ：abc
-- ?理内容 ：从数据源表取得符合条件的的数据插入到目标数据表
-- 引数 ：table_src 数据源表
-- table_to 数据插入目标表
-- in_bdw_name 对数据源表限制条件:本地网名称
---------------------------------------------
is
--insert_string 动态生成的insert语句存放处
insert_string varchar2(1000);
--数据源表存放处
tablesrc varchar2(500);
--数据插入目标表存放处
tabletarget varchar2(1000);
--数据目标表需要插入值的字段存放处
strfields varchar2(1000);
begin
--数据源表为：aaa
tabletarget := ' bbb ';
--数据来源
tablesrc := ' select seq_kd.nextval,sysdate,'||task_id||','''||task_name||''', '
||'a.* from aaa a'
||' where a.value='||'''ip-vpdn'''
||'and a.remark is null';
--需要插入的字段
strfields := '(row_id,get_data_dt,task_id,task_name,cost_ctr,service_id,'
||'si_addr,si_server_id)';
--生成insert语句
insert_string := 'insert into ' || tabletarget || strfields || tablesrc ;
--执行insert语句
execute immediate insert_string;
--提交事务
commit;
--------例外处理部分-------------------------------------------------------
exception
--异常的抛出
when others then
--dbms_output.put_line('处理过程中出错，程序退出，未执行相关内务');
rollback;
end srbz_get_srbz_kd_gsvpdn_free; |
