Использование предложения AS CURSOR

Пример 6.17. Использование предложения AS CURSOR для позиционного удаления записи из руководства http://www.ibase.ru/files/firebird/langref25rus/index.html

CREATE PROCEDURE DELTOWN (
  TOWNTODELETE VARCHAR(24))
RETURNS (
  TOWN VARCHAR(24),
  POP INTEGER)
AS
BEGIN
  FOR SELECT TOWN, POP
      FROM TOWNS
      INTO :TOWN, :POP AS CURSOR TCUR 
  DO
  BEGIN
    IF (:TOWN = :TOWNTODELETE) THEN
      -- Позиционное удаление записи
      DELETE FROM TOWNS
      WHERE CURRENT OF TCUR;
    ELSE
      SUSPEND;
  END
END   
                


Последнее изменение: Tuesday, 15 November 2016, 10:07