各位先进： Oracle8.16 将一个用户单位表(LR_DWGK)中的数据导入到另一个用户单位表(DWGK)中。 思路如下： /* lr_dwgk中的各个记录是否在dwgk中，如果在则更新，否则插入新记录 判断dwgk是否每个记录在lr_dwgk中，不存在则删除 */

      v_user VARCHAR2(10);
  v_cnt number:=0; --判断用户是否存在  
  v_sql VARCHAR2 (4000);        TYPE c_dwgk IS REF CURSOR ;
  C_dw  c_dwgk;
  Qry_str   VARCHAR2(1000);
  cnt Number:=0;
  CURSOR C_DMGK IS SELECT t.dm FROM STUDY.DWGK t;  
  DW STUDY.Dwgk%ROWTYPE;    begin
  v_user:='DW'||p_year;  
  --判断该用户是否存在，否则触发用户不存在异常
  SELECT COUNT(*) INTO v_cnt FROM all_users t  WHERE t.USERNAME =UPPER(v_user);
  IF v_cnt<>1 THEN
  --触发异常    
      RAISE E_NO_USER;
  ELSE
      Qry_str :='SELECT * FROM '||v_user||'.Lr_DWGK';
      OPEN C_dw FOR Qry_str;
      LOOP
          /*设置退出条件*/
          FETCH C_dw INTO DW;
          EXIT WHEN SQL%NOTFOUND;
          
          /*更新单位记录*/为什么到这里会死循环,不能调试了呢？？
          UPDATE DWGK SET
                 DM=dw.dm, DW=dw.dw, ZDB1=dw.zdb1 WHERE dm=dw.dm;
          /*不存在则插入新记录*/
          IF SQL%NOTFOUND THEN
             INSERT INTO DWGK(DM, DW, ZDB1)
                    VALUES(dw.dm,dw.dw,dw.zdb1); 
          END IF;        
      END LOOP;
      CLOSE C_dw;
      /*删除不存在的单位记录*/
      FOR V_dm IN C_DMGK LOOP
          Qry_str:='SELECT COUNT(*) FROM '
                   ||v_user||'.LR_DWGK'
                   ||' WHERE DM= :dm';
          EXECUTE IMMEDIATE Qry_str
                  INTO cnt
                  USING V_dm.dm;
          IF cnt=0 THEN
             DELETE FROM DWGK t WHERE t.dm=V_dm.dm;          
          END IF;      
      END LOOP;      
        
end if;

發表人 - zzmbeyond01 於 2004/12/25 21:26:12 發表人 - zzmbeyond01 於 2004/12/25 21:29:36

声明中   TYPE c_dwgk IS REF CURSOR ;   C_dw c_dwgk; 用于获得lr_dwgk表中的记录集 Qry_str VARCHAR2(1000); cnt Number:=0; CURSOR C_DMGK IS SELECT t.dm FROM STUDY.DWGK t; DW STUDY.Dwgk%ROWTYPE; dwgk 与lr_dwgk两个表中的字段顺序不同，怎么解决？？？。。< >< >

各位大大：    DW DWGK%rowtype;    OPEN C_dw FOR 'SELECT * FROM '||v_user||'.Lr_DWGK'; 如果DWGK包含Lr_dwgk表中字段，并且两个表字段顺序不同，请问下句运行： FETCH C_dw INTO DW; 能实现把Lr_dwgk中的字段赋值给对应的DWGK对应的字段中去的效果呢？

奇怪看你需求滿簡單的，你會不會寫的太複雜了

------
星期一,二...無窮迴圈＠＠

多谢，大大的方法真简洁