具有％rowtype參數的PL \\ SQL插入過程

Question

我有兩張桌子。 我需要執行一個過程，將一個或多個記錄插入到表中，具體取決於表是否已經存在。 1.僅當使用大頭針的人已經在人表中時，該程序才有效。2.對於變體，當我需要添加新人的記錄以及在stay_person表中的相應條目時，什么都不會發生。3.在％rowtype參數和相應地更改主體，第一種情況的過程停止工作，第二種情況則正常。

--CREATE TABLE PERSON
CREATE TABLE PERSON
   ("P_ID" INTEGER CONSTRAINT PK_PERSON PRIMARY KEY, 
    "P_NAME" VARCHAR2(20) NOT NULL,  
    "P_NAME2" VARCHAR2(20) NOT NULL,
    "P_PIN" VARCHAR(11) NOT NULL,
     CONSTRAINT "LENGTH_PIN" CHECK (LENGTH(P_PIN) = 11),
     CONSTRAINT "IS_DIGIT_PIN" CHECK (REGEXP_LIKE(P_PIN, '^[0-9]*$'))
     );
--CREATE INDEX
CREATE UNIQUE INDEX I_PERSON_PIN ON PERSON(P_PIN);
--CREATING SEQUENCE 
CREATE SEQUENCE SEQ_PERSON START WITH 1 INCREMENT BY 1 MINVALUE 1 NOMAXVALUE NOCYCLE NOCACHE;
COMMIT;
/
--CREATE TABLE STAY_PERSON
CREATE TABLE STAY_PERSON
   ("PS_ID" INTEGER CONSTRAINT PK_STAY_PERSON PRIMARY KEY, 
    "PS_P_ID" INTEGER NOT NULL,  
    "PS_DATE_START" DATE DEFAULT SYSDATE,
    "PS_DATE_STOP" DATE DEFAULT SYSDATE,
    CONSTRAINT "FK_PERSON" FOREIGN KEY(PS_P_ID) REFERENCES PERSON(P_ID),
    CONSTRAINT CK_DATE_START_STOP CHECK (PS_DATE_START <= PS_DATE_STOP)  
     );  
--CREATE INDEX
CREATE INDEX I_STAY_PERSON_DATAE_START ON STAY_PERSON(PS_DATE_START);
CREATE INDEX I_STAY_PERSON_DATAE_STOP ON STAY_PERSON(PS_DATE_STOP);
--CREATE SEQUENCE
CREATE SEQUENCE SEQ_STAY_PERSON START WITH 1 INCREMENT BY 1 MINVALUE 1 NOMAXVALUE NOCYCLE NOCACHE;
-- //

CREATE OR REPLACE PROCEDURE ADD_TO_STAY_PERSON(
  NAME2 IN VARCHAR2, NAME IN VARCHAR2, PIN IN VARCHAR2, DATA_START IN DATE, DATA_SOP IN DATE
) AS
  V_PERSON INTEGER;
  V_P_ID PERSON%ROWTYPE;
  V_CURRVAL_P_ID INTEGER;
BEGIN
  SELECT COUNT(*)
  INTO V_PERSON
  FROM PERSON
  WHERE P_PIN = PIN;

  SELECT *
  INTO V_P_ID
  FROM PERSON
  WHERE P_PIN = PIN;

  IF V_Person = 0 THEN
    INSERT INTO Person (P_ID, P_NAME, P_NAME2, P_Pin)
    VALUES(SEQ_PERSON.NEXTVAL, NAME, NAME2, Pin);

    V_CURRVAL_P_ID :=SEQ_PERSON.CURRVAL;

    INSERT INTO STAY_PERSON (PS_ID, PS_P_ID, PS_DATE_START, PS_DATE_STOP)
    VALUES(SEQ_STAY_PERSON.NEXTVAL, V_CURRVAL_P_ID, Data_Start, Data_Sop);
    COMMIT;
  END IF;

  IF V_PERSON = 1 THEN
    INSERT INTO STAY_PERSON (PS_ID, PS_P_ID, PS_DATE_START, PS_DATE_STOP)
    VALUES(SEQ_STAY_PERSON.NEXTVAL, V_P_ID.P_ID, Data_Start, Data_Sop);
  COMMIT;
  END IF;
EXCEPTION
  WHEN OTHERS THEN
    ROLLBACK;
END ADD_TO_STAY_PERSON;
--//

--INSERT FIRET SAMPLE DATA
    INSERT INTO Person (P_ID, P_NAME, P_NAME2, P_Pin)
    VALUES(SEQ_PERSON.NEXTVAL, 'DOE', 'JOHN', '00000000001');

    INSERT INTO STAY_PERSON (PS_ID, PS_P_ID, PS_DATE_START, PS_DATE_STOP)
    VALUES(SEQ_STAY_PERSON.NEXTVAL, 1, SYSDATE-100, SYSDATE-90);
COMMIT;

-- TRY ADD NEW RECORD TO TABLE STAY_PERSON WITH NEW PERSON - FAILED
CALL ADD_TO_STAY_PERSON('DOE', 'JANE', '00000000002', SYSDATE-100, SYSDATE-90);

-- ADD NEW RECORD TO TABLE STAY_PERSON WITH OLD PERSON - OK
CALL ADD_TO_STAY_PERSON('DOE', 'JANE', '00000000001', SYSDATE-85, SYSDATE-70);

Answer 1

當此人不在場時，您需要捕獲異常。

declare
   V_P_ID PERSON%ROWTYPE;
begin
   SELECT *
   INTO V_P_ID
   FROM PERSON
   WHERE P_PIN = PIN;

   -- Do something because person is in table
exception
  when no_data_found then
    -- Do something because person is not present in table.
end;