[listerine]

Всем привет!
Начну с того что не один форм/статью я прочитал по этой проблеме, решения есть, но они без толковые. В чем суть. Имеются две копии программы (на двух разных компьютерах), обе работают с БД, которая просто лежит в общей папке. И при изменении какой либо таблицы, программа посылает сообщение по локальной сети, что собственно некая таблица изменилась необходимо обновить. И все вроде бы ничего, но сообщение посылается мгновенно, а обновляется не совсем. Если после приема сообщения не выждать 3-4 секунды данные не обновиться вообще. Использованные компоненты ADOconnect, ADOTable, DataSourse, DBgridEh. База данных Access.
Обновлять пытался так:

Код:

1 2 3 4 5 6 7

form1.ADOTable.Active:=false; form1.ADOTable.Active:=true; form1.DataSource1.DataSet.Refresh; form1.DataSource1.Enabled:=false; form1.DataSource1.Enabled:=true; form1.ADOTable.Refresh; form1.DBGridEh1.Refresh;

Этим кодом который нашел в интернете:

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14

procedure ReOpenDataSet(DataSet: TDataSet; StayActiveRecord: boolean = true); begin    with DataSet do       begin         if StayActiveRecord then             Tag := Fields[0].AsInteger;          DisableControls;                       Close;         Open;         if StayActiveRecord then             Locate(Fields[0].FieldName,Tag,[]);         EnableControls;                  end; end;

Но результата к сожаление нет . Обновляет, но так же 3-4 секунды - это долго. Мне посоветовали использовать компонент ADOQeury мол с ним таких проблем нету, да я сам где читал, что кому то это помогло. Хорошо что не весь проект переписал, а только к одной таблице его поставил, потому что результат оказался точно таким же. Пробовал я запускать обе программы на одном ПК, да бы исключить проблему с сетью. Исключил.
Что собственно хотелось бы узнать, как грамотно/правильно обновить данные. Хотя бы с задержкой 1-1,5 сек. Или может дело еще в чем? Надеюсь на вашу помощь. Спасибо.

И еще кое что, если может у кого есть хорошие статьи или книги по этой проблеме, ткните. Просто хотелось бы знать, почему вообще так происходит и разобрать по поподробнее.