Salvar TABELA CTRL ALT DEL
Pessoal tenho o seguinte
procedure TFrmMenu.TSAlVARClick(Sender: TObject);
begin
TblEmpresa.Open;
TblEmpresa.edit;
TblEmpresa.post;
TblEmpresa.Close;
tblempresa.open;
end;
banco de Dados Paradox.
Sempre q faço alguma inclusão na tabela e clico no botão ele salva os daos tudo ok, continuo colocando dados na tabela e clico ele salva direitinho, mas se o sistema for desligado incorretamente (falta de energia, ctrl+alt+del, etc) com o sistema aberto ele não salva, quando retorno a tabela os dados q coloquei somem e perdo tudo, bem, e se saio do sistema normalmente ele salva sem problema, gostaria de saber como sanar este problema.
Abraços
procedure TFrmMenu.TSAlVARClick(Sender: TObject);
begin
TblEmpresa.Open;
TblEmpresa.edit;
TblEmpresa.post;
TblEmpresa.Close;
tblempresa.open;
end;
banco de Dados Paradox.
Sempre q faço alguma inclusão na tabela e clico no botão ele salva os daos tudo ok, continuo colocando dados na tabela e clico ele salva direitinho, mas se o sistema for desligado incorretamente (falta de energia, ctrl+alt+del, etc) com o sistema aberto ele não salva, quando retorno a tabela os dados q coloquei somem e perdo tudo, bem, e se saio do sistema normalmente ele salva sem problema, gostaria de saber como sanar este problema.
Abraços
Eva
Curtidas 0
Respostas
Sabado
24/11/2005
Da forma como descreveu não era para apagar, mas vamos tentar.
Utilize Uses DBIprocs e no evento afterpost da table insira: DBISaveChanges(Tabela.Handle);
entre o seu post e o seu close, insira refresh.
Se gosta de paradox, aconselho utilizar Tquery e não Ttable.
Utilize Uses DBIprocs e no evento afterpost da table insira: DBISaveChanges(Tabela.Handle);
entre o seu post e o seu close, insira refresh.
Se gosta de paradox, aconselho utilizar Tquery e não Ttable.
GOSTEI 0