Pessoal tenho uma tabela e existem duplicidades em um certo campo, preciso saber quais linhas estão duplicadas, como posso fazer isso ?

 

Tem um campo primário [Cod] onde não é permitido duplicidade, o problema está no campo [Parc].

 

Obs.: Utilizo banco de dados Access 2000 e conexão DAO

 

Obrigado.

Rodrigo, faça um Loop e verifique, indexe o campo Parc.

Dim cParc as Currency    '  ou String (o tipo de dados)

Dim caParc as Currency  ' idem

If rs.Recordcount> 0 Then

 rs.Index = "Parc"

 rs.MoveMin

 cParc = rs!Parc

 caParc = 0    '  ou ""

 Do While Not rs.Eof

  cParc = rs!Parc

  If caParc = cParc Then

   rs.Edit

   rs.Delete

  End If

  rs.MoveNext

  caParc = rs!Parc

 Loop

End If

 

Assim com os registros indexados pelo campo ele faz o loop e verifica, retirando qualquer duplicação existente.

 

vlu//

 

 

 

 

 

LCRamos quado executada a operação acima o seguinte erro é exibido na linha:

 

rs.MoveMin

 

Compile error:

Method or data member not found

create table #teste
 (
  parc varchar(10),
  nome varchar(10)
 )

set nocount on

insert into #teste (parc, nome) values ('01', 'Teste')
insert into #teste (parc, nome) values ('01', 'Teste')
insert into #teste (parc, nome) values ('02', 'Teste')
insert into #teste (parc, nome) values ('03', 'Teste')
insert into #teste (parc, nome) values ('03', 'Teste')
insert into #teste (parc, nome) values ('03', 'Teste')

select
 parc,
 Count(*)
from #teste
group by parc
having Count(*) >1

drop table #teste

 

Não é MoveMin o forum muda as palavras, é MMOOVVEEFFIIRRSSTT.

Move para o primeiro, FFIIRRSSTT.

vlu//

 

Mesmo assim não funciona, está retornando tudo e não os duplicados...