Fórum duplicidade de registro #368109

Ola, caros colegas

Minha difilculdade é a seguinte sou novo ainda no delphi trabalho com D7 Ibx e FireBird 2.0, e importei alguns dados de um banco de dados DBF para minha surpresa e varios registro com codigos repetidos montei esta pesquiza que vou por como minha tentativa pelas buscas na net e nao sei o que fiz de errado;

qryPesq.Close;
qryPesq.SQL.Clear;
qryPesq.SQL.Add(´Select coddev,count(*) from Db_03 having count(*) > 1 ´);
qrypesq.SQL.Add(´group by coddev´);
qryPesq.Open;
if qryPesq.RecordCount <> 0 then
begin
MessageDlg(´Registro já Cadastrado!!!´,mtWarning,[mbOK],0);
end;


se alguem puder me dar uma ajuda serei muito grato.

Obrigado desde ja .