Oracle创建主键时处理重复数据的程序

Sql代码

1. /****************************   
2. v_index 为主键语句   
3. tablename 为表名   
4. written by：wonder   
5. modified by:   
6. ****************************/   
7.   
8. CREATE OR REPLACE PROCEDURE prc_delete(v_index IN VARCHAR2, tablename IN VARCHAR2) IS  
9.   v_sql  VARCHAR2(2000);   
10.   v_sql1 VARCHAR2(2000);   
11.   
12. BEGIN  
13.   EXECUTE IMMEDIATE upper('truncate table except_table');   
14.   v_sql1 := upper(REPLACE(v_index, ';', ' ') || ' exceptions into except_table');   
15.   BEGIN  
16.     EXECUTE IMMEDIATE v_sql1;   
17.   EXCEPTION   
18.     WHEN OTHERS THEN  
19.       NULL;   
20.   END;   
21.   
22.   v_sql := upper('delete from ' || tablename || ' where rowid in (select row_id from except_table where table_name=''' ||   
23.                  tablename || ''')');   
24.   EXECUTE IMMEDIATE v_sql;   
25.   EXECUTE IMMEDIATE REPLACE(v_index, ';', ' ');   
26.   COMMIT;   
27. END prc_delete;