Dynamic Creation of constraints. Suggestion rqd

Question

Hai
CREATE TABLE TDA
( PKNODAVE VARCHAR2(7 BYTE) NOT NULL ENABLE,
DTCREATION DATE,
DAVETRANSFERT VARCHAR2(7 BYTE),
PKPARC NUMBER(5,0)
ALTER TABLE TDA ADD CONSTRAINT PK_TDAV8 PRIMARY KEY (PKNODAVE)
ALTER TABLE TDA ADD CONSTRAINT FK_TDA1 FOREIGN KEY (DAVETRANSFERT)
REFERENCES TDA (PKNODAVE) ENABLE
i have a requirement to create a child table constraints with on delete cascade.
So i just did dynamic sql like this.
DECLARE
CURSOR tcur
IS
SELECT DISTINCT primary.table_name PARENT_TABLE ,
foreign.table_name CHILD_TABLE ,
foreign.constraint_name CHILD_CONSTRAINT ,
col.column_name FOREIGN_COLUMN ,
col1.column_name PRIMARY_COLUMN
FROM all_constraints PRIMARY,
all_constraints FOREIGN ,
all_cons_columns col ,
all_cons_columns col1
WHERE foreign.constraint_type = 'R'
AND foreign.R_OWNER = foreign.OWNER
AND foreign.R_CONSTRAINT_NAME = primary.CONSTRAINT_NAME
AND foreign.CONSTRAINT_NAME = col.CONSTRAINT_NAME
AND foreign.OWNER = col.OWNER
AND primary.CONSTRAINT_NAME = col1.CONSTRAINT_NAME
AND primary.OWNER = col1.OWNER
AND col.POSITION = col1.POSITION
AND primary.owner ='LOCAL'
AND primary.table_name ='TDA';
v_drop_sql VARCHAR2 (300);
v_create_sql VARCHAR2 (300);
v_count NUMBER;
v_t_name VARCHAR2 (30);
v_t_child_constraint VARCHAR2(100);
v_t_child_col_name VARCHAR2(100);
v_t_parent_col_name VARCHAR2(100);
v_t_child_table VARCHAR2(100);
BEGIN
FOR cur IN tcur
LOOP
v_t_name := NULL;
v_create_sql := NULL;
v_drop_sql := NULL;
v_count := 0;
v_t_child_table :=cur.child_table;
v_t_child_col_name :=cur.foreign_column;
v_t_parent_col_name :=cur.primary_column;
v_t_name :=cur.child_table;
v_t_child_constraint := cur.CHILD_CONSTRAINT;
--v_drop_sql           := 'ALTER TABLE ' ||v_t_name||' drop constraint  '||v_t_child_constraint;
-- EXECUTE IMMEDIATE v_drop_sql;
v_create_sql := 'ALTER TABLE '||v_t_child_table|| ' ADD CONSTRAINT ' ||v_t_child_constraint||' FOREIGN KEY( '||v_t_child_col_name||')
REFERENCES '||v_t_child_col_name||'('||v_t_parent_col_name||') ENABLE ON DELETE CASCADE';
dbms_output.put_line(v_create_sql);
EXECUTE IMMEDIATE v_create_sql;
END LOOP;
EXCEPTION
WHEN OTHERS THEN
DBMS_OUTPUT.PUT_LINE(v_create_sql);
END;
the pl/sql preocedure executes successfullly. but there is not constaint created why...?
Pls give your suggestions
S

Answer 1

Oracle beginner wrote:
EXCEPTION
WHEN OTHERS THEN
DBMS_OUTPUT.PUT_LINE(v_create_sql);
END;
the pl/sql preocedure executes successfullly. but there is not constaint created why...?Are you sure it's executing successfully? You are capturing all exceptions with your WHEN OTHERS clause and ignoring any errors.