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

Sql代码



/****************************

v_index 为主键语句

tablename 为表名

written by：wonder

modified by:

****************************/

CREATE OR REPLACE PROCEDURE prc_delete(v_index IN VARCHAR2, tablename IN VARCHAR2) IS

v_sql VARCHAR2(2000);

v_sql1 VARCHAR2(2000);

BEGIN

EXECUTE IMMEDIATE upper('truncate table except_table');

v_sql1 := upper(REPLACE(v_index, ';', ' ') || ' exceptions into except_table');

BEGIN

EXECUTE IMMEDIATE v_sql1;

EXCEPTION

WHEN OTHERS THEN

NULL;

END;

v_sql := upper('delete from ' || tablename || ' where rowid in (select row_id from except_table where table_name=''' ||

tablename || ''')');

EXECUTE IMMEDIATE v_sql;

EXECUTE IMMEDIATE REPLACE(v_index, ';', ' ');

COMMIT;

END prc_delete;