Убить подключение к базе полностью

[Dozent]

ЗДраствуйте,
у меня есть подключение к базе черзе IBDatabase
база на Фаирбёрте 1.5 нужно в ходе выполнения программы удалить даные из базы, удаление проходит нормально но чтобы записи припали из базы нужно перезапускать ехе фаил, я так понимаю ФБ помечает записи на удаления и при отключения из базы удаляются данные, вот вопрос там как создать события при которых ФБ вычистит записи помеченые на удаления?

IbDatabase1.Connection:=false;
IbTransaction.Action:=false;
...
IbDatabase1.Connection:=true;
IbTransaction.Action:=true;

не помогает...

[BARNEY]

после как удалил сделай IbTransaction.commit и почитай про это и будет тебе счастье

[Аватар]

удаление проходит нормально но чтобы записи припали из базы нужно перезапускать ехе фаил

Это как? Такого не бывает.

[Serge_Bliznykov]

прежде всего, похоже, что Вы путаете понятия "база данных" и "таблица базы данных". (я по молодости лет тоже долго привыкал, хотя и знал, что это совершенно разные вещи! )

проверьте, так, в виде "метода тыка":
1) commit; не забыли?

2) погуглите про транзакции и их завершение в IB
(то, что у вас остаётся незавершённая транзакция - это, имхо, самая вероятная, имхо, причина!)

3) попробуйте датасет, через который идёт обращение к таблице тоже закрыть и открыть.

4) проверьте, что у Вас датасет подключается именно через IbDatabase1.Connection. (я не знаю, как в случае этих компонент, но в ADO любой датасет может быть подключён через Connection, так и самостоятельно, через ConnectionString)


блииин... пока писал, меня уже опередили!

[Dozent]

Сообщение от Аватар

Это как? Такого не бывает.

ну как как, запрос на делет дал, пото запрос на выборку, записи не пропали, а если делет и закрыть программу и запустить снова то записей не будит. ХОрошо почитаю...

[Прик]

Беда в том, что топикстартер, видимо, не предполагает что при работе с СУБД Firebird управление транзакциями должен осуществлять клиент. И только он.
В его описании все верно: перезапуск программы (а на самом деле, выход из программы провоцирует компоненты IBX автоматом закрывать все что подключено) коммитит транзакцию модифицирующего запроса.

Поэтому ТС надо бы, действительно почитать как работать с транзациями.
Например, здесь

[Dozent]

Всем спасибо читать много и некогда, потом прочитаю сделат IBTransaction1.Commit;

Всё работает как надо, спасибо...

[Dozent]

ВОт такой ешё вопрос
Добавляю в Тривив новые узлы, ошибка выходит когда в уже добавленый узел пытаюсь добавить дочерний ему, произожит это изза того что выборкой не возможно найти добавленый узел, делаю Commit yо это не помогает, подскажите что нужно сделать?

 begin
     //
     IBQuery1.Close;
     IBQuery1.SQL.Clear;
     IBQuery1.SQL.Add('Select * from Table1 where abindex='+IntToStr(TV.Selected.AbsoluteIndex)+';');
     IBQuery1.Open;
     id:=IBQuery1.FieldValues['id'];
      IBQuery1.Close;
      IBQuery1.SQL.Clear;
//Ñíà÷àëî íàäî ñäåëòü àïäåéò îò òåêóøåãî àáèíäåêà âûäåëåíîãî ïîòîì âñòàâêà çàïèñè ïî òåêóøåìó àáèíäåêñó
     IBQuery1.SQL.Add('update Table1 set abindex=abindex+1 where abindex>'+IntToStr(TV.Selected.AbsoluteIndex)+';');
     IBQuery1.ExecSQL;
     IBQuery1.Close;
     IBTransaction1.Commit;
     IBQuery1.SQL.Clear;
     IBQuery1.SQL.Add('insert into TABLE1 (P_ID, ABINDEX, STATUS, FNAME, TEXT ) VALUES ('+id+', '+QuotedStr(IntToStr(TV.Selected.AbsoluteIndex))+', 1, '+QuotedStr(Form3.Edit1.Text)+', 123);');
     IBQuery1.ExecSQL;
     IBQuery1.Close;
     IBTransaction1.Commit;
     Bool:=false;
    // par:=TV.Selected;
     TV.Items.AddChildObjectFirst(TV.Selected, Form3.Edit1.Text,0);
     //Par.Item[TV.Selected.Count-1].Selected:=true;
     //Par.Item[TV.Selected.Count-1].StateIndex:=3;
    // par.Selected:=true;
         // IBTransaction1.Rollback;
          IBQuery1.Close;
     IBQuery1.SQL.Clear;
     IBQuery1.SQL.Add('Select * from Table1 where abindex='+IntToStr(TV.Selected.AbsoluteIndex)+';');
     IBQuery1.Open;
//               IBTransaction1.Commit;
     Bool:=true;
     end;
 end;

[Dozent]

извеняюсь моя ошибка

     IBQuery1.SQL.Add('insert into TABLE1 (P_ID, ABINDEX, STATUS, FNAME, TEXT ) VALUES ('+id+', '+QuotedStr(IntToStr(TV.Selected.AbsoluteIndex+1))+', 1, '+QuotedStr(Form3.Edit1.Text)+', 123);');

[Прик]

Ошибка глобальная в том, что не нужно привязываться к индексам дерева, которые нестабильны.
Поле "abindex" нужно вообще убрать из таблицы БД.
При формировании дерева свойству каждого узла, которое называется Data, надо присваивать номер строки (здесь значение P_ID). Это если надо будет знать какая строка из таблицы БД относится к конкретному узлу дерева.
При добавлении узла, равно как и при удалении, нужно заново сформировать дерево. Только и всего.

P.S. И нет никакой необходимости применять функцию QuotedStr к числовым значениям.