(Resolvido) Reindexar Tabelas Paradox

[Eder]

Ola...pessoal.

Eu tenho um programa numa filial da empresa....e vive dando queda de energia, e corronpendo os arquivos. Eu houvi falar que daria pra colocar um reindexador de tabelas paradox na inicialização do programa.

Mas nem imagino como faz isto?

alguém poderia me dar uma dica?

uso o componente TTable e Datasource....não costume usar o componete Database

Grato

:(

[Guest --HDELPHI --]

Ola...pessoal.

Eu tenho um programa numa filial da empresa....e vive dando queda de energia, e corronpendo os arquivos. Eu houvi falar que daria pra colocar um reindexador de tabelas paradox na inicialização do programa.

Mas nem imagino como faz isto?

alguém poderia me dar uma dica?

uso o componente TTable e Datasource....não costume usar o componete Database

Grato

:(

DICA:

Um dos problemas dos programadores Delphi é salvar as informações fisicamente no disco rígido. Quando estamos trabalhando com o programa as informações ficam retidas no buffer, o que, em caso de queda de energia ou até mesmo se o usuário fechar o Windows com a aplicação aberta resulta na perda dos dados, que foram processados na execução atual do sistema.

Para resolver o problema, basta acrescentar no evento AfterPost de cada componente Table as linhas de código que estão abaixo.

Na lista de Uses acrescente a unit DBIProcs.

Dessa forma, você não precisa temer perder os seus dados por uma falha elétrica ou pela quebra do sistema (como um erro GPF, por exemplo), após atualizar o banco de dados.

implementation

uses DBIProcs;

{$R *.DFM}

procedure TForm1.Table1AfterPost(DataSet: Dataset);

begin

DBISaveChanges(Table1.Handle);

end;

end.

Ou quando se usa query

procedure TForm1.Query1AfterPost(DataSet: Dataset);

begin

DBISaveChanges(Query1.Handle);

end;

end.

[Guest --HDELPHI --]

Reindexando Índices em tabelas paradox

uses

dbTables, DbiProcs;

Se quiser pode colocar este codigo num botao ou no form create do formulario

begin

table1.exclusive := true;

table1.open;

dbiRegenIndexes(table1.Handle);

end;

[Eder]

Valeu....amigão...muito Grato

[Guest --marcio --]

Valeu....amigão...muito Grato