1

我正在为给定的表创建一个auto_generating prod_id触发器prod_summery
是

PROD_ID CHAR(8 BYTE)    No      1   
PRODUCT_TITLE   VARCHAR2(30 BYTE)   No      2   
PRODUCT_SUMMERY VARCHAR2(150 BYTE)  No      3   
INTEREST_TYPE   CHAR(1 BYTE)    No      4   
INTEREST_RATE   NUMBER(4,2) No      5   
SECURITY_REQD   CHAR(1 BYTE)    No      6   
MIN_LOAN_AMT    NUMBER(11,2)    No      7   
MAX_LOAN_AMT    NUMBER(11,2)    No      8   
TERM_MIN    INTERVAL YEAR(2) TO MONTH   No      9   
TERM_MAX    INTERVAL YEAR(2) TO MONTH   No      10  
REPAYMENT_FREQUENCY INTERVAL YEAR(2) TO MONTH   No      11  
REPAYMENT_AMT   NUMBER(11,2)    No      12  
EARLY_REPAY_ALLOWED CHAR(1 BYTE)    No      13  
MIN_AGE_LIMIT   NUMBER(2,0) No      14  
MAX_AGE_LIMIT   NUMBER(2,0) No      15  
RESIDENT    RESIDENT_VARRAY No      16  
PROD_START_DT   DATE    Yes     17  
PROD_END_DT DATE    Yes     18  
PROD_STATUS CHAR(1 BYTE)    No      19

扳机 

create or replace TRIGGER LOAN_PROD_ID_TR1 
    BEFORE INSERT ON LOAN_PROD_TAB
   for each row
    DECLARE
      v_length number(2):=LENGTH(:NEW.PRODUCT_SUMMERY)-
         LENGTH(REPLACE(:NEW.PRODUCT_SUMMERY,' ',' '))+1;
         V_W2 VARCHAR2(10);
        V_W3 VARCHAR2(10);
     V_W4 VARCHAR2(10);
      V_W5 VARCHAR2(10);
V_W6 VARCHAR2(10);
 V_CON VARCHAR2(10);
V_CON1 VARCHAR2(10);
V_CON2 VARCHAR2(10);
BEGIN
 IF v_length=1 THEN
 SELECT 'CBIS'||LPAD(:NEW.PRODUCT_SUMMERY,4) INTO :NEW.PROD_ID FROM 
 LOAN_PROD_TAB;
  ELSIF v_length=2 THEN
  V_W2:=SUBSTR(REGEXP_SUBSTR(:NEW.PRODUCT_SUMMERY,'(\S*)(\s)',1,2),1,2);
  V_W3:=SUBSTR(REGEXP_SUBSTR(:NEW.PRODUCT_SUMMERY,'(\S*)'),1,2);
    SELECT 'CBIS'||LPAD(V_W2,4,V_W3) INTO :NEW.PROD_ID FROM LOAN_PROD_TAB;
    ELSIF v_length=3 THEN
  V_W2:=SUBSTR(REGEXP_SUBSTR(:NEW.PRODUCT_SUMMERY,'(\S*)($)'),1,1);
   V_W3:=SUBSTR(REGEXP_SUBSTR(:NEW.PRODUCT_SUMMERY,'(\S*)(\s)',1,2),1,2);  
   V_W4:=SUBSTR(REGEXP_SUBSTR(:NEW.PRODUCT_SUMMERY,'(\S*)'),1,2);
    V_CON:=CONCAT(V_W3,V_W2);
   SELECT 'CBIS'||LPAD(V_W4,4,V_CON) INTO :NEW.PROD_ID FROM LOAN_PROD_TAB;
   ELSIF v_length=4 THEN
    V_W2:=SUBSTR(REGEXP_SUBSTR(:NEW.PRODUCT_SUMMERY,'(\S*)'),1,1);
     V_W3:=SUBSTR(REGEXP_SUBSTR(:NEW.PRODUCT_SUMMERY,'(\S*)(\s)',1,2),1,1);
   V_W4:=SUBSTR(REGEXP_SUBSTR(:NEW.PRODUCT_SUMMERY,'(\S*)(\s)',1,3),1,1);
   V_W5:=SUBSTR(REGEXP_SUBSTR(:NEW.PRODUCT_SUMMERY,'(\S*)($)'),1,1);
    V_CON:=CONCAT(V_W2,V_W3);
      V_CON1:=CONCAT(V_W4,V_W5);
    V_CON2:=CONCAT(V_CON,V_CON1);
    SELECT 'CBIS'||LPAD(V_CON2,4) INTO :NEW.PROD_ID FROM LOAN_PROD_TAB;
        ELSE
        V_W2:=SUBSTR(REGEXP_SUBSTR(:NEW.PRODUCT_SUMMERY,'(\S*)'),1,1);
         V_W3:=SUBSTR(REGEXP_SUBSTR(:NEW.PRODUCT_SUMMERY,'(\S*)(\s)',1,2),1,1);
         V_W4:=SUBSTR(REGEXP_SUBSTR(:NEW.PRODUCT_SUMMERY,'(\S*)(\s)',1,3),1,1);
      V_W5:=SUBSTR(REGEXP_SUBSTR(:NEW.PRODUCT_SUMMERY,'(\S*)(\s)',1,4),1,1);
      V_CON:=CONCAT(V_W2,V_W3);
    V_CON1:=CONCAT(V_W4,V_W5);
    V_CON2:=CONCAT(V_CON,V_CON1);
         SELECT 'CBIS'||LPAD(V_CON2,4) INTO :NEW.PROD_ID FROM LOAN_PROD_TAB;
         END  IF;
     END;
4

2 回答 2

4

您的错误是由选择语句引起的，例如

SELECT 'CBIS'||LPAD(:NEW.PRODUCT_SUMMERY,4) INTO :NEW.PROD_ID
FROM LOAN_PROD_TAB;

如果表中有多个记录，则在从表中选择所有内容时会出现错误。

你不应该在这里做选择，你应该可以做

:NEW.PROD := 'CBIS'||LPAD(:NEW.PRODUCT_SUMMERY,4);
于 2018-01-19T06:52:54.410 回答
1

TOO-MANY-ROWS由SELECT语句之一返回。基本上，难怪 - 它们都不包含该WHERE子句。

另一方面，我认为你根本不应该使用SELECT；触发器位于 LOAN_PROD_TAB 上，并且您从中进行选择 - 这会导致变异表错误。相反，您应该将它们（基于您的第一个 SELECT 的示例）重写为

   :NEW.prod_id := 'CBIS' || LPAD (:NEW.PRODUCT_SUMMERY, 4);

哦，是的 - 还有一件事：为了你自己，学习如何正确格式化代码。使用如此难以理解的混乱是一场噩梦。

于 2018-01-19T06:53:05.593 回答