Supression doublon table

Question

Salut &#224; tous,

J'ai une table (jusque'ici tout va bien!) de ce type:


Champ1          Champ2     Champ3
097D043017    000100       05/03/05
097D043017    000200       05/03/05
097D043017    000300       06/04/05
082S254531     000101       05/06/05
082S254531    000200       05/06/05
-----


Comme on peut le voir, il ya des doublons et je voudrais les supprimer. Mais je voudrais supprimer les doublons selon le Champ3 (garder la date la plus ancienne), ce qui donnerait:


Resultat dans une autre table:
097D043017    000100    05/03/05
082S254531    000200    05/06/05
------
J'ai un peu de mal &#224; me lancer dans vb, toutes les id&#233;es sont les bienvenues.
Voil&#224;, j'&#233;sp&#232;re que je me suis bien fait comprendre.

Merci d'avance et bon vb,

Jojo

omsylv · Answer

Salut,



Est ce que tu veux les supprimer physiquement (enregistrement
d&#233;finitivement d&#233;truits) ou qu'ils ne s'affichent (requ&#234;te pour
afficher les r&#233;sultats sans doublons) ??

cs_frop01 · Answer

Salut,



Juste une id&#233;e ;)



- A supposer que ta table s'appelle Table1

- Cr&#233;er une table temporaire Table2 avec les m&#234;mes champs que Table1 avec comme cl&#233; primaire Champ1



Dans le code :



1 &#233;tape : Vider Table2 (Delete * From Table2)

2 &#233;tape : insert into table2 (champ1,champ2,champ3) select 
champ1,champ2,champ3
 from Table1 order by Champ3

3 &#233;tape : Vider Table1 (Delete * From Table1)

4 &#233;tape : insert into table1 (
champ1,champ2,champ3
) select * from Table2



NB: Pour les messages d'erreur de type doublons dans l'&#233;tape 2, utilise On Error Resume Next !

cs_jojo68 · Answer

J'aimerais garder tous les enregistrements avec doublons et cr&#233;er une autre table sans doublons.

En tous cas merci pour ta r&#233;ponse
Jojo

omsylv · Answer

Dans ce cas l&#224; si tu n'as pas besoin de modifier les donn&#233;es, tu cr&#233;es
une requ&#234;te (du type Select DISTINCT champ3 from table) et c'est bon.



PS : Si tu ne connais pas trop le SQL : http://www.1keydata.com/sql/sql.html

cs_frop01 · Answer

c'est pas faisable avec distinct vu la d&#233;pendance de la requete au champ3 !



Tu n'aura qu'&#224; suivre l'&#233;tape 1 et 2 seulement

cs_jojo68 · Answer

Salut et surtout merci pour vos r&#233;ponses,

Je viens seulement d'essayer les &#233;tapes 1 et 2 mais &#231;a ne marche pas, il ne me fait pas le tri sur le champ date, en fait  il trie les enregistrements par le champ 1 (cl&#233; primaire), voici mon bout de code:
Champ 1= Lordno
Champ3=NtryDt

Merci d'avance si vous avez une id&#233;e,

Jojo
_________________________
'Destruction de table qp2
DoCmd.DeleteObject acTable, "qp2"


Set bd1 = CurrentDb
'Cr&#233;ation de Table
bd1.Execute "CREATE TABLE [qp2]" _
& "(Lordno TEXT,ItemNo TEXT,Lorditem TEXT,Clas TEXT,Fact TEXT,PARTNo TEXT,NtryDt DATE,WorkTo DATE,WupRel DATE,RevNo TEXT,OS TEXT,Hold TEXT,ProdFam TEXT,SizeFam INTEGER,Epmc TEXT);"
' Cl&#233; primaire
bd1.Execute "CREATE UNIQUE INDEX Lordno ON qp2 (Lordno)WITH PRIMARY "

'Remplissage table Qp2
m = "INSERT INTO QP2 (Lordno,ItemNo,Lorditem,NtryDt) SELECT Lordno,ItemNo,Lorditem,NtryDt FROM FASTD09A_copy ORDER BY Ntrydt"


bd1.Execute (m)
______________________________

cs_frop01 · Answer

Essai 

Order by NtryDt,Lordno,ItemNo,Lorditem 

Sinon 

par ordre décroissant: 

Order by NtryDt,Lordno,ItemNo,Lorditem DESC

cs_jojo68 · Answer

Merci mais ca ne marche toujours pas, il fait toujours le tri sur Le champ1.

Avez vous une autre id&#233;e.
Merci d'avance.
Jojo

Supression doublon table

8 réponses

Discussions similaires