iBase.ru Forum

solo писал(а):Может быть, это можно сделать процедурой на самом сервере? Мой опыт пока не позволяет это оформить Помогите, а?

CREATE PROCEDURE TREE_DEL (
    ID INTEGER,
    ID_PARENT INTEGER)
AS
BEGIN
  IF (:ID <> 0 AND :ID_PARENT = 0) THEN BEGIN
      DELETE FROM TREE
       WHERE (ID = :ID);
  
      EXECUTE PROCEDURE TREE_DEL(0, :ID);
    END
  ELSE BEGIN

    FOR SELECT ID
          FROM TREE
         WHERE ID_PARENT = :ID_PARENT
          INTO :ID
    DO BEGIN
      DELETE FROM TREE
       WHERE (ID = :ID);

      EXECUTE PROCEDURE TREE_DEL(0, :ID);
    END

  END

END

EXECUTE PROCEDURE TREE_DEL(:ID, 0);

Лысый писал(а):

solo писал(а):Может быть, это можно сделать процедурой на самом сервере? Мой опыт пока не позволяет это оформить Помогите, а?

Вот тебе ХП (утро, понедельник... если есть ошибки я не виноват ):

break писал(а):Можно сделать вторичный ключ по той же таблице (Tree)
Tree_ParentID на Tree_ID, а в On Delete указать - cascade

У меня так все работает OK!

Гм... Не понял - мастер - деталь самой к себе с каскадным удалением? Если можно, поподробнее или ссылку на это дело.

CREATE TABLE TREE (
    ID         INTEGER NOT NULL,
    ID_PARENT  INTEGER,
    CNT        INTEGER
);

ALTER TABLE TREE ADD CONSTRAINT PK_TREE PRIMARY KEY (ID);

ALTER TABLE TREE ADD CONSTRAINT FK_TREE FOREIGN KEY (ID_PARENT) REFERENCES TREE (ID) ON DELETE CASCADE;

solo писал(а):И по первому предложению: я так понял, это что-то вроде рекурсивного вызова в Delphi? И тут такое же бывает?

Лысый писал(а): Вот тебе ХП (утро, понедельник... если есть ошибки я не виноват ):

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

CREATE PROCEDURE TREE_DEL (
    ID INTEGER,
    ID_PARENT INTEGER)
AS
BEGIN
  IF (:ID <> 0 AND :ID_PARENT = 0) THEN BEGIN
      DELETE FROM TREE
       WHERE (ID = :ID);
  
      EXECUTE PROCEDURE TREE_DEL(0, :ID);
    END
  ELSE BEGIN

    FOR SELECT ID
          FROM TREE
         WHERE ID_PARENT = :ID_PARENT
          INTO :ID
    DO BEGIN
      DELETE FROM TREE
       WHERE (ID = :ID);

      EXECUTE PROCEDURE TREE_DEL(0, :ID);
    END

  END

END

Вызов:

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

EXECUTE PROCEDURE TREE_DEL(:ID, 0);

CREATE PROCEDURE TREE_DEL (
    ID INTEGER,
    ID_PARENT INTEGER)
AS
BEGIN
  EXIT;
END

ALTER PROCEDURE TREE_DEL (
    ID INTEGER,
    ID_PARENT INTEGER)
AS
BEGIN

  IF (:ID <> 0 AND :ID_PARENT = 0) THEN BEGIN
      DELETE FROM TREE
       WHERE (ID = :ID);
  
      EXECUTE PROCEDURE TREE_DEL(0, :ID);
    END
  ELSE BEGIN

    FOR SELECT ID
          FROM TREE
         WHERE ID_PARENT = :ID_PARENT
          INTO :ID
    DO BEGIN
      DELETE FROM TREE
       WHERE (ID = :ID);

      EXECUTE PROCEDURE TREE_DEL(0, :ID);
    END

  END

END

solo писал(а):Спасибо Break-y, опробовал его вариант с мастер-деталь деревянной таблицы самой к себе. Сработало!!! Правда, задать форин-индекс в IB Experte на рабочей базе почему-то не вышло, вылазил какой-то AV по первичному индексу

solo писал(а): Интересно, а когда база набьется большим количеством данных, проблем не будет?

solo писал(а): И в чем надо быть осторожным?

solo писал(а):С вариантом с процедурой так и не добил пока...

Лысый писал(а): AV - это access violation? Если да то изменения в методанные надо вносить в монопольном режиме.

solo писал(а): И в чем надо быть осторожным? Если ты все листья породишь из одного корня и грохнешь корневой узел, то потеряешь все данные. Понятно?