Localizar registro e remover todos os dados de tabela Parado

Delphi

14/12/2003

GRANDE DÚVIDA

TENHO UM BD PARADOX 7 COM COD,E PRODUTOS
ESSES DOIS CAMPOS SAO PRIMÁRIOS
COMO POSSO FAZER PARA LOCALIZAR PRODUTOS E CODIGOS?

E COMO FAZER PARA APAGAR TODOS OS REGISTROS DE UMA TABELA
DE UMA VEZ SÓ?

eu tentei o código abaixo para deletar os registros da tablea mas naum deu certo

TabResultaCEP.Close;
TabResultaCEP.Exclusive := True;
Try
TabResultaCEP.Open;
Except
ShowMessage(´Banco de Dados em uso, impossível procesar a busca!!!´);
TabResultaCEP.Exclusive := False;
TabResultaCEP.Open;
exit;
End;
TabResultaCEP.EmptyTable;
TabResultaCEP.Close;
TabResultaCEP.Exclusive := False;
TabResultaCEP.Open;

[b:81b058fc27]Título editado pelo Moderador (AZ)[/b:81b058fc27]


Diego Souza

Diego Souza

Curtidas 0

Respostas

Tnaires

Tnaires

14/12/2003

Caro Diego

Pq não utiliza uma query pra apagar todos os registros? Defina sua propriedade SQL para ´DELETE FROM tabela´ e, na execução, chame o método ExecSQL.
Para localizar campos em uma tabela, tente usar o método Locate.

Sucesso


GOSTEI 0
Wagsilvasilva

Wagsilvasilva

14/12/2003

Nunca utilizei, mas sei que existe um método chamado emptytable que apaga todos os registros da tabela.
Agora não sei como é a sintaxe deste procedimento. Tente uma das duas alternativas:

tbdados.emptytable;

ou chame a rotina

procedure emptytable;

Acredito que alguma das duas maneiras tu consigas excluir todos os registros.


GOSTEI 0
Bilatto

Bilatto

14/12/2003

Tente usar a rotina abaixo :

Procedure ApagarTodosReg(Origem:TDataSet);
Begin With Origem do While RecordCount > 0 Then
Delete;
end;

Um abraço. 8)


GOSTEI 0
POSTAR