ActiveDelphi

[usr2]

Caros amigos estou com um pequeno proble não consigo deletar todos os registro de uma tabela feita no MYSQ 5.0 utilizando o D7

utilizizo o seguinte codigo

procedure Apagar(origem:tdataset);
begin
with origem do
while recordcount >0do
delete;
end;

[joemil]

pq vc nao envia um DELETE FROM tabela?
_________________
<b>SEMPRE COLOQUE [RESOLVIDO] NO SEU POST</b>
Enviar imagens: http://tinypic.com/

[thomazs]

Truncate table SuaTabela

Além de excluir todos os registros, também zera os campos autoincremento.
_________________
Suporte e Consultoria em Desenvolvimento de Sistemas
Bacharel em Sistemas de Informação
Especialista em Bancos de Dados
Desenvolvimento: Clipper, Delphi, PHP, Python/Django

[joemil]

apos usar o truncate, sempre é bom usar o OPTIMIZE TABLE, pois no proprio manual diz q podem ocorrer erros de tamanho de arquivo apos usar esse comando
_________________
<b>SEMPRE COLOQUE [RESOLVIDO] NO SEU POST</b>
Enviar imagens: http://tinypic.com/