Обновление и отображение данных таблицы в Delphi компонент TIBQuery и TIBTable

[TCHProgrammer]

В Delphi я сделал добавление записи в таблицу через TIBTable, а в TIBQuery находится sql SELECT * FROM autors. Этот TIBQuery присоединён к таблице отображения TDBGrid. Так вот, новая запись (введённая через TIBTable) в БД попадает, но не отображается сразу же в TDBGrid. Вот код, который у меня написан:

//FM_Data.IBTransaction1.StartTransac tion;
FM_Data.IBT_Autors.Insert;
FM_Data.IBT_Autors.FieldByName('NAM E').AsString := FM_AddAutor.E_AddedAutorName.Text;
FM_Data.IBT_Autors.Post;
//FM_Data.IBTransaction1.Commit;
FM_Data.DS_Autors.Enabled := false;
DBGRid1.Enabled := false;

FM_Data.IBQ_Autors.Close;
FM_Data.IBQ_Autors.Active := false;
//FM_Data.IBQ_Autors.ExecSQL;
FM_Data.IBQ_Autors.Active := true;
FM_Data.IBQ_Autors.Open;
FM_Data.DS_Autors.Enabled := true;
DBGRid1.Enabled := true;
ShowMessage('YES');
Здесь IBQ_Autors - TIBQuery, IBT_Autors - TIBTable, DS_Autors - TDataSource, ну а дальше всё понятно. Наворотил, конечно, здорово. Подскажите, пожалуйста, что мне делать?

[kropotkina-alice]

Сообщение от TCHProgrammer

Наворотил, конечно, здорово. Подскажите, пожалуйста, что мне делать?

Освоить хранимые процедуры
А то, что вы "наворотили" - забыть, как дурной сон...

[Dvoishnik]

для ADO так бы работало:

FM_Data.IBT_Autors.Insert;
FM_Data.IBT_Autors.FieldByName('NAM E').AsString := FM_AddAutor.E_AddedAutorName.Text;
FM_Data.IBT_Autors.Post;
FM_Data.IBQ_Autors.Active := false;
FM_Data.IBQ_Autors.Active := true;

я не думаю что есть разница

[TCHProgrammer]

Я сделал как сказал Dvoishnik,

FM_Data.IBT_Autors.Insert;
FM_Data.IBT_Autors.FieldByName('NAM E').AsString := FM_AddAutor.E_AddedAutorName.Text;
FM_Data.IBT_Autors.Post;
FM_Data.IBQ_Autors.Active := false;
FM_Data.IBQ_Autors.Active := true;

Но запись в БД добавляется, а в таблицу DBGrid1 не добавляется. Может там что-нибудь с транзакциями?

[Iron Monk]

Сообщение от TCHProgrammer

Я сделал как сказал Dvoishnik,
Но запись в БД добавляется, а в таблицу DBGrid1 не добавляется. Может там что-нибудь с транзакциями?

TIBQuery закройте и откройте заново.

[TCHProgrammer]

Я сделал вот так:

if(not(FM_Data.IBTransaction2.InTra nsaction)) then
begin
FM_Data.IBTransaction2.StartTransac tion;
end;
FM_Data.IBT_Autors.Insert;
FM_Data.IBT_Autors.FieldByName('NAM E').AsString := FM_AddAutor.E_AddedAutorName.Text;
FM_Data.IBT_Autors.Post;
FM_Data.IBTransaction2.Commit;



FM_Data.IBQ_Autors.Close;
FM_Data.IBQ_Autors.Active := false;


FM_Data.IBQ_Autors.Active := true;
FM_Data.IBQ_Autors.Open;

Я проверял: При отключении TIBQuery(IBQ_Autors) - никакого визуального эффекта. В таблице не пропадают записи. Такое ощущение, что отключение никак не подействовало. Что это может быть? Я даже DataSource отключал - никакого эффекта.

[Iron Monk]

DBGrid1.DataSource:= nil;
DBGrid1.DataSource:= DS_Autors;

[TCHProgrammer]

Да я так попробовал сделать, даже перезагружал DataSource, Таблица дёрнулась, но новая запись в ней не появилась, хотя в базе она появилась. У меня вот какие мысли возникли: Rad Studio XE2 у меня крякнутая, при загрузке её выскакивает ошибка, что не может загрузить какие-то элементы компиллятора. И очень часто приходится перезагружать Rad Studio из-за того, что при компилляции находятся несуществующие ошибки. Перезагрузил - и всё нормально. Может в этом причина?

[TCHProgrammer]

Вопрос решился очень просто. Надо просто, чтобы все компоненты, связанные с Базой Данных были на одной форме - на той же самой, где и таблица с кнопками и кодом обработки того, что связано с БД. Короче, если, допустим, TIBDataBase находится на другой форме, то ничего хорошего не выйдет.

[Dvoishnik]

Сообщение от TCHProgrammer

Вопрос решился очень просто. Надо просто, чтобы все компоненты, связанные с Базой Данных были на одной форме - на той же самой, где и таблица с кнопками и кодом обработки того, что связано с БД. Короче, если, допустим, TIBDataBase находится на другой форме, то ничего хорошего не выйдет.

а как же DataModule??