Обновление данных в DBGrid и фокус строки.

[Serval]

После внесения изменения в БД нужно обновить их в DBGrid, но при обновлении через

Form2.Query3.Active:=false;
Form2.Query3.Active:=true;

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

Возможно ли сделать чтобы он только обновил данные в выделенной строке или как вернутся к той строке снова.

[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;

[Serval]

ммм забыл уточнить сделано на BDE
Также сделал на ИВУ - неработет...

[S@fer]

ммм забыл уточнить сделано на BDE

разницы нет!

a:=Query.RecNo;
  Query.Active:=False;
  Query.SQL.Clear;
  Query.SQL.Add('SELECT * FROM Tablica');
  Query.Active:=True;
  Query.RecNo:=a;

[Serval]

ну я и делал - неполучилось.

  a:=form2.Query3.RecNo;
showmessage(inttostr(form2.Query3.RecNo));
  Form2.Query3.Active:=false;
  Form2.Query3.Active:=true;
  Form2.Query3.RecNo:=a;
showmessage(inttostr(form2.Query3.RecNo));

значения получаются -1

[S@fer]

Ну значит перед обновлением курсор стоит на первой строке.
Query3.RecNo - это номер строки на которой находиться курсор.
Если запись добавляется в конец таблицы, то можно использовать.

 Form2.Query3.Active:=false;
  Form2.Query3.Active:=true;
  Form2.Query3.Last;

[Serval]

Записи не добавляются а изменяются в них данные - выделяется строка в DBGrid, даблклик (или нажатие кнопки), выводится форма, заполняется, жмется кнопка - происходить изменение в базе и форма закрывается - а курсор всеравно встает на 1 строку вместо той что была.
Last - работает, а то что раньше советовал нет

  Query1.Active := false;
  Query1.SQL.clear;
  Query1.SQL.add('update place set city='''+ComboBox1.Text+''', objectname='''+ComboBox2.Text+''', addres='''+ComboBox3.Text+''', grupid='''+ComboBox4.Text+''', devicetype='''+ComboBox5.Text+''', deviceid='''+ComboBox6.Text+''', conn_place='''+ComboBox7.Text+''', objecttype='''+ComboBox8.Text+'''' );
  Query1.SQL.add('where deviceid='''+Edit6.Text+'''');
  Query1.ExecSQL;

  Form2.Query3.Active:=false;
  Form2.Query3.Active:=true;
  form2.Query3.Last;

собственно код в кнопке сохранения

[S@fer]

тогда

a:=form2.Query3.RecNo;

нужно делать при

выделяется строка в DBGrid, даблклик (или нажатие кнопки)

Еще вопрос DBGrid отображает то, что находиться в Query3 ? А запрос в Query3 меняется?

[soleil@mmc]

вот чего человеку голову морочить?

Serval, пользуйся бумарками или локейтом по праймари в таблице
вариант с букмарками так

var
  MyBookMark: TBookmark;
begin
   MyBookMark:= Form2.Query3.GetBookmark;
   ....
    Query1.Active := false;
  Query1.SQL.clear;
  Query1.SQL.add('update place set ....');
  Query1.ExecSQL;
   ....   
   Form2.Query3.DisableControls;
   Form2.Query3.Active:=false;
   Form2.Query3.Active:=true;
   Form2.Query3.GotoBookmark(MyBookMark);
   Form2.Query3.EnableControls;
   Form2.Query3.FreeBookMark(MyBookMark);
end;

вариант с праймари так (допустим в праймари одно поле, с двумя потом сам разберешься как доделать код)

var
    l_pk_value: integer;

begin
   l_pk_value::= Form2.Query3.FieldByName('your_pk_field_name').AsInteger;
   ....
    Query1.Active := false;
  Query1.SQL.clear;
  Query1.SQL.add('update place set ....');
  Query1.ExecSQL;
   ....   
   Form2.Query3.DisableControls;
   Form2.Query3.Active:=false;
   Form2.Query3.Active:=true;
   Form2.Query3.Locate('your_pk_field_name', l_pk_value, []);
   Form2.Query3.EnableControls;
end;

[Serval]

Сообщение от S@fer

Еще вопрос DBGrid отображает то, что находиться в Query3 ? А запрос в Query3 меняется?

нет неменяется - вот чую в этом и проблема.
если сделать

  form2.Query3.First;
  form2.Query3.MoveBy(10);

то встает на 11 строку как и положено (без first "показывает фигу и нагло лыбится")
впринципе если узнать номер строки поторую выделил в дбгрид то проблема решена будет