Lister sans doublons les elements d'une DB et afficher dans un treeview [Résolu]
waspy59
- Messages postés
- 190
- Date d'inscription
- mercredi 24 novembre 2004
- Dernière intervention
- 15 mai 2013
- Messages postés
- 5
- Date d'inscription
- lundi 2 février 2009
- Dernière intervention
- 1 novembre 2012
A voir également:
- Lister sans doublons les elements d'une db et afficher dans un treeview
- Connaitre le nombre d'elements (sans doublons) d'un tableau ✓ - Forum - Visual Basic 6
- Création d'une 2ème liste en fonction de la sélection d'une 1ère liste sans rechargement - Codes sources - PHP (Formulaires)
- Création d'une 2ème liste en fonction de la sélection d'une 1ère liste sans rechargement - Codes sources - Javascript (Formulaire)
- Dédoublonner facilement une table ms access et voir la liste des doublons - Codes sources - Visual Basic / VB.NET (Base de Donnees)
- PHP : Afficher une liste déroulante en fonction d'une autre liste sans recharger la page ou p - Guide
7 réponses
Meilleure réponse
- Messages postés
- 1231
- Date d'inscription
- vendredi 16 novembre 2007
- Dernière intervention
- 16 juin 2009
Re:
SELECT DISTINCT Produit, lot FROM tatable ORDER BY produit
S.L.B.
<hr />-- Le règlement tu liras -- Des recherches tu feras -- Le style SMS tu banniras --
-- De la validation pertinente tu feras -- Du respect tu auras -- Le bon t
SELECT DISTINCT Produit, lot FROM tatable ORDER BY produit
S.L.B.
<hr />-- Le règlement tu liras -- Des recherches tu feras -- Le style SMS tu banniras --
-- De la validation pertinente tu feras -- Du respect tu auras -- Le bon t
Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire
112 internautes nous ont dit merci ce mois-ci
- Messages postés
- 1231
- Date d'inscription
- vendredi 16 novembre 2007
- Dernière intervention
- 16 juin 2009
Salut,
pour ne pas avoir de doublon dans ta requête de selection utilise le mot clé DISTINCT (un truc facile c'est que tu la tapes en sql sous access et tu vois le résultat pour apres l'adapté à ta commande vb) Ensuite tu inserts le résultat au niveau de ton treeview.
Il n'y a pas de problème mathèmatique dans ta question c'est simplement comment tu vas faire ta requete.
S.L.B.
<hr />-- Le règlement tu liras -- Des recherches tu feras -- Le style SMS tu banniras --
-- De la validation pertinente tu feras -- Du respect tu auras -- Le bon thème tu choisiras --
pour ne pas avoir de doublon dans ta requête de selection utilise le mot clé DISTINCT (un truc facile c'est que tu la tapes en sql sous access et tu vois le résultat pour apres l'adapté à ta commande vb) Ensuite tu inserts le résultat au niveau de ton treeview.
Il n'y a pas de problème mathèmatique dans ta question c'est simplement comment tu vas faire ta requete.
S.L.B.
<hr />-- Le règlement tu liras -- Des recherches tu feras -- Le style SMS tu banniras --
-- De la validation pertinente tu feras -- Du respect tu auras -- Le bon thème tu choisiras --
- Messages postés
- 117
- Date d'inscription
- lundi 15 avril 2002
- Dernière intervention
- 1 juillet 2011
Salut,
Je ferait un Select * From TABLE order by produit,
ensuite je parcour les enregistrements, si l'enregistrement actuel est un nouveau produit tu le rajoute et si il a le produit identique que l'enregsitrement precedent, tu ne rajout pas le produit mais le lot au produit actuel,
bonne chance,
a++
seb
Développement Rapide PHP / VBNET -> www.database2code.com
Je ferait un Select * From TABLE order by produit,
ensuite je parcour les enregistrements, si l'enregistrement actuel est un nouveau produit tu le rajoute et si il a le produit identique que l'enregsitrement precedent, tu ne rajout pas le produit mais le lot au produit actuel,
bonne chance,
a++
seb
Développement Rapide PHP / VBNET -> www.database2code.com
- Messages postés
- 29
- Date d'inscription
- jeudi 7 décembre 2000
- Dernière intervention
- 30 octobre 2012
Bonjour, a vous
je viens écrire dans se tuto car je pense etre dans la bonne partie.
Voila mon problème :
J ai une base de données : matériaux / sous-ensembles / produits / ensembles
et donc un sous-ensembles peut avoir plusieurs matières/ un produit peut avoir plusieurs sous-ensembles / etc...
Je peux donc avoir : un produit avoir des sous-ensembles qui ont plusieurs fois les mêmes matériaux.
( je m exprime mal donc si vous voulez des précisions demander :p )
voila mon code pour afficher mes données :
Do While Not rs_user.EOF
'ordre : (lien, action, clée, text, image)
Set n = TrvContact.Nodes.Add("Root", tvwChild, rs_user.Fields(1), , rs_user.Fields(1), 1)
test.text = rs_user.Fields(10)
lienfils.text = rs_user.Fields(1) Set rs_ensemb DB.OpenRecordset("select * from ensembles where userENS " + test.text)
Do While Not rs_ensemb.EOF
'ordre : (lien, action, clée, text, image)
Set n = TrvContact.Nodes.Add(i, tvwChild, rs_ensemb.Fields(0), rs_ensemb.Fields(0), 2)
lienfilsfils.text = rs_ensemb.Fields(0)
Set rs_prod = DB.OpenRecordset("select * from produit, ensembles, regrouper where produit.desP=regrouper.desP and regrouper.desENS = ensembles.desENS and ensembles.desENS='" + rs_ensemb.Fields(0) + "';")
rs_ensembl.movenext
loop
rs_user.movenext
loop
Ce n'est qu'une partie de mon code, ce code marche si on rencontre que une fois un matériaux, ou un sous-ensembles , ou un produit, etc...
Je suis en train de changer et de tester avec desi ...
Je vous remercie d'avance pour votre future aide.
Cordialement
Guilty90
je viens écrire dans se tuto car je pense etre dans la bonne partie.
Voila mon problème :
J ai une base de données : matériaux / sous-ensembles / produits / ensembles
et donc un sous-ensembles peut avoir plusieurs matières/ un produit peut avoir plusieurs sous-ensembles / etc...
Je peux donc avoir : un produit avoir des sous-ensembles qui ont plusieurs fois les mêmes matériaux.
( je m exprime mal donc si vous voulez des précisions demander :p )
voila mon code pour afficher mes données :
Do While Not rs_user.EOF
'ordre : (lien, action, clée, text, image)
Set n = TrvContact.Nodes.Add("Root", tvwChild, rs_user.Fields(1), , rs_user.Fields(1), 1)
test.text = rs_user.Fields(10)
lienfils.text = rs_user.Fields(1) Set rs_ensemb DB.OpenRecordset("select * from ensembles where userENS " + test.text)
Do While Not rs_ensemb.EOF
'ordre : (lien, action, clée, text, image)
Set n = TrvContact.Nodes.Add(i, tvwChild, rs_ensemb.Fields(0), rs_ensemb.Fields(0), 2)
lienfilsfils.text = rs_ensemb.Fields(0)
Set rs_prod = DB.OpenRecordset("select * from produit, ensembles, regrouper where produit.desP=regrouper.desP and regrouper.desENS = ensembles.desENS and ensembles.desENS='" + rs_ensemb.Fields(0) + "';")
rs_ensembl.movenext
loop
rs_user.movenext
loop
Ce n'est qu'une partie de mon code, ce code marche si on rencontre que une fois un matériaux, ou un sous-ensembles , ou un produit, etc...
Je suis en train de changer et de tester avec desi ...
Je vous remercie d'avance pour votre future aide.
Cordialement
Guilty90
- Messages postés
- 29
- Date d'inscription
- jeudi 7 décembre 2000
- Dernière intervention
- 30 octobre 2012
tiss , c est toujours aprés avoir demander qu'on trouve tout seul lol :
Voila mon code ( c'est normale si vous comprennez pas tout de suite :) ) :
b = 1
d = 1
f = 1
h = 1
j = 1
Do While Not rs_user.EOF
'ordre : (lien, action, clée, text, image)
a = "user " & b
Set n = TrvContact.Nodes.Add("Root", tvwChild, a, rs_user.Fields(1), 1)
test.text = rs_user.Fields(10) Set rs_ensemb DB.OpenRecordset("select distinct * from ensembles where userENS " + test.text)
b = b + 1
Do While Not rs_ensemb.EOF
c = "ensemble " & d
Set n = TrvContact.Nodes.Add(a, tvwChild, c, rs_ensemb.Fields(0), 2)
Set rs_prod = DB.OpenRecordset("select distinct * from produit, ensembles, regrouper where produit.desP=regrouper.desP and regrouper.desENS = ensembles.desENS and ensembles.desENS='" + rs_ensemb.Fields(0) + "';")
d = d + 1
Do While Not rs_prod.EOF
E = "produit " & f
Set n = TrvContact.Nodes.Add(c, tvwChild, E, rs_prod.Fields(0), 2)
Set rs_SE = DB.OpenRecordset("select distinct sous_ensembles.désigSE from sous_ensembles, contenir, produit, regrouper, ensembles Where regrouper.desP=produit.desP and regrouper.desENS = ensembles.desENS and contenir.désigSE=sous_ensembles.désigSE and contenir.desP=produit.desP and produit.desP = '" + rs_prod.Fields(0) + "';")
f = f + 1
Do While Not rs_SE.EOF
g = "sous-ensembles " & h
Set n = TrvContact.Nodes.Add(E, tvwChild, g, rs_SE.Fields(0), 2)
Set rs_mat = DB.OpenRecordset("select distinct base.Désignation_matériel From base, sous_ensembles, contenir, produit, avoir, regrouper, ensembles Where regrouper.desP=produit.desP and regrouper.desENS = ensembles.desENS and contenir.désigSE = sous_ensembles.désigSE And contenir.desP = produit.desP and avoir.désigSE=sous_ensembles.désigSE and avoir.Désignation_matériel= base.Désignation_matériel and sous_ensembles.désigSE = '" + rs_SE.Fields(0) + "';")
h = h + 1
Do While Not rs_mat.EOF
i = "matériaux " & j
Set n = TrvContact.Nodes.Add(g, tvwChild, i, rs_mat.Fields(0), 2)
j = j + 1
rs_mat.MoveNext
Loop
rs_SE.MoveNext
Loop
rs_prod.MoveNext
Loop
rs_ensemb.MoveNext
Loop
'je passe à l'enregistrement suivant
rs_user.MoveNext
Loop
L'erreur venait enfaite du fait que je nommais automatiquement les sous parties et donc que s'il avait un doublons : ERREUR.
J'ai donc forcer mon programme a donnée des nom "correct" ( hihihih) a mes sous parties.
J'espere que ce code peut aider des gens :)
Cordialement
Guilty90
Voila mon code ( c'est normale si vous comprennez pas tout de suite :) ) :
b = 1
d = 1
f = 1
h = 1
j = 1
Do While Not rs_user.EOF
'ordre : (lien, action, clée, text, image)
a = "user " & b
Set n = TrvContact.Nodes.Add("Root", tvwChild, a, rs_user.Fields(1), 1)
test.text = rs_user.Fields(10) Set rs_ensemb DB.OpenRecordset("select distinct * from ensembles where userENS " + test.text)
b = b + 1
Do While Not rs_ensemb.EOF
c = "ensemble " & d
Set n = TrvContact.Nodes.Add(a, tvwChild, c, rs_ensemb.Fields(0), 2)
Set rs_prod = DB.OpenRecordset("select distinct * from produit, ensembles, regrouper where produit.desP=regrouper.desP and regrouper.desENS = ensembles.desENS and ensembles.desENS='" + rs_ensemb.Fields(0) + "';")
d = d + 1
Do While Not rs_prod.EOF
E = "produit " & f
Set n = TrvContact.Nodes.Add(c, tvwChild, E, rs_prod.Fields(0), 2)
Set rs_SE = DB.OpenRecordset("select distinct sous_ensembles.désigSE from sous_ensembles, contenir, produit, regrouper, ensembles Where regrouper.desP=produit.desP and regrouper.desENS = ensembles.desENS and contenir.désigSE=sous_ensembles.désigSE and contenir.desP=produit.desP and produit.desP = '" + rs_prod.Fields(0) + "';")
f = f + 1
Do While Not rs_SE.EOF
g = "sous-ensembles " & h
Set n = TrvContact.Nodes.Add(E, tvwChild, g, rs_SE.Fields(0), 2)
Set rs_mat = DB.OpenRecordset("select distinct base.Désignation_matériel From base, sous_ensembles, contenir, produit, avoir, regrouper, ensembles Where regrouper.desP=produit.desP and regrouper.desENS = ensembles.desENS and contenir.désigSE = sous_ensembles.désigSE And contenir.desP = produit.desP and avoir.désigSE=sous_ensembles.désigSE and avoir.Désignation_matériel= base.Désignation_matériel and sous_ensembles.désigSE = '" + rs_SE.Fields(0) + "';")
h = h + 1
Do While Not rs_mat.EOF
i = "matériaux " & j
Set n = TrvContact.Nodes.Add(g, tvwChild, i, rs_mat.Fields(0), 2)
j = j + 1
rs_mat.MoveNext
Loop
rs_SE.MoveNext
Loop
rs_prod.MoveNext
Loop
rs_ensemb.MoveNext
Loop
'je passe à l'enregistrement suivant
rs_user.MoveNext
Loop
L'erreur venait enfaite du fait que je nommais automatiquement les sous parties et donc que s'il avait un doublons : ERREUR.
J'ai donc forcer mon programme a donnée des nom "correct" ( hihihih) a mes sous parties.
J'espere que ce code peut aider des gens :)
Cordialement
Guilty90
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.