Enlever les données identiques dans une table

Version imprimable

23/01/2007, 18h32
DubeiserTM

Enlever les données identiques dans une table

Salut !

Sujet transféré (http://www.developpez.net/forums/sho...d.php?t=265957)

J'ai une base de données Informations.mdb dans laquelle il y a une Table nommée Items dans laquelle j'aimerais enlever toutes les données identiques dans un champs en particulier nommé Descriptions. J'aimerais conserver le premier ou le dernier, aucune importance...

Est-ce que quelqu'un peut m'aider ? J'utilise ADO !

Merci beaucoup à l'avance !
23/01/2007, 22h10
Fabien Celaia

1) renommer la table
2) création de table au travers d'un select distinct sur la table renommée
3) Supprimer l'ancienne
24/01/2007, 08h58
SQLpro

Voyez l'article que j'ai écrit à ce sujet :
http://sqlpro.developpez.com/cours/doublons/

A +
24/01/2007, 17h47
DubeiserTM

Citation:

Envoyé par SQLpro

Voyez l'article que j'ai écrit à ce sujet :
http://sqlpro.developpez.com/cours/doublons/

A +

Un énorme merci pour cet article !

Avec le code ci-dessous j'obtiens une erreur: Aucune valeur donnée pour un ou plusieurs des paramètres requis

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Private Sub Command1_Click()
 
'Instanciation des variables
        Set rs = New ADODB.Recordset
        Set cn = New ADODB.Connection
'Connection et ouverture de la Database
        cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=C:\Program Files\Estima\Projets\88888.mdb"
'Ouverture de la Connection =
        cn.Open
'Création de la requête
        strSQL = "SELECT DISTINCT * FROM Items T1 WHERE EXISTS (SELECT * FROM Items T2 WHERE T1.DataID <> T2.DataID AND T1.Description = T2.Description)"
        cn.Execute strSQL
        strSQL = "DELETE FROM Items T WHERE T.DataID < ANY (SELECT DataID FROM Items WHERE T.DataID <> T2.DataID AND T.Description = T2.Description)"
        cn.Execute strSQL
'Fermeture du RecordSet
        cn.Close
        Set rs = Nothing
 
End Sub

Pouvez-vous m'aider, désolé je suis tout nouveau dans ce domaine...

Merci à l'avance !

25/01/2007, 11h04
Mathusalem

pour ta nouvelle question, apparement ce n'est pas une erreur ADO, tu devrais peut-être aller la poser sur le forum VB
25/01/2007, 14h49
soazig
Bonjour,
Sur ta requète Delete, tu as oublié l'alias T2 dans ta sous requete. Et comme résultat Access n'arrive pas à savoir ce que peut être T2.DataID ou T2.description.
Une requete correcte est :
Code:

1 2 3 4 5 6 7 DELETE FROM Items T WHERE T.DataID < ANY ( SELECT DataID FROM Items as T2 WHERE T.DataID <> T2.DataID AND T.Description = T2.Description )
Je ne sais pas ce que tu veux faire du select mais avec cette syntaxe, je crains que ce ne soit pas concluant, regardes les tutoriels ado.
A+
Soazig
26/01/2007, 15h53
DubeiserTM
Citation:
Envoyé par soazig

Bonjour,
Sur ta requète Delete, tu as oublié l'alias T2 dans ta sous requete. Et comme résultat Access n'arrive pas à savoir ce que peut être T2.DataID ou T2.description.
Une requete correcte est :

Code:

1 2 3 4 5 6 7 DELETE FROM Items T WHERE T.DataID < ANY ( SELECT DataID FROM Items as T2 WHERE T.DataID <> T2.DataID AND T.Description = T2.Description )
Merci ça fonctionne !

Citation:
Envoyé par soazig
Code:

