Eliminar fisicamente Registros de tabela .DBF

Question

Algu�m tem o c�digo do programa para que do DELPHI eu consiga excluir fisicamente todos os registros deletados do DBASE.Agrade�oJairo...

Sam · Answer

procedure TF_Form1.PackDBF(Tabela: TTAble);
begin
Tabela.Active := false;
try
Tabela.Exclusive := true;
tabela.Active := true;
DbiPackTable(Tabela.DBHandle, Tabela.Handle, nil, szdBASE, true);
Tabela.Active := false;
Tabela.Exclusive := false;
finally
Tabela.Active := true;
end;
end;

Espero ter ajudado !!!!

Jairo Norenberg · Answer

SamQuando o programa executa       Tabela.Exclusive := true;est� dando erro �Table is busy�S� que ela n�o est� sendo usada.Oque poderia ser?Grato pela aten��oJairo...

Sam · Answer

A tabela dever� estar fechada.Ou sejaTabela.close;PackDbf(Tabela);Espero ter ajudado !!!...

Aroldo Zanela · Answer

Colega,Verifique se n�o existem tabelas abertas em outros formul�rios ativos (auto-create) ou no data module, ou em outro programa externo, sen�o, a tabela n�o pode ser colocada em modo exclusivo....

F�rum Eliminar fisicamente Registros de tabela .DBF #234928