La fonction distinct en vb6

Fermé

Lenouveauapprenti Messages postés 306 Date d'inscription samedi 22 décembre 2018 Statut Membre Dernière intervention 15 février 2025 - 26 févr. 2019 à 22:27
Lenouveauapprenti Messages postés 306 Date d'inscription samedi 22 décembre 2018 Statut Membre Dernière intervention 15 février 2025 - 28 févr. 2019 à 13:20

Bonjour

J'ai un petit probléme avec la fonction "distinct"
Ce que je savais de cette fonction, est qu'elle évite le doublon dans une combox.
Ma constation est qu'elle efficace seulement quant un mot se répete 2 fois, alors que dans le cas où
un mot se répéte plus que 2 fois, la fonction "Distinct" élimine un élément.

Y'a t il une solution à cette faille ?

Je mets à votre disposition mon code:

cmbTravaux.Clear


SQLs = "select Distinct(Travaux) from TableTravaux where (Societe='" & CStr(VarSociete) & "')"

If RS.State = adStateOpen Then RS.Close
RS.Open SQLs, DB, adOpenKeyset, adLockPessimistic

Do Until RS.EOF

cmbTravaux.AddItem (RS![Travaux])

RS.MoveNext
Loop
RS.Close

Merci d'avance pour toute réponse

A voir également:

La fonction distinct en vb6
Fonction si et - Guide
Vb6 - Télécharger - Divers Utilitaires
Fonction moyenne excel - Guide
Fonction somme excel - Guide
Comment colorer une cellule excel en fonction du contenu d'une autre cellule ✓ - Forum Excel

1 réponse

Réponse 1 / 1

jordane45 Messages postés 38446 Date d'inscription mercredi 22 octobre 2003 Statut Modérateur Dernière intervention 28 février 2025 4 737
26 févr. 2019 à 23:08

Bonjour,
Ta question ne concerne pas le VB ... mais le SQL (autre forum...)
Quoi qu'il en soit, la fonction DISTINCT s'utilise en général avec la fonction GROUP BY
par exemple :

SELECT DISTINCT(Travaux )
FROM TableTravaux
WHERE Societe='" & CStr(VarSociete) & "'
GROUP BY  Travaux"

jordane45 Messages postés 38446 Date d'inscription mercredi 22 octobre 2003 Statut Modérateur Dernière intervention 28 février 2025 4 737
26 févr. 2019 à 23:09

Tu noteras au passage que le code que je t'ai donné est en couleur....
Pour ça il faut correctement utiliser les balises de code en y précisant le "langage"
Explications disponibles ici : https://codes-sources.commentcamarche.net/faq/11288-les-balises-de-code

Merci de le faire à l'avenir.

Lenouveauapprenti Messages postés 306 Date d'inscription samedi 22 décembre 2018 Statut Membre Dernière intervention 15 février 2025 2
27 févr. 2019 à 08:25

Bonjour,

Avant tout un grand merci pour votre réponse et pour m'avoir orienter vers le forum adéquat.
cela dit, je vous promets que, pour mon code envoyé ci haut, j'ai suivi vos recommandations à la lettre, j'ai sélectionné le code, puis j'ai cliqué sur l’icône <> et puis sélectionné Basic.
Si jamais, ça n'a pas réussi, ou c'est moi qui n'a pas bien sélectionné le texte ou je n'ai pas encore bien assimilé
l'exemple envoyé

En tout mes sincères excuses

Lenouveauapprenti Messages postés 306 Date d'inscription samedi 22 décembre 2018 Statut Membre Dernière intervention 15 février 2025 2
27 févr. 2019 à 11:27

Re bonjour

Voilà j'ai essayé votre proposition et ça n' a pas marché.
Je voulais posté ce probléme sur le forum SQL mais je n'ai pas trouvé.

Merci de m'orienter

f894009 Messages postés 17241 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 19 février 2025 1 713
28 févr. 2019 à 08:24

Bonjour,

J'ai essaye votre code dans le projet que vous m'avez passe et y a aucun problème deux ou x "doublons" ca marche et je ne vois pas pourquoi ca ne marcherait pas!!!!!

