在plsql中使用循环插入数据选择

Question

我只想将表单详细列数据从详细信息块输入到数据库列中，并且当我输入数据数据保存在其他表中但在token_staus 中时，必须检查它已经在该列中已经具有的第一个输入数据没有输入数据并向我发送消息没有找到数据我写了一个对我不起作用的循环我显然犯了某种错误但不确定它在哪里

DECLARE 
TOKEN_NO NUMBER;
TOKEN_STATUS1 NUMBER;
--TOKEN_STATUS2 := :TOKEN_STATUS;
BEGIN
SELECT SR_NO, TOKEN_STATUS INTO TOKEN_NO, TOKEN_STATUS1 FROM LOOPT2 WHERE SR_NO = :TOKEN_NO;
--IF :TOKEN_STATUS IS NULL
--THEN
LOOP
GO_BLOCK('TOKEN_REC2');
FIRST_RECORD; 
INSERT INTO LOOPT2(TOKEN_STATUS) VALUES(:TOKEN_STATUS);
NEXT_RECORD;
EXIT WHEN :SYSTEM.LAST_RECORD = 'TRUE';

END LOOP;  
--END IF;
EXCEPTION
  when others then
  message (sqlerrm);
END;

请帮帮我 请小脚丫

Answer 1

如果我理解正确，它会是这样的（检查代码中的 cmets）：这里的关键似乎是 LOOP 中的 BEGIN-EXCEPTION-END 块。

DECLARE 
  TOKEN_NO NUMBER;
  TOKEN_STATUS1 NUMBER;
BEGIN
  GO_BLOCK('TOKEN_REC2');
  FIRST_RECORD; 

  LOOP
    BEGIN
      SELECT SR_NO, TOKEN_STATUS 
        INTO TOKEN_NO, TOKEN_STATUS1 
        FROM LOOPT2 
        WHERE SR_NO = :TOKEN_NO;

      -- if such a :TOKEN_NO exists, that SELECT will return some values
      -- which means that you want to skip it, so - don't do anything
    EXCEPTION
      -- if such a :TOKEN_NO does not exist, SELECT will return
      -- NO_DATA_FOUND which means that you want to perform insert
      WHEN NO_DATA_FOUND THEN
        INSERT INTO LOOPT2 (TOKEN_STATUS) 
          VALUES (:TOKEN_STATUS);
      WHEN TOO_MANY_ROWS THEN
        NULL;
    END;

    EXIT WHEN :SYSTEM.LAST_RECORD = 'TRUE';
    NEXT_RECORD;
  END LOOP;  
END;