Buscar por:

Visualizar registros duplicados em uma tabela

Código

PARA VERIFICAÇÃO DOS DADOS  PELO USUÁRIO EM TEMPO REAL VOCE PODERÁ USAR ATRAVES DA SQL.

DA SEGUINTE FORMA:

INCLUA UM FORMULÁRIO NO SEU PROGRAMA, ADICIONE UM TBDGRID, UM DBNAVIGATOR, DOIS BUTTONS , UMA QUERY E UM DATASOURCE.

NA TSTRINGS DA QUERY ESCREVA O SEGUINTE COMANDO:

SELECT *

FROM TABELA

WHERE

CN IN (SELECT CN FROM TABELA GROUP BY CN HAVING COUNT(*)>1)

ORDER BY () {CAMPO DA TABELA QUE SE QUER ORDENAR}

NO PRIMEIRO BUTTON NO SEU  EVENTO ONCLICK ESCREVA O SEGUINTE COMANDO:

FORM1.QUERY.ACTIVE := FALSE;

NO SEGUNDO BUTTON ESCREVA O SEGUINTE COMANDO:

FORM1L.QUERY.ACTIVE := TRUE;

A RODE O PROGRAMA.

COM  ESTE FORMULÁRIO O USUÁRIO PODERÁ VER OS ARQUIVOS DUPLICADOS.

VOCE PODERÁ IMPRIMIR ATRAVES DO QUICK REPORT ESTABELENDO UMA QUERY E UM DATASOURCE NO RELATÓRIO COM O MESMO COMANDO DE SQL