Lenouveauapprenti Messages postés 306 Date d'inscription samedi 22 décembre 2018 Statut Membre Dernière intervention 15 février 2025 2
Modifié le 28 févr. 2019 à 13:21

Bonjour

Le code marche bien. C'est de ma faute. Je n'ai pas fais attention à un E sans accent en fin de la chaîne, alors que les autres sont avec E accent

Merci pour tout

Discussions similaires

Compter valeurs unique avec condition

Bonjour la communauté,

La question a plusieurs fois été abordée, mais aucune des solutions trouvée ne fonctionne dans mon fichier, et votre aide me serait fort utile !

Je cherche une formule sans VBA pour compter le nombre d'entreprises uniques par secteur d'activité.

Exemple :

En colonne A : noms d'entreprises (avec des doublons)
En colonne B : le secteur d'activité de l'entreprise

- l'entreprise KIKI apparaît 4 fois (colonne A), dans la catégorie "Agroalimentaire" (colonne B)
- l'entreprise BABA apparaît 2 fois (colonne A), dans la catégorie "Agroalimentaire" (colonne B)
J'ai donc 2 entrepris...

Remplir une cellule (texte) en fonction d'une autre (texte).

Bonjour à tous,

Je vais encore vous embêter aujourd'hui avec mon registre/rapport.

Ma question est simple (enfin je crois).
J'ai une liste de client :
- Autocars truc
- Bidule Autocars
- ... etc

J'ai une adresse pour chaque client (sous forme de liste) :
- Pont de Ernest
- Chemin Départemental 6
- ... etc

J'ai un code poste pour chaque client (sous forme de liste) :
- 99548
- ... etc

Ma question est : Si en D18 je récupère l'information du nom de mon client, je veux en D19 son adresse, en E20 son code postal et en M20 sa ville en fonction des listes d'ad...

La fonction FILTRE n'est plus reconnue

Bonsoir à tous,

je vis une déconvenue des plus troublantes : hier soir je finalisais avec succès une formule incluant la fonction FILTRE, tout fonctionnait, super. Aujourd'hui je la rouvre, et la fonction FILTRE n'est plus du tout reconnue. A la place, il y a ça : _xlfn._xlws.FILTER. Ce qui veut dire qu'elle n'est pas prise en charge ; pourtant hier elle l'était...

Mon produit est bien à jour, il s'agit d'Office 2016. Et en effet, sur la version en ligne d'Excel, la formule est proposée. Moi je n'ai plus que la fonction FILTRE.XML qui l'est...

Le lien du fichier :
https://cjoint.com/c/MBhuxJvSDZH

Pour info, il s'agit d'une formule ...

Comment savoir comment on nous a ajouté sur Snap

J’aimerai savoir si quelqu’un sait comment cela ce fait que j’ai des ajout sur snap mais qu’il n’y a pas marqué comment on m’a ajouté (ajout rapide, mention etc) il y a juste marqué le nom de la personne et à la place de comment la personne m’a ajouter son identifiant snap. Et je ne pense pas que ce soit un beugue parce que je reçois dés ajout ou là il y a écrit comment on m’a ajouté. Et quand je demande au personne ou ils ont eut mon snap ils me répondent ajout rapide je répond que c’est bizzare puisque ça ne me l’a pas mit et là personne change de sujet ( ce n’est pas la première). Et deuxième question aussi concernant les ajouts, un jour j’ai reçu un ajout sur snap via mention sachant que...

Excel:récupérer le contenu d'une cellule en fonction d'une autre

Bonjour,

Difficile de faire un titre explicite.

Mon problème sur Excel est le suivant :

Dans une plage de données (nombres), je recherche la plus petite valeur avec la fonction petite.valeur pour obtenir la plus petite. Le problème est que je voudrais pouvoir également afficher dans une autre cellule le contenu textuel qui y est associé en début de ligne, en quelque sorte l'étiquette de données. J'ai essayé avec plusieurs fonctions comme EQUIV,CELLULE ou LIGNE mais impossible en fait de récupérer une référence à partir des formules MIN ou PETITE.VALEUR, et donc cela ne fonctionne pas .
Le problème avec ces fonctions est qu'il faut conn...