Gravação de Dados no FireBird com ADO
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
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
Curtidas 0