Question

我正在努力让这个程序工作，我的包体内有以下代码：

PACKAGE BODY PKG_DM_TRANS_DIMENSIONES AS

          PROCEDURE SP_DM_TRANS_DIM_CUENTA AS

        vNumRegistrosDimCuentas NUMBER; 

          BEGIN
            SELECT COUNT(*) INTO vNumRegistrosDimCuentas
            FROM DIM_CUENTAS;

            IF (vNumRegistrosDimCuentas <> 0) THEN

              MERGE INTO DIM_CUENTAS DIMC
              USING (
                SELECT * FROM (
                  SELECT 
                    DIM.FNT_CUENTA_ID AS DIM_CUENTA_ID,
                    C.CUE_ID AS FNT_CUENTA_ID,
                    R.REG_REGION AS REGION, 
                    P.PAI_PAIS AS PAIS, 
                    E.EDI_NOMBRE_EDIFICIO AS EDIFICIO,
                    C.CUE_CUENTA, 
                    TIC.TIC_TIPO_CONTACTO,
                    C.CUE_STATUS,
                    CASE 
                      WHEN DIM.FNT_CUENTA_ID IS NULL THEN 1
                      WHEN 
                        R.REG_REGION <> DIM.REGION OR
                        P.PAI_PAIS <> DIM.PAIS OR
                        E.EDI_NOMBRE_EDIFICIO <> DIM.EDIFICIO OR
                        C.CUE_CUENTA <> DIM.CUENTA OR
                        TIC.TIC_TIPO_CONTACTO <> DIM.TIPO_CONTACTO
                      THEN 2
                      ELSE 0
                    END AS TIPO_FILA

                  FROM STA_EDIFICIOS_EXTRACCION E

                    LEFT JOIN 
                    STA_PAISES_EXTRACCION P ON E.EDI_PAI_ID = P.PAI_ID
                    LEFT JOIN
                    STA_REGIONES_EXTRACCION R ON P.PAI_REG_ID = R.REG_ID
                    LEFT JOIN 
                    EUB_EDIFICIO_UBICACION EUB ON EUB.EUB_EDI_ID = E.EDI_ID
                    LEFT JOIN 
                    STA_CUENTAS_EXTRACCION C ON C.CUE_EUB_ID = EUB.EUB_ID
                    LEFT JOIN 
                    STA_TIPOS_CONTACTO_EXTRACCION TIC ON TIC.TIC_ID = C.CUE_TIC_ID
                    LEFT JOIN
                      DIM_CUENTAS DIM ON
                    (C.CUE_ID = DIM.FNT_CUENTA_ID AND DIM.CUENTA_STATUS = 1)
                  )
              ) Q
              ON (DIMC.FNT_CUENTA_ID = Q.TIPO_FILA)
              WHEN MATCHED THEN
                INSERT (DIMC.REGION, DIMC.PAIS, DIMC.EDIFICIO, DIMC.CUENTA, DIMC.TIPO_CONTACTO, DIMC.CUENTA_FECHA_CREACION, DIMC.FNT_CUENTA_ID)
                VALUES (Q.REGION, Q.PAIS, Q.EDIFICIO, Q.CUE_CUENTA, Q.TIC_TIPO_CONTACTO, TO_TIMESTAMP(sysdate, 'MM/DD/YYYY HH24:MI:SS'), Q.FNT_CUENTA_ID)
              WHEN NOT MATCHED THEN

                 UPDATE SET DIMC.CUENTA_STATUS = 0 WHERE DIMC.CUENTA_STATUS = 1 -- <- dummy update stmt 

            ELSE ..... -- else statement code working fine...
        END IF;
      END SP_DM_TRANS_DIM_CUENTA;

END PKG_DM_TRANS_DIMENSIONES;

我在线上获得了错误

MERGE INTO DIM_CUENTAS DIMC

说“语句被忽略”

然后，另一个错误：

INSERT (DIMC.REGION, DIMC.PAIS, DIMC.EDIFICIO, DIMC.CUENTA, DIMC.TIPO_CONTACTO, DIMC.CUENTA_FECHA_CREACION, DIMC.FNT_CUENTA_ID)
        VALUES (Q.REGION, Q.PAIS, Q.EDIFICIO, Q.CUE_CUENTA, Q.TIC_TIPO_CONTACTO, TO_TIMESTAMP(sysdate, 'MM/DD/YYYY HH24:MI:SS'), Q.FNT_CUENTA_ID)

说“缺少关键字”。是否可以在SP中使用merge语句？我是Oracle的新手，所以我真的不知道我正在尝试做什么，或者我的代码是否有问题。

感谢您的帮助，我真的很感激。

Answer 1

我认为您交换了命令 - when matched之后您应该update语句和not matched - insert之后。类似的例子对我有用，但在交换语句后我得到了ORA-00905 missing keyword。所以正确的版本是：

merge into t1 
using (select * from t2) t2 on (t1.id = t2.id)
when matched then update set t1.name = t2.name
when not matched then insert (id, name) values (t2.id, t2.name)

过程包主体中的Oracle Merge语句错误

1 个答案: