cs_Vengo
Messages postés11Date d'inscriptionsamedi 18 mai 2002StatutMembreDernière intervention 8 octobre 2005
-
30 juil. 2005 à 14:38
cs_Vengo
Messages postés11Date d'inscriptionsamedi 18 mai 2002StatutMembreDernière intervention 8 octobre 2005
-
30 juil. 2005 à 20:34
Salut,
Je viens de créer un soft avec une base de données, j'ai mis une listbox, pour qu'elle puisse recuperer des informations dans ma base de données, mais le probleme, c'est que je voudrai qui me mets qu'une fois le nom que j'ai rentrée et non deux fois.
Exemple :
J'ai mis dans ma base de données dans la colonne "Essai"
-Aujourd
-Demain
-Aujourd
Donc moi il affiche dans ma listbox, deux fois ajourd, et moi je veux qu'il me l'affiche une fois...
Comment faire??? Si vous comprenez pas je mettrai une photo...
cs_CanisLupus
Messages postés3757Date d'inscriptionmardi 23 septembre 2003StatutMembreDernière intervention13 mars 200621 30 juil. 2005 à 20:30
Remplace
Public Sub liste()
sql = "SELECT * FROM paroles WHERE artiste ORDER BY artiste"
Set rs = db.OpenRecordset(sql, dbOpenDynaset)
Liste1.Clear
For i = 1 To rs.RecordCount
Liste1.AddItem (rs.Fields("artiste"))
rs.MoveNext
Next
nombre.Text = rs.RecordCount
rs.Close
End Sub
Par
Public Sub liste()
sql = "SELECT DISTINCT artiste FROM paroles WHERE artiste ORDER BY artiste"
Set rs = db.OpenRecordset(sql, dbOpenDynaset)
Liste1.Clear
For i = 1 To rs.RecordCount
Liste1.AddItem (rs.Fields("artiste"))
rs.MoveNext
Next
nombre.Text = rs.RecordCount
rs.Close
End Sub
Ca devrait fonctionner.
-------------------------------------------------
Dresseur de puces, .... normal pour un loup !?
PCPT
Messages postés13272Date d'inscriptionlundi 13 décembre 2004StatutMembreDernière intervention 3 février 201847 30 juil. 2005 à 15:17
en fait, tu as des doublons possible dans ta base, et tu ne veux pas les afficher dans la ListBox, c'est çà?
si oui :
tu t'es connecté à la base, tu as 10 résultats Rs("MaColonne")
avant de faire ListBox.AddItem Rs("MaColonne"): Rs.MoveNext, tu dois compter combien tu as déjà de valeurs, et faire une boucle selon ce nombre. si de 1 à ce nombre, une des valeurs est déjà celle que tu veux ajouter, alors tu quittes la boucle et Rs.MoveNext. sinon, il n'y a pas de doublon donc .Add...
cs_Vengo
Messages postés11Date d'inscriptionsamedi 18 mai 2002StatutMembreDernière intervention 8 octobre 2005 30 juil. 2005 à 16:47
Mon code est car je ne comprends pas trop là, lol
-----------------------------------------------------------------------------
sql = "SELECT * FROM paroles WHERE artiste='" & Liste1.Text & "' ORDER BY artiste"
Set rs = db.OpenRecordset(sql, dbOpenDynaset)
lbl_num.Caption = rs.Fields("numero")
Liste2.Clear
For i = 1 To rs.RecordCount
Liste2.AddItem (rs.Fields("chanson"))
rs.MoveNext
Next
rs.Close
---------------------------------------------------------------------------
Voila, merci de votre aide
PCPT
Messages postés13272Date d'inscriptionlundi 13 décembre 2004StatutMembreDernière intervention 3 février 201847 30 juil. 2005 à 18:06
bonjour, je suis chanteur, j'aimerais bien être dans ta liste
très bien, tu as fais plusieurs albums?
oui, -"chanter pour le plaisir"
- "chanter pour l'argent"
très bien, alors je te met dans ma table :
Id_chanteur = 3
Nom_Chanteur = PCPT
Titre_Chanson = chanter pour le plaisir
non non monsieur, je suis chanteur, donc pas forcément bien placé, mais on disait que dans un monde parfait, j'étais polyvalent :
tu dois faire une table avec les chanteurs :