Fórum salvar tabela ctrl alt del #303055
23/11/2005
0
procedure TFrmMenu.TSAlVARClick(Sender: TObject);
begin
TblEmpresa.Open;
TblEmpresa.edit;
TblEmpresa.post;
TblEmpresa.Close;
tblempresa.open;
end;
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
Curtir tópico
+ 0Posts
23/11/2005
Edilcimar
Gostei + 0
24/11/2005
Eva
Gostei + 0
24/11/2005
Emerson Nascimento
dbiSaveChanges(TTable(Dataset).Handle);
obs.: é necessário ter a unit BDE na sua cláusula uses.
Gostei + 0
24/11/2005
Edilcimar
Gostei + 0
24/11/2005
Eva
Gostei + 0
24/11/2005
Emerson Nascimento
a função dbiSaveChanges() força o descarregamento imediato dos dados no HD. coloque a chamada à essa função no evento AfterPost do seu componente TTable: clique no componente TTable e vá no ObjetcInspector (pressione F11).
No object inspector há duas guias: Properties e Events; clique em Events; clique em AfterPost; agora dê um duplo-clique no espaço em branco à direita da palavra AfterPost; escreva [i:8f4c05f8a9][b:8f4c05f8a9]dbiSaveChanges(TTable(Dataset).Handle);[/b:8f4c05f8a9][/i:8f4c05f8a9] no local onde aparecer o cursor.
para adicionar o unit BDE na cláusula uses:
vá para o início do seu código. você verá algo como:
unit Unit1; interface uses Windows, Messages;
então adicione BDE ao final da linha. assim:
unit Unit1; interface uses Windows, Messages, BDE;
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)