Gravação de Dados no FireBird com ADO

Delphi

05/07/2004

Saudações COLEGAS,

Preciso de ajuda. Estou desenvolvendo uma aplicação utilizando Delphi 5 PACK1, Firebird 1.5 e o ADO como componente de acesso. Windows NT e Windows 2000 são os S.O.´s dos servidores e as estações variam entre Win98 e Win2000 Pro.

Qualquer inclusão ou Alterações que são feitas em uma estação ou no servidor não fica disponível para o restante dos usuarios. É necessário encerrar a aplicação e executa-la novamente para que as alterações apareçam. Segue abaixo o trecho de um dos formulários de cadastro onde realizo a gravação:

procedure Tfcadastro.btn_salvarClick(Sender: TObject);
begin
Try
DM.dbPatrimonio.BeginTrans; // O componente ADOConnection
dm.Usuarios.Post; // está em um DataModule
DM.dbPatrimonio.CommitTrans;
except
on eDBEngineError do Begin
DM.dbPatrimonio.RollbackTrans;
ShowMessage(´Não foi possível salvar o Registro´);
abort;
end;
end;
end;

Então colegas, onde estou errando? Alguem já passou por está situação?

No aguardo de respostas, desde já antecipo meus agradecimentos.

Abraços,
Marcelo L.Silva
ANALISTA DE SISTEMAS


Marcelolsilva

Marcelolsilva

Curtidas 0
POSTAR