Динамическое обновление таблицы

[Veiron]

Можно ли сделать обновление таблицы ADOTable + DBGrid динамическим?

В идеале: БД изменяется, в клиенте тут же отображается изменения, обновленный вариант с внесенными.

Но такое наврятли вероятно, а ADOTable.Refresh не работает, по этому сейчас использую ADOTable.Close/Open положенные на таймер, все бы ничего да вот у пользователя должна быть возможность скролить таблицу, а так через каждые несколько секунд курсор автоматом становится на первую запись.

[soleil@mmc]

а чьи изменения должен видеть юзер - только свои или вообще все?

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

[Veiron]

Вообще все.

[Veiron]

Создал новую процедуру:

procedure TMain.DataUpdate;
var
    t4, t5, t6: Byte;
begin
    t4 := ADOTable4.RecNo;
    t5 := ADOTable5.RecNo;
    t6 := ADOTable6.RecNo;
    ADOTable4.Close; ADOTable4.Open;
    ADOTable5.Close; ADOTable5.Open;
    ADOTable6.Close; ADOTable6.Open;
    ADOTable4.RecNo := t4;
    ADOTable5.RecNo := t5;
    ADOTable6.RecNo := t6;
end;

и в таймер. Половина проблемы конечно решена, но может есть вариант попроще.

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