Живая база AutoRefresh

← →
Serghei (2003-02-13 14:49) [0]

Кто-нить знает как сделать "живую БД" так называемый AutoRefresh
без Close / Open (получаютс длительные задержки (пустой Grid));
Refresh не катит выдает ошобку)
например:
- много юзеров постоянно делают изминения и каждый из них видит уже обновленную ( с последними изменениями) базу

← →
Reindeer Moss Eater (2003-02-13 14:54) [1]

procedure MyRefresh(ADataSet:TDataSet);
begin
ADataSet.Close;
ADataSet.Open;
end;

← →
Stas © (2003-02-13 14:58) [2]

А какие компоненты ты используешь для подключения к базе ? и какую базу ?

← →
Reindeer Moss Eater (2003-02-13 14:59) [3]

Разницы никакой

← →
Silver_ (2003-02-13 15:17) [4]

> Reindeer Moss Eater (13.02.03 14:54)
> procedure MyRefresh(ADataSet:TDataSet);
> begin
> ADataSet.Close;
> ADataSet.Open;
> end;

после Close до Open на екране пусто а каждые 10 сек. вопще хана :(((

← →
Reindeer Moss Eater (2003-02-13 15:20) [5]

после Close до Open на екране пусто
А что там должно быть?

> а каждые 10 сек. вопще хана :(((

Запрос длится 10 сек? Вот где настоящая ж.

← →
Reindeer Moss Eater (2003-02-13 16:02) [7]

Чтобы не екране не было пусто

var DataSet1,DataSet2 : TDataSet;

procedure MyRefresh;
begin
if DBGrid1.DataSource.DataSet = DataSet1 then
begin
DataSet2.Open;
DBGrid1.DataSource.DataSet:=DataSet2;
DataSet1.Close;
end
else
begin
DataSet1.Open;
DBGrid1.DataSource.DataSet:=DataSet1;
DataSet2.Close;
end;
end;

← →
Silver_ (2003-02-13 16:27) [8]

Reindeer Moss Eater

думал есть нечто что делает ето автоматом но
вопще ето тоже выход

Живая база AutoRefresh Найти похожие ветки