zoukankan      html  css  js  c++  java
  • 导入操作

    上次传了一个游标的缴费 这个再上传个游标的导入 这个是用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;
    

      

  • 相关阅读:
    符号化Symbol(符号)体系
    shp2pgsql
    ArcGIS Flex(9.3)+GP服务完成最短路径分析(1)转载
    安装postgis,使用postgis导入shapefile的步骤总结 转载
    iis .NET的安装顺序反了该怎么办?
    WindowsXP 安装 PostgreSQL 8.4.2 数据库
    Web前端数据缓存处理
    SpringBoot 无Session开发
    Web端子页面iframe出现登录页面处理。
    Mybatis Generator自定义扩展
  • 原文地址:https://www.cnblogs.com/devin818/p/5105391.html
Copyright © 2011-2022 走看看