1 2 3 4 5 6 7 DELETE FROM Items T WHERE T.DataID < ANY ( SELECT DataID FROM Items as T2 WHERE T.DataID <> T2.DataID AND T.Description = T2.Description )
À partir de cette requête ci-dessus qui fonctionne très bien, comment je fais pour ajouter une condition genre un champ(Dep) doit être égale à une telle valeur(plancher) ???

J'ai essayé ce qui suit et j'obtiens la même erreur que ci-haut:
Code:

1 2 3 4 5 6 7 8 DELETE FROM Items T WHERE T.DataID < ANY ( SELECT DataID FROM Items as T2 WHERE T.DataID <> T2.DataID AND T.Description = T2.Description AND T.Dep = Plancher )
Merci d'avance !

29/01/2007, 14h06
DubeiserTM

Personne ne peut m'aider ???

Merci à l'avance...

Citation:
Envoyé par DubeiserTM
À partir de cette requête ci-dessus qui fonctionne très bien, comment je fais pour ajouter une condition genre un champ(Dep) doit être égale à une telle valeur(plancher) ???

J'ai essayé ce qui suit et j'obtiens la même erreur que ci-haut:
Code:

1 2 3 4 5 6 7 8 DELETE FROM Items T WHERE T.DataID < ANY ( SELECT DataID FROM Items as T2 WHERE T.DataID <> T2.DataID AND T.Description = T2.Description AND T.Dep = Plancher )
Merci d'avance !
Est-ce possible ce que je demande ici, ou je cherche pour rien ???

Merci !

31/01/2007, 14h14
soazig

A vu de nez j'aurais tendance à penser qu'access ne connais pas Plancher.
Qu'est-supposé être plancher?
Un champ de quelle table , une variable ? autre chose?
Cordialement
Soazig
31/01/2007, 15h07
DubeiserTM

Citation:

Envoyé par soazig

A vu de nez j'aurais tendance à penser qu'access ne connais pas Plancher.
Qu'est-supposé être plancher?
Un champ de quelle table , une variable ? autre chose?
Cordialement
Soazig

Plancher est une entrée faisant parti du champs Dep de la table Items...

Merci !

Si je comprend bien Plancher est une chaine de caractère qui fait partie des données présentes dans le champ dep de la table item.
Dans ce cas comme c'est une chaine de caractère,il faut le dire au SGBD, il ne peut pas le deviner tout seul, et pour le dire il faut le mettre entre quote.
Code:

1 2 3 4 5 6 7 DELETE FROM Items T WHERE T.DataID < ANY ( SELECT DataID FROM Items as T2 WHERE T.DataID <> T2.DataID AND T.Description = T2.Description AND T.Dep = 'Plancher' )
Si c'est bien cela tu devrais lire un ou deux tutoriel sur le sql, car c'est le b. a ba.
Cordialement
Soazig

Citation:
Envoyé par soazig
Si je comprend bien Plancher est une chaine de caractère qui fait partie des données présentes dans le champ dep de la table item.
Dans ce cas comme c'est une chaine de caractère,il faut le dire au SGBD, il ne peut pas le deviner tout seul, et pour le dire il faut le mettre entre quote.
Code:

1 2 3 4 5 6 7 DELETE FROM Items T WHERE T.DataID < ANY ( SELECT DataID FROM Items as T2 WHERE T.DataID <> T2.DataID AND T.Description = T2.Description AND T.Dep = 'Plancher' )
Si c'est bien cela tu devrais lire un ou deux tutoriel sur le sql, car c'est le b. a ba.
Cordialement
Soazig
Merci beaucoup pour ton coup de main et ta patience !

Que siginifie b. a ba.

Bonne fin de journée !

31/01/2007, 21h14
soazig

Le B. A. BA (mon mari m'a indiqué qu'il l'écrivait ainsi) est une méthode d'apprentissage de la lecture (B+ A se prononce BA). C'est une expression indiquant que cela fait partie des connaissances de bases d'un domaine particulier.

Cordialement
Soazig