Перемщение выделенной стоки в DBGrid

[Droid]

Люди подскажите, как мне сделать так, чтобы при обновлении таблицы с помощью SELECT, слева стрелка (указатель) которая показывает выбранную строку, оставалась на том же месте, какую я запись обновил, а не преходила все время к первой записи в DBGrid.

[bush007]

ключевой вопрос для форумчан. а что ты делаешь с помощью селект?? хоть наводку дай для спецов

[soleil@mmc]

Var
   lBookmark: TBookmark;
begin
   ADOTable.DisableControls;
   lBookmark:=ADOTable.GetBookmark;
   ADOTable.Close;
   ADOTable.Open;
   If lBookmark <> Nil Then
      ADOTable.GotoBookmark(lBookmark);
   ADOTable.EnableControls;
end;

[Droid]

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

ключевой вопрос для форумчан. а что ты делаешь с помощью селект?? хоть наводку дай для спецов

Короче есть у меня DBlookupCombobox при выборе значения из него в id -шник главной таблицы добавляется запись, она добавляется но не обновляется сразу при добавлении, поэтому использую SELECT и при обновлении он мне премещает строку на 1 запись, Так понятно ? Именно в DBGrid а не где то еще

[Droid]

Сообщение от soleil@mmc

Var
   lBookmark: TBookmark;
begin
   ADOTable.DisableControls;
   lBookmark:=ADOTable.GetBookmark;
   ADOTable.Close;
   ADOTable.Open;
   If lBookmark <> Nil Then
      ADOTable.GotoBookmark(lBookmark);
   ADOTable.EnableControls;
end;

У меня ADOQuery

[S@fer]

var a:integer;
...

begin
a:=AdoQuery.RecNo;
AdoQuery.Active:=False;
AdoQuery.SQL.Clear;
AdoQuery.SQL.Add('SELECT * From Tablica');
AdoQuery.Active:=True;
AdoQuery.RecNo:=a;
end;

[Serge_Bliznykov]

1) в случае ADOQuery тоже можно использовать закладки (BookMark), как это предложил soleil@mmc в пост#3

и способ от soleil@mmc и способ от S@fer бесусловно рабочие, но имеют один большой недостаток - они сохраняют текущую запись по НОМЕРУ,
чаще всего этого будет достаточно,
но абсолютно не факт, что в результате SELECT порядок (и количество записей не изменится).
Например, у нас в рабочем проекте через различные условия выполняют запросы с различными условиями, запрос возращает разные наборы данных. В этом случае может помочь такой способ (обязательно наличие в выборке ключевого поля, в данном примере BALANCES_ID):

  Screen.Cursor := crHourGlass;
  if AdoQuery1.Active then
    if not AdoQuery1.isEmpty
       then 
         _id := AdoQuery1.FieldByName('BALANCES_ID').AsFloat;
  AdoQuery1.Close;

  {тут задание запроса/параметров  и т.д. и т.п.}
  AdoQuery1.Params.ParamByName('pBG_ID').asFloat := dBGr_id;
  AdoQuery1.Open;
  if not AdoQuery1.isEmpty 
      then AdoQuery1.Locate('BALANCES_ID',_id,[]);
  Screen.Cursor := crDefault;

[Droid]

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

1) в случае ADOQuery тоже можно использовать закладки (BookMark), как это предложил soleil@mmc в пост#3

и способ от soleil@mmc и способ от S@fer бесусловно рабочие, но имеют один большой недостаток - они сохраняют текущую запись по НОМЕРУ,
чаще всего этого будет достаточно,
но абсолютно не факт, что в результате SELECT порядок (и количество записей не изменится).
Например, у нас в рабочем проекте через различные условия выполняют запросы с различными условиями, запрос возращает разные наборы данных. В этом случае может помочь такой способ (обязательно наличие в выборке ключевого поля, в данном примере BALANCES_ID):

  Screen.Cursor := crHourGlass;
  if AdoQuery1.Active then
    if not AdoQuery1.isEmpty
       then 
         _id := AdoQuery1.FieldByName('BALANCES_ID').AsFloat;
  AdoQuery1.Close;

  {тут задание запроса/параметров  и т.д. и т.п.}
  AdoQuery1.Params.ParamByName('pBG_ID').asFloat := dBGr_id;
  AdoQuery1.Open;
  if not AdoQuery1.isEmpty 
      then AdoQuery1.Locate('BALANCES_ID',_id,[]);
  Screen.Cursor := crDefault;

Попробовал твою ниче не получилось, а этот работает
вроде ничего лишнего не сохраняет.

var a:integer;
...

begin
a:=AdoQuery.RecNo;
AdoQuery.Active:=False;
AdoQuery.SQL.Clear;
AdoQuery.SQL.Add('SELECT * From Tablica');
AdoQuery.Active:=True;
AdoQuery.RecNo:=a;
end;

[Serge_Bliznykov]

Попробовал твою ниче не получилось, а этот работает
вроде ничего лишнего не сохраняет.

Ну и отлично. Значит, Вы решили свою задачу.
А раз не заработал мой код — значит Вам этого и не нужно. sapienti sat.