Localizar registro e remover todos os dados de tabela Parado
14/12/2003
0
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
Posts
14/12/2003
Tnaires
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
14/12/2003
Wagsilvasilva
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.
15/12/2003
Bilatto
Procedure ApagarTodosReg(Origem:TDataSet);
Begin With Origem do While RecordCount > 0 Then
Delete;
end;
Um abraço. 8)
Clique aqui para fazer login e interagir na Comunidade :)