UPSERT 进入具有动态表名的表

Question

提供任何更好的将 UPSERT 插入表格的方法：

• 数据更新插入速度约为 1 行/秒
• 表名称是 DYNAMIC，使用传递给它的 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 不能是动态的 ？？？
• 我是一个新手，我编码的第三个月，我通过了 STACKOVERFLOW & Google 搜索了 3 天，尝试各种有趣的 & 绝望的解决方案......如果你找到了一个非常相关的链接 将不胜感激。

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，因此它将更新表的每一行。

其次，您是否使用了大小写混合的表名。如果你做一个

CREATE TABLE "testOne" (ID NUMBER);

那么表名将被存储为 testOne。但是当您执行UPDATE testOne 时，将被视为UPDATE TESTONE，您将收到“没有这样的表”错误。

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