При экспорте в EXCEL должны поподать свежие данные

[GhostBZ]

Доброе вркмя суток! У меня DBGrid который связан ADOQuery при добавление новых даных в БД, через дополнительную форму, DBGrid не высвечивает свежие только что добавленые данные. Соотвественно и при экспорте в Эксельку тоже передаются старые данные. Как решить данную проблемму.

[SuperVisor]

Обновляй содержание грида перед экспортом или же после обновления через доп. форму.

[GhostBZ]

DBGrid1.Refresh; - не подходит, а другие способы есть. Опиши подробнее плиз

[SuperVisor]

Обновлять следует Query.
Вот безопасная процедура обновления из своих наработок:

Procedure CheckAndRestoreConnection(_Query: TADOQuery);
var
  FreeQ: TADOQuery;
  S: byte;
begin
  FreeQ:=TADOQuery.Create(_Query.Connection);
  FreeQ.Connection:=_Query.Connection;
  FreeQ.SQL.Clear;
  FreeQ.SQL.Add('select 1 as variable');

  try
    FreeQ.Open;
    S:=FreeQ.Fields[0].AsInteger;
    FreeQ.Close;
    FreeQ.Free;
  except
    _Query.Connection.Close;
    _Query.Connection.Open;
    FreeQ.Free;
  end;

end;

procedure RefreshQ(Q: TADOQuery; ShowWarnings: boolean);
var
  bk: pointer;
begin
  CheckAndRestoreConnection(Q);

  bk:=Q.GetBookmark;
  Q.Close;
  try
    try
      Q.Open;
      if Q.BookmarkValid(bk) then
        Q.GotoBookmark(bk);
    except
      if ShowWarnings then
        ShowMessage('Ошибка при выполнении запроса с сообщением:'+#13+
          Q.Connection.Errors.Item[Q.Connection.Errors.Count-1].Description);
    end;
  finally
    q.FreeBookmark(bk);

  end;
end;

[GhostBZ]

Ладно спасибо, попробую!