Обновление данных DBGrid

[DS75]

Столкнулся вот с такой проблемой.
Имеется форма1, которая добавляет строку в таблицу. На форме2 через ADOQuery + DataSource построен - DBGrid, который отображает таблицу.
Так вот, когда я добавляю запись в форме1, а потом открываю форму2, то новая строка в DBGrid не отображается. Ее видно только после перезагрузки программы.
Кто знает, как сделать чтобы было видно все записи сразу?
Я проверял в access: форма1 добавляет строку сразу.
Кто нибудь сталкивался с таким ?

P.S. На форме2 сменил связку ADOQuery + DataSource на ADOTable + DataSource. Все работает правильно! Но мне нужен запрос

[Dark_Spirit]

сделай adoquery.open на form2.show

[DS75]

сделай adoquery.open на form2.show

adoquery.open у меня уже существует. Вот обработчик:

procedure TForm2.FormCreate(Sender: TObject);
begin
ADOQuery1.Close;
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add('select * from Schet where Statys= True');
ADOQuery1.Open;
DataSource1.DataSet:=ADOQuery1;
end;

Вы так имели ввиду ?

[koma_grusha]

эту часть:

ADOQuery1.Close;
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add('select * from Schet where Statys= True');
ADOQuery1.Open;
DataSource1.DataSet:=ADOQuery1

лучше запихнуть в отдельную процедуру и вызывать ее, сначала в FormCreate, затем там где ты хочешь, чтобы таблица обновлялась, а именно, как сказал Dark_Spirit в Form2Show, а просто Open не пойдет, он попросту откроет старый запрос

[DS75]

Спасибо Dark_Spirit и koma_grusha ! Все заработало когда обработчик переместил с события FormCreatе на FormShow.

[DS75]

И снова не получается! Аналогичная ситуация. Я решаю ее способом описанным выше и выскакивает ошибка "cannot focus disabled or invisible windows"

procedure TForm1.FormCreate(Sender: TObject);
begin
SLUpdate;
ComboBox3.ItemIndex:=0;
ADOQuery1.Close;
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add('select DISTINCT Category from Bluda');
ADOQuery1.Open;
DataSource1.DataSet:=ADOQuery1;
Nazupdate; // думаю ругается на эту строку т.к. без нее работает
end;

procedure TForm1.FormShow(Sender: TObject);
begin
Nazupdate;
end;

procedure TForm1.Nazupdate;
begin
ADOQuery2.Close;
ADOQuery2.SQL.Clear;
ADOQuery2.SQL.Add('select * from Bluda where Category= "' + DBGrid1.SelectedField.AsString + '"');
ADOQuery2.Open;
DataSource2.DataSet:=ADOQuery2;
end;

Может свойства компонентов какие - то поменять нужно ?

[soleil@mmc]

видимо, грид еще не выбран по событию онШоу вот и не получается
по идее нужно процедуру сделать такой

procedure TForm1.Nazupdate(pCategory: string);
begin
ADOQuery2.Close;
ADOQuery2.SQL.Clear;
ADOQuery2.SQL.Add('select * from Bluda where Category= :p0 ');
ADOQuery2.Parameters.ParamByName('p0').AsString := pCategory;
ADOQuery2.Open;
DataSource2.DataSet:=ADOQuery2;
end;

а далее так - по событию ОнШоу передавать заранее известный параметр

procedure TForm1.FormShow(Sender: TObject);
begin
Nazupdate('категория_1');
end;

а при перемещении по гриду соответственно выполнять процедуру

Nazupdate(DBGrid1.SelectedField.AsString);

[DS75]

Заменил как вы написали, код работает, но обновления внесенные второй формой в первой все равно не отображаются

procedure TForm1.FormCreate(Sender: TObject);
begin
SLUpdate;
ComboBox3.ItemIndex:=0;
ADOQuery1.Close;
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add('select DISTINCT Category from Bluda');
ADOQuery1.Open;
DataSource1.DataSet:=ADOQuery1;
end;

procedure TForm1.Nazupdate(pCategory: string);
begin
ADOQuery2.Close;
ADOQuery2.SQL.Clear;
ADOQuery2.SQL.Add('select * from Bluda where Category= :p0 ');
ADOQuery2.Parameters.ParamByName('p0').Value := pCategory;
ADOQuery2.Open;
DataSource2.DataSet:=ADOQuery2;
end;

procedure TForm1.FormShow(Sender: TObject);
begin
Nazupdate('Вторые блюда');
end;

procedure TForm1.DBGrid1CellClick(Column: TColumn);
begin
Nazupdate(DBGrid1.SelectedField.AsString);
end;

Изменил только AsInteger на Value и "Категория_1" на "Вторые блюда".

Может будет проще если я объясню немного код.
На первой форме стоят две связки ДБГрид+ДатаСоурс+АДОКвери.
Первая связка показывает имеющиеся в таблице Категории блюда. При нажатии на Категорию Во втором ДБГриде Отображаются блюда из данной категории.

При обновлении таблицы из второй формы, Оба ДБГрида не обновляются...

[soleil@mmc]

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

При обновлении таблицы из второй формы, Оба ДБГрида не обновляются...

вот здесь я не очень понял - ты для данных из 2го грида делаешь какие-то апдейты/инсерты?
если так, то переоткрывай наборы данных

раз уж связка первого и второго грида ясна, то можно второй грид переоткрывать при каждом листании первого, прописав процедуру переоткрытия на собитие OnAterScroll первого датасета

[DS75]

Все с ДБГридами проблему решил.
Установил

Form1.DataSource1.DataSet.Active := False;
    Form1.DataSource1.DataSet.Active := True;

на второй форме, там где значения изменялись.
Теперь вот как обновить АДОТэйбл ?