Запрос на удаление

[SmileyN]

Добрый вечер! Такая вот проблемка.
При нажатии на кнопку должно происходить удаление строки по SQL-запросу, а также обновление данных в самой таблице DBGrid (для того, чтобы user видел, что он собственно удалил эту запись). Но почему-то обновление данных в таблице (DBGrid) происходит только после второго нажатия кнопки, хотя это событие должно происходить непосредственно после первого нажатия вместе с удалением из аксессовской базы. Я уже и состояние запроса activ/false, и обновление датасурсов вместе датасетами прописала. Бесполезно. Не знаю, что ещё можно сделать.

procedure TForm1.Button8Click(Sender: TObject);
begin
  Adoquery3.Close;
  Adoquery3.SQL.Clear;
  Adoquery3.SQL.Add('DELETE * FROM Project WHERE NameProj=:a');
  Adoquery3.Parameters.ParamByName('a').Value:= RedProj.Fields[0].AsString;
  Adoquery3.ExecSQL;
  Adoquery3.Close;

  AdoQuery1.Active:= false;
  AdoQuery1.Active:= true;
  datasource6.DataSet:= nil;
  datasource6.DataSet:= AdoQuery1;
  dbgrid2.DataSource:= nil;
  dbgrid2.DataSource:= datasource6;
end;

[Stilet]

datasource6.DataSet:= nil;
datasource6.DataSet:= AdoQuery1;
dbgrid2.DataSource:= nil;
dbgrid2.DataSource:= datasource6;

Зачем перецеп делаешь?
Кстати, разве метод reopen не работает?

[_SERGEYX_]

  Adoquery3.SQL.Add('DELETE * FROM Project WHERE NameProj=:a');
  Adoquery3.Parameters.ParamByName('a').Value:= RedProj.Fields[0].AsString;

А может сначала нужно указать параметр, а уже потом делать запрос?
То есть

Adoquery3.Parameters.ParamByName('a').Value:= RedProj.Fields[0].AsString;
Adoquery3.SQL.Add('DELETE * FROM Project WHERE NameProj=:a');

[SmileyN]

Даже запрос заново писала (там и close и open). Refresh тоже не помогает.

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

  Adoquery3.SQL.Add('DELETE * FROM Project WHERE NameProj=:a');
  Adoquery3.Parameters.ParamByName('a').Value:= RedProj.Fields[0].AsString;

А может сначала нужно указать параметр, а уже потом делать запрос?
То есть

Adoquery3.Parameters.ParamByName('a').Value:= RedProj.Fields[0].AsString;
Adoquery3.SQL.Add('DELETE * FROM Project WHERE NameProj=:a');

Неа, так не прокатит

[Stilet]

Значит нужно смотреть код.

[_SERGEYX_]

Там сначала нужно определиться: действительно ли данные в гриде обновляются только после второго клика или удаление самой записи происходит только после второго клика.
Что-то мне кажется, что при первом клике
RedProj.Fields[0].AsString равно либо NULL, либо пустой строке.