从多个表中删除清理脚本 SQL

Question

答案在底部，最终发现。感谢所有的贡献。

我必须编写一个脚本，然后将其制成一个存储过程，然后每隔几个月运行一次。它需要进入一些特定的表并删除旧记录。我认为这会很简单，但我一直遇到同样的问题。

如果我尝试运行我得到的代码和无效标识符错误，这似乎是日期字段的问题，其中 oracle 默认使用几个月的字母，我尝试了各种日期格式，但我似乎没有上班。

我声明要删除的日期，然后将一条执行立即语句串在一起，该语句将循环遍历包含表名的 tabletoclean 表，以及我将对其进行清理的表的日期字段名称。

错误代码是 ORA-00904：“APR”无效指示符 我猜是因为它尝试使用 APR - APRIL 而不是 04。但我不知道。据我所知，没有一个 dtl_fields 使用月份名称日期格式。

Declare
dtldate date := to_date(add_months( to_date(sysdate), -24 ), 'dd-mm-yy');

Begin
  for tbl IN (Select * from tbltoclean)
loop 

 execute immediate 'Delete from '||tbl.tbl_name || ' where ' || tbl.dtl_field ||' < ' || dtldate;

 DBMS_OUTPUT.PUT_LINE ('Deleted from '|| to_char(tbl.tbl_name));
 end loop;
 end;

如果我在 dbms.output 中运行执行立即字符串，我会返回类似的字符串 Select * from mytable where datefield

确认问题出在日期格式上。

编辑/回答 问题出在 dtldate 变量上。它将日期发布到立即执行，如下所示。

Select * from mytable where datefield

这没用，但是

Select * from mytable where datefield

会工作，所以我编辑了以下代码的字符串。

Declare
dtldate date := add_months( to_date(sysdate), -24 );

Begin
  for tbl IN (Select * from tbltoclean)
loop 

 execute immediate 'Select null from '||tbl.tbl_name || ' where ' || tbl.dtl_field ||' < ' || 'to_date('''||dtldate||''')'; --dtldate have escaped ''

 DBMS_OUTPUT.PUT_LINE ('Deleted from '|| to_char(tbl.tbl_name));
 end loop;
 end;

Answer 1

SYSDATE是一个返回DATE数据类型的函数；再次将其转换为日期（使用TO_DATE）是没有用的。

所以，这可能会做你想做的事：

declare
  dtldate date := add_months(trunc(sysdate), -24);
begin
  for tbl in (select * from tbltoclean)
  loop 
    execute immediate 'Delete from '||tbl.tbl_name || 
                      ' where ' || tbl.dtl_field ||' < DATE ''' || to_char(dtldate, 'YYYY-MM-DD') || '''';

    dbms_output.put_line ('Deleted from '|| to_char(tbl.tbl_name));
  end loop;
end;

Answer 2

这是处理 DATES 的正确方法：

DECLARE
    --
    DTLDATE DATE;
    --
BEGIN
    --
    DTLDATE := TRUNC(SYSDATE) -- 30/04/2018 14:36 -> 30/04/2018
    --
    DTLDATE := ADD_MONTHS(DTLDATE, -24) -- 30/04/2018 -> 30/04/2016
    --
    FOR TBL IN (SELECT * FROM TBLTOCLEAN) LOOP 
        --
        EXECUTE IMMEDIATE 'DELETE FROM '||TBL.TBL_NAME || 
                          ' WHERE ' || TBL.DTL_FIELD ||' < :DTLDATE' 
          USING DTLDATE;
        DBMS_OUTPUT.PUT_LINE ('DELETED FROM '|| TBL.TBL_NAME);
        --
    END LOOP;
    --
 END;