ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Firebird, InterBase [игнор отключен] [закрыт для гостей] / After / Before delete triggers
7 сообщений из 7, страница 1 из 1
After / Before delete triggers
    #32545452
nk_x
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
nk_x
Гость
Можно ли прервать выполнение транзакции на удаление записи, во время выполнения триггера на удаление? (Например каким-нибудь хитрым Эксепшеном)
Как я это делал в оракуле...
Запись не нужно удалять, нужно лишь пометить удаленной.


В FB приходится изголяться вроде следующего:

CREATE TABLE T
(ID DECIMAL(18, 0) NOT NULL,
NAME VARCHAR(128),
DELETED TIMESTAMP,
PRIMARY KEY (ID));

SET TERM ^ ;
CREATE TRIGGER T_DEL FOR T
ACTIVE AFTER DELETE POSITION 0
AS
DECLARE VARIABLE n decimal(18,0);
DECLARE VARIABLE s varchar(128);
BEGIN
n = old.id;
s = old.name;
insert into t(id,name,deleted) values(:n,:s,current_timestamp);
END
^
COMMIT WORK ^
SET TERM ;^
...
Рейтинг: 0 / 0
02.06.2004, 19:13:50
| Ответить | Цитировать | Написать  
After / Before delete triggers
    #32545758
Фотография VF
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
VF
Участник
авторЗапись не нужно удалять, нужно лишь пометить удаленной
а зачем???
если сам пишешь клиента, то пусть в определённой ситуации делается update специального поли, типа запись удалена и т.д.
ЗЫ не репликацию делаешь случаем?
...
Рейтинг: 0 / 0
03.06.2004, 08:18:03
| Ответить | Цитировать | Написать  
After / Before delete triggers
    #32545809
Фотография Zmeishe
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Zmeishe
Участник
Не знаю как в FB, а в IB легко.

Код: plaintext
CREATE EXCEPTION MY_EXCEPTION 'Бла-бла-бла';

Код: plaintext
1.
2.
3.
4.
5.
CREATE TRIGGER TB_MYTABLE_AD FOR TB_OPLATA
ACTIVE BEFORE DELETE POSITION  0 
as
begin
   if(...) then exception my_exception;
end
...
Рейтинг: 0 / 0
03.06.2004, 09:05:49
| Ответить | Цитировать | Написать  
After / Before delete triggers
    #32545822
alex_k
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
alex_k
Участник
B fb такая же фигня :-)
...
Рейтинг: 0 / 0
03.06.2004, 09:11:39
| Ответить | Цитировать | Написать  
After / Before delete triggers
    #32547003
nik_x
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
nik_x
Участник
Пишу не реприкации, система учета/мониторинга.
В таблице необходимо сделать псевдо-удаление, молча, и успешно.
Пользователь через представление/view видит только те записи, в которых поле deleted is null.

2:Zmeishe - так пробовал, если записей псевдо-удалили несколько, то ловим пучок сообщений. (а как сделать, чтобы молча, яко-бы удаление прошло успешно?)

Воодще-то задача достаточно тривиальная и часто используемая, например в бухгалтерских системах (не 1С). Записи можно только помечать удаленными, но нельзя удалять...
...
Рейтинг: 0 / 0
03.06.2004, 15:53:02
| Ответить | Цитировать | Написать  
After / Before delete triggers
    #32547140
Фотография VF
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
VF
Участник
так если клиент свой, то почему не сделать просто update на кнопку удаления, то есть обновляешь ключевое поле, а потом выводишь записи по условию, что мешает? и никаких эксепшенов не надо...
...
Рейтинг: 0 / 0
03.06.2004, 16:40:01
| Ответить | Цитировать | Написать  
After / Before delete triggers
    #32547278
Фотография Zmeishe
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Zmeishe
Участник
Каков твой вопрос
nk_xМожно ли прервать выполнение транзакции на удаление записи, во время выполнения триггера на удаление? (Например каким-нибудь хитрым Эксепшеном)Таков мой ответ.
Код: plaintext
1.
2.
3.
4.
5.
CREATE TRIGGER TB_MYTABLE_AD FOR TB_MYTABLE
ACTIVE BEFORE DELETE POSITION  0 
as
begin
   if(...) then exception my_exception;
end
Если надо сохранить удаляемую запись, свали её в лог таблицу триггером AFTER
Код: plaintext
1.
2.
3.
4.
5.
CREATE TRIGGER TB_MYTABLE_AD FOR TB_MYTABLE
ACTIVE AFTER DELETE POSITION  0 
as
begin
  insert into my_log_table(...)
end
А всё вместе и пометить и выкинуть хитрый эксепшен — не выйдет.
Эксепшен на то и эксепшен чтобы прервать и после него ничего не выполнилось.
nk_xВоодще-то задача достаточно тривиальная и часто используемая, например в бухгалтерских системах (не 1С). Записи можно только помечать удаленными, но нельзя удалять...
Отними права на удаление у всех. Если для изменений используешь компонент IBUpdateSQL, то в свойство DeleteSQL пропиши
Код: plaintext
1.
2.
update my_table 
set state_flag = 'D' 
where ID = :OLD_ID
Или сделай то, что предложил VF
...
Рейтинг: 0 / 0
03.06.2004, 17:19:35
| Ответить | Цитировать | Написать  
7 сообщений из 7, страница 1 из 1
Форумы / Firebird, InterBase [игнор отключен] [закрыт для гостей] / After / Before delete triggers
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/moderation_log.php?user_name=%D0%9B%D0%B5%D0%BD%D0%B0%D0%9F]:
 0ms
get settings:
 7ms
get forum list:
 18ms
get settings:
 10ms
get forum list:
 16ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 69ms
get topic data:
 16ms
get forum data:
 5ms
get page messages:
 59ms
get tp. blocked users:
 2ms
others: 717ms
total:  927ms
созд. / загр.: 927ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]