UPSERT 到具有动态表名的表中

Question

任何更好的 UPSERT 到表中的方法，前提是：

• 以约 1 行/秒的速度更新插入数据
• 表名称是动态的，使用传递给它的 ObjectID 参数生成

以下过程抛出： “ORA-00942：表或视图不存在”

CREATE OR REPLACE PROCEDURE
PROCEDURE "SPINSERTDATA"
(
  pObjectID IN RAW,
  pDateTime IN TIMESTAMP,
  pValue IN BINARY_DOUBLE,
)
AS
BEGIN
  Declare
    vQueryInsert VARCHAR2(1000);
    vQueryUpdate VARCHAR2(1000);
    vTableName VARCHAR2(30);
  Begin      
      vTableName := FGETTABLENAME(POBJECTID => pObjectID);
      vQueryUpdate := 'UPDATE '      || vTableName || ' SET "VALUE" = :1';
      vQueryInsert := 'INSERT INTO ' || vTableName || ' ("DTTIME", "VALUE") VALUES (:1, :2)';

      EXECUTE IMMEDIATE vQueryInsert USING pDateTime, pValue;
        EXCEPTION
          WHEN DUP_VAL_ON_INDEX THEN 
            EXECUTE IMMEDIATE vQueryUpdate USING pValue;
  End;
END "SPINSERTDATA";

• 显然 MERGE 不起作用，因为 TableName 不能是动态的 ???
• 我是一个新手，我编码的第三个月，我艰难地度过了 堆栈溢出与谷歌搜索了三天了，尝试了各种有趣的和有趣的内容。 绝望的解决方案......即使是一个非常相关的链接，如果你找到了一个 会受到真诚的赞赏。

Answer 1

MERGE 与本机动态 SQL（立即执行）完美配合：

create table so_test(pk number not null primary key, value varchar2(20));

insert into so_test(pk, value) values(1, 'one');

declare
  l_SQL varchar2(4000);
  l_tablename varchar2(4000) default 'so_test';
begin
  l_SQL := 'merge into ' || l_tablename || ' target' ||
    ' using (select 1 pk, ''eins'' value from dual union all
             select 2 pk, ''zwei'' value from dual) source
      on (target.pk = source.pk)
      when matched then 
        update set target.value = source.value
      when not matched then
        insert values(source.pk, source.value)      
  ';
  dbms_output.put_line(l_sql);
  execute immediate l_SQL;
end; 

您能否发布使用 MERGE 时收到的错误消息？

Answer 2

您应该考虑编写此代码以使用静态 SQL，而不是在运行时传递表名称。是否有正当理由导致您在运行时之前不知道要合并到哪个表中？

至于调试问题......

您的代码中函数 FGETTABLENAME 是如何定义的？这就是我模仿该场景的想法。我建议使用 %type （而不是数字类型的 RAW）声明并从过程名称中删除双引号。

    create or replace function FGETTABLENAME(
        POBJECTID in user_objects.object_id%type
    ) return user_objects.object_name%type
    as
      v_object_name user_objects.object_name%type;
    begin
      select object_name
        into v_object_name
        from all_objects
        where object_id = pobjectid;
       return v_object_name;
    end;
    /

SQL> select object_id, object_name from user_objects;

 OBJECT_ID OBJECT_NAME
---------- --------------------------------------------
     52641 TFIVE
     52644 SPINSERTDATA
     52643 PROCEDURE
     52645 FGETTABLENAME
     52554 GET_SAL_EMP
     52559 T1

SQL> select FGETTABLENAME(52641) from dual;

FGETTABLENAME(52641)
--------------------------------------------
TFIVE

您可以在代码中添加 DBMS_OUTPUT.PUT_LINE 语句

vTableName := FGETTABLENAME(POBJECTID => pObjectID); 

and 

vQueryUpdate := 'UPDATE '      || vTableName || ' SET "VALUE" = :1';
      vQueryInsert := 'INSERT INTO ' || vTableName || ' ("DTTIME", "VALUE") VALUES (:1, :2)';

，或者跟踪代​​码以查看向数据库触发的实际 SQL 语句。

Answer 3

首先，您的 UPDATE 中没有 WHERE，因此它将更新表的每一行。

其次，您是否使用了大小写混合的表名。如果执行 a

CREATE TABLE "testOne" (ID NUMBER);

，则表名将存储为 testOne。但是，当您执行 UPDATE testOne 时，将被视为 UPDATE TESTONE 并且您将收到“no such table”错误。

避免使用大小写混合的表名。如果绝对必须，那么您需要在动态 SQL 语句中引用它们