用于删除Oracle DBMS中的记录的存储过程

试图找出如何创建存储过程，该存储过程将从客户表，customer_order表和line_item表中删除客户。这里是表格。用于删除Oracle DBMS中的记录的存储过程

CREATE TABLE customer(
    customer_ID DECIMAL(10) NOT NULL, 
    customer_first VARCHAR(30), 
    customer_last VARCHAR(40), 
    customer_total DECIMAL(12, 2), 
    PRIMARY KEY (customer_ID)); 

CREATE TABLE customer_order (
order_id DECIMAL(10) NOT NULL, 
customer_id DECIMAL(10) NOT NULL, 
order_total DECIMAL(12,2), 
order_date DATE, 
PRIMARY KEY (ORDER_ID), 
FOREIGN KEY (CUSTOMER_ID) REFERENCES customer); 

CREATE TABLE line_item(
order_id DECIMAL(10) NOT NULL, 
item_id DECIMAL(10) NOT NULL, 
item_quantity DECIMAL(10) NOT NULL, 
line_price DECIMAL(12,2), 
PRIMARY KEY (ORDER_ID, ITEM_ID), 
FOREIGN KEY (ORDER_ID) REFERENCES customer_order, 
FOREIGN KEY (ITEM_ID) REFERENCES item);

这里是我到目前为止对SP

CREATE OR REPLACE PROCEDURE DELETE_CUSTOMER(
              customer_id_arg IN DECIMAL, 
              first_name_arg  IN VARCHAR, 
              last_name_arg  IN VARCHAR 
              ) IS 
BEGIN 
    DELETE FROM CUSTOMER 
      WHERE customer_id IN (SELECT customer_last 
            FROM Customer 
           WHERE customer_id = customer_id_arg); 
END;

当我尝试运行它，它不会删除的记录，我很困惑，适合做什么。

来源

2016-11-26 so918

尝试在'delete'后面执行'commit'。 –

创建FK参考为“ON DELETE CASCADE”（https://www.techonthenet.com/oracle/foreign_keys/foreign_delete.php），它将负责为您删除子记录。 – OldProgrammer

不是直接点，但你期望什么'WHERE customer_id IN（SELECT customer_last ...'做什么？ –

下面示例代码从父表使用database_dictionary级联到所有子表中删除的数据，我有很多的乐趣写它;-) 注意最后一行从人其中pk =“38B567E2909447868ABDDF500B78F2A3”删除;很容易被推广。另一个要补充的是，如果你有两列或更多的主约束，这个脚本不起作用...

declare 
    TYPE cur_typ IS REF CURSOR; 
    procedure delete_from_sub_table_first(p_current_table_name varchar2, l_parent_key_value varchar2) is 
    c cur_typ; 
    child_table_pm_key_value varchar2(255); 
    begin 
    for childConsRecord in (select ac.table_name child_table, acc.column_name Child_column, rac.table_name, racc.COLUMN_NAME, (select column_name from ALL_CONS_COLUMNS accpm, all_constraints acpm where accpm.constraint_name = acpm.constraint_name and acpm.CONSTRAINT_TYPE = 'P' and ac.TABLE_NAME = acpm.TABLE_NAME) child_table_pm_key 
        from ALL_CONS_COLUMNS acc, all_constraints ac, ALL_CONS_COLUMNS racc, all_constraints rac 
        where acc.CONSTRAINT_NAME = ac.CONSTRAINT_NAME 
        and ac.CONSTRAINT_TYPE = 'R' 
        and racc.CONSTRAINT_NAME = rac.CONSTRAINT_NAME 
        and rac.constraint_name = ac.R_CONSTRAINT_NAME 
        and rac.table_name = p_current_table_name) loop 
     OPEN c FOR 'select ' || childConsRecord.child_table_pm_key || ' child_value FROM ' || childConsRecord.child_table || ' where ' || childConsRecord.Child_column || ' = :1' using l_parent_key_value; 
     LOOP 
      FETCH c INTO child_table_pm_key_value; 
      EXIT WHEN c%NOTFOUND; 
      -- process row here 
      delete_from_sub_table_first(childConsRecord.child_table, child_table_pm_key_value); 
     END LOOP; 
     close c; 
     EXECUTE IMMEDIATE 'DELETE FROM ' || childConsRecord.child_table || ' where ' || childConsRecord.Child_column || ' = :1' using l_parent_key_value;   
    end loop; 
    end; 
begin 
    delete_from_sub_table_first('PERSON', '38B567E2909447868ABDDF500B78F2A3'); 
    delete from person where pk = '38B567E2909447868ABDDF500B78F2A3'; 
end; 
/

来源

2017-11-03 11:27:41

用于删除Oracle DBMS中的记录的存储过程

回答

相关问题