Discussion :

[fthdz]

Bonjour
je voudrais faire la recherche des enregistrements doublon d'un ADOTable et le mettre dans un autre ADOTable sans le supprimer de premier(dire par doublon tous les valeurs des champs sont identique sauf code(clé primaire))

J'ai pensé a ca mais ca n'a pas marché

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
 
table1.first;
table2.first;
while not table1.eof do
   begin
     val1:=table1.fieldbyname('nom').value;
     val2:=table1.fieldbyname('prenom').value;
         ..
        ....
     valn:=table1.fieldbyname('adresse').value;
       while not table1.eof do
        begin
   if(val1=table1.fieldbyname('nom').value)and(val2=table1.fieldbyname('nom').value)and.....
           begin
             table2.append;
             ...
             ....
             table2.post;
           end;
         table1.next;
       end;
     table1.next;
  end;

le pb peut etre se trouve dans le positionement du pointeur dans table1(utiliser par les deux boucles)et l'enregistrement eux meme.
il ya une méthode de sauveguarder la position du pointeur de la premiere boucle pour le retrouver apres?
OU
il ya une autre manière plus fiable de faire ce programme?

merci d'avance

[Rayek]

Avec une requete ca serait plus simple.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 
Select nom,prenom, count(*) as Resultat from TA_Table
Group by Nom,Prenom

Cette requete te donnera le nombre de fois qu'il y a le couple nom/prenom dans la table.
Si Resultat est > 1 c'est que tu as un doublon.

[fthdz]

merci Malatar pour la reponse
votre requete marche trés bien
mais en cherchant sur acces j'ai trouvé un assistant de creation de requete qui affiche tous les doublon ,en basculant en mode SQL :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
 
SELECT client.nom, client.prenom, client.codecli, client.adresse, client.val_cli
FROM client
WHERE (((client.nom) In (SELECT [nom] FROM [client] As Tmp GROUP BY [nom],[prenom] HAVING Count(*)>1  And [prenom] = [client].[prenom])))
ORDER BY client.nom, client.prenom;

que je trouve plus proche a mon pb!!

[Rayek]

merci Malatar pour la reponse
votre requete marche trés bien
mais en cherchant sur acces j'ai trouvé un assistant de creation de requete qui affiche tous les doublon ,en basculant en mode SQL :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
SELECT client.nom, client.prenom, client.codecli, client.adresse, client.val_cli
FROM client
WHERE (((client.nom) In (SELECT [nom] FROM [client] As Tmp GROUP BY [nom],[prenom] HAVING Count(*)>1  And [prenom] = [client].[prenom])))
ORDER BY client.nom, client.prenom;

que je trouve plus proche a mon pb!!

En rouge : il s'en sert même pas dans le code
L'optimisation ACCESS

[fthdz]

exactement Malatar apres plusieurs essai j trouvé que votre code est la meilleur solution pour mon probleme