iBase.ru Forum

Код: Выделить всё

CREATE PROCEDURE DELETE_RECORDS
AS
DECLARE VARIABLE RECORD_ID INTEGER;
DECLARE VARIABLE CC INTEGER;
BEGIN
  FOR SELECT ID
  FROM RECORDS INTO :RECORD_ID DO
  BEGIN
    SELECT
      count(*)
    FROM
      NOTDELETED
    WHERE
      NOTDELETED.ID = :RECORD_ID
    INTO :CC;
    IF (CC = 0) THEN
      DELETE FROM
        RECORDS
      WHERE
        RECORDS.ID = :RECORD_ID;
  END
END

Код: Выделить всё

DELETE FROM
        RECORDS
      WHERE
       not Exists (select NOTDELETED.ID from NOTDELETED where NOTDELETED.ID=RECORDS.ID) 

Код: Выделить всё

DELETE FROM
        RECORDS
      WHERE
       not ID in (select ID from NOTDELETED )