Dicas - Como Esvaziar uma Tabela

Você precisa estar logado para dar um feedback. Clique aqui para efetuar o login
Para efetuar o download você precisa estar logado. Clique aqui para efetuar o login
Confirmar voto
0
 (0)  (0)

Veja nesta dica, a codificação para se esvaziar uma tabela em aplicações win32 no delphi.

Como Esvaziar uma Tabela

function EsvaziaTabela(Tabela : TTable): Boolean;

 

// Esvazia a tabela passada como parametro

var

lExclusivo : boolean;

begin

Tabela.Active := False;

repeat

try

  Tabela.Exclusive := True;

  Tabela.Active := True;

  Tabela.EmptyTable;

  lExclusivo := True;

  Break;

except

  on EDatabaseError do

  if MessageDlg(A tabela está sendo usada por outro usuário. Tenta novamente ?, mtError,[mbOK, mbCancel], 0) <> mrOK then

  begin

  lExclusivo := False;

  raise;

  end;

  end;

until False;

Result := lExclusivo;

end;

 
Você precisa estar logado para dar um feedback. Clique aqui para efetuar o login
Receba nossas novidades
Ficou com alguma dúvida?