Tenta isso aqui!!! usando o EmptyTable...
function Esvazia(SuaTabela : TTable): Boolean;
var
lExclusivo : boolean;
begin
SuaTabela.Active := False;
repeat
try
SuaTabela.Exclusive := True;
SuaTabela.Active := True;
SuaTabela.EmptyTable;
lExclusivo := True;
Break;
except
on EDatabaseError do
if MessageDlg('A tabela está sendo usada por outro usuário. Tentar novamente
?', mtError,[mbOK, mbCancel], 0) <> mrOK then
begin
lExclusivo := False;
raise;
end;
end;
until False;
Result := lExclusivo;
end;
Wilson Valdevite <[EMAIL PROTECTED]> escreveu:vc já pensou em usar um while???
tabela.open;
tabela.first;
while not tabela.eof do begin
tabela.delete;
end;
pode demorar um pouquinho dependendo da tabela mas resolve.
----- Original Message -----
From: tatu
To: Delphi-Br@Yahoogrupos.Com.Br
Sent: Thursday, October 20, 2005 4:18 PM
Subject: [delphi-br] off - apagar tabela access
necessito melhorar um programinha (bem bagabundo) insirindo dados numa
tabela access.
O unico detalhe que antes de inserir tenho que apagar tudo o conteudo...
Como faço isso de uma vez só numa tabela access ?. No momento estou
fazendo um scan da tabela. (gambiarra digamos...)
Santiago Cuello
NSR Informática
11 6601 6161
11 9914 0823
--
No virus found in this outgoing message.
Checked by AVG Anti-Virus.
Version: 7.0.344 / Virus Database: 267.12.4/143 - Release Date:
19/10/2005
[As partes desta mensagem que não continham texto foram removidas]
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]
Yahoo! Grupos, um serviço oferecido por:
------------------------------------------------------------------------------
Links do Yahoo! Grupos
a.. Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
b.. Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
c.. O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço
do Yahoo!.
------------------------------------------------------------------------------
No virus found in this incoming message.
Checked by AVG Anti-Virus.
Version: 7.0.344 / Virus Database: 267.12.4/143 - Release Date: 19/10/2005
----------
No virus found in this outgoing message.
Checked by AVG Anti-Virus.
Version: 7.0.344 / Virus Database: 267.12.4/143 - Release Date: 19/10/2005
[As partes desta mensagem que não continham texto foram removidas]
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]
Yahoo! Grupos, um serviço oferecido por:
---------------------------------
Links do Yahoo! Grupos
Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do
Yahoo!.
Thiago de Castro X. da Silveira
Pré-Vestibular Pitágoras
Unidades Centro, Savassi e Belvedere.
Setor TI
telefone: +55 (31) 3274-1088
e-mails:
[EMAIL PROTECTED]
[EMAIL PROTECTED]
---------------------------------
Promoção Yahoo! Acesso Grátis: a cada hora navegada você acumula cupons e
concorre a mais de 500 prêmios! Participe!
[As partes desta mensagem que não continham texto foram removidas]
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]
Links do Yahoo! Grupos
<*> Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
<*> Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
<*> O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html
