Atualização de dados via rede com interbase 6.0
Caro colegas, com o BD Paradox eu utilizava o componente ´Timer´ que a cada 10 segundos executava o conteudo do seu evento com o seguinte codigo:
procedure TDM.Timer1Timer(Sender: TObject);
var editando : Bool;
begin
editando:=False;
if TCoral.Active=True then
begin
DBIIsRecordLocked(TCoral.Handle, editando);
if editando = False then TCoral.Refresh;
end;
end;
e assim as máquinas que utilizava o mesmo programa em rede timham os dados atualizado. Como faço para ter o mesmo resultado utilizando o Interbase 6.0.
Agradeço antecipadamente.
procedure TDM.Timer1Timer(Sender: TObject);
var editando : Bool;
begin
editando:=False;
if TCoral.Active=True then
begin
DBIIsRecordLocked(TCoral.Handle, editando);
if editando = False then TCoral.Refresh;
end;
end;
e assim as máquinas que utilizava o mesmo programa em rede timham os dados atualizado. Como faço para ter o mesmo resultado utilizando o Interbase 6.0.
Agradeço antecipadamente.
Laelson
Curtidas 0
Respostas
Firekiller
17/10/2005
num timer mesmo, você pode fazer essa atualização... tipo:
if Dataset.State in [dsInsert, dsEdit] then
exit;
Dataset.close;
Dataset.open;
Coloque isso no seu ontimer.
if Dataset.State in [dsInsert, dsEdit] then
exit;
Dataset.close;
Dataset.open;
Coloque isso no seu ontimer.
GOSTEI 0