导入操作

上次传了一个游标的缴费 这个再上传个游标的导入 这个是用fetch游标做的

create or replace procedure l_f_daoru_lab_expert (
  resultStr out varchar,
  v_userid in CHAR
) is
v_str varchar(500);
m number;
n number;
k number;
v_mac l_apply_log.mac%type;
v_ip l_apply_log.ip%type;
v_tele l_apply_log.tele%type;
v_mobilephone l_apply_log.mobilephone%type;
v_cnt number;
v_expert_no l_lab_expert_temp.expert_no%type;
v_expert_desc l_lab_expert_temp.expert_desc%type;
cursor c_expert is select expert_no,expert_desc from l_lab_expert_temp where user_id=v_userid ORDER by expert_no asc ;
--****************************************************钟冬冬********************************************
Begin
  --请自行编辑存储过程函数体
  select count(distinct(expert_no)) into m from l_lab_expert_temp where user_id=v_userid;
   select count(expert_no) into n from l_lab_expert_temp where user_id=v_userid;
   if n>m then  ResultStr := ‘error: 有重复的专家号，请核对.‘;
    return;
   end if;

open c_expert;
  fetch c_expert into v_expert_no,v_expert_desc;
  while c_expert%found loop
    select count(*) into v_cnt from l_lab_expert where expert_no=v_expert_no;
    if v_cnt>0 then
      v_str:=trim(v_str||‘专家编号为‘||v_expert_no||‘已存在<br />‘);
     end if;
    fetch c_expert into v_expert_no,v_expert_desc;
    end loop;
    close c_expert;

   if trim(v_str) is not null or trim(v_str) <>‘‘ then
   ResultStr:=trim(v_str)||‘请核对!<br />‘;
    return;
   end if;

  --导入数据
  insert into l_lab_expert(expert_no,expert_desc)
  select expert_no,expert_desc from l_lab_expert_temp
  where user_id=v_userid ;

  delete l_lab_expert_temp;
  --插入日志
select distinct(mac) into v_mac from l_lab_mac_temp where trim(member_no)=trim(v_userid);
select distinct(ip) into v_ip from l_lab_mac_temp where trim(member_no)=trim(v_userid);
select nvl(tele,‘无‘) into v_tele from emp_def where trim(emp_no)=trim(v_userid);
select nvl(mobilephone,‘无‘) into v_mobilephone from emp_def where trim(emp_no)=trim(v_userid);
insert into l_apply_log(id,op_man,tele,mobilephone,message,op_date,mac,ip)
values(l_log.nextval,v_userid,v_tele,v_mobilephone,‘导入了专家类别信息‘,sysdate,v_mac,v_ip);

--删除临时表
delete from l_lab_mac_temp where trim(member_no)=trim(v_userid);
 ResultStr := ‘success: 导入成功.‘;
End;