[ULik]

Добрый день! есть БД firebird, подключаю базу компонентами IBX только разбираюсь с транзакциями. делаю удаление, удаляет, но после переоткрытия удаленная запись на метсе.

Код:

1 2 3 4 5 6 7 8

procedure TMainForm.MDelClick(Sender: TObject); begin if DataM.DataSetUr.RecordCount = 0 then exit; if Application.MessageBox('Удалить текущую запись', 'Удаление', MB_YESNO + MB_ICONQUESTION) = mrYes then DataM.DataSetUr.Delete; DataM.ReadTransaction.CommitRetaining; end;

Админ: Пользуемся тегами для оформления кода.

Что не так?