Selection par initiale dans un Recordset ADO

Question

bonjour a tous!
je vous explique sommairement mon probleme, auquel j'espere que vous trouverez une solution parce que j'ai eu beau me renseigner un peu partout, j'ai rien trouv&#233;!
En fait, je cherche a faire un repertoire t&#233;l&#233;phonique en VB6. Mes donn&#233;es sont stock&#233;es dans une base access. Pour info, j'ai test&#233; avec un version 97 et une 2002. A un moment de l'application, l'utilisateur doit pouvoir visionner les contacts de la base de donn&#233;es. Pour ca j'utilise donc un recordset qui associ&#233; &#224; une requete SQL doit stocker toutes les informations des contacts. Sachant que la liste des contacts s'affiche dans une Listbox, elle-m&#234;me contenue dans un TabStrip, je voudrais trier mes contacts par initiale en cliquant sur les onglets du TabStrip. Sauf que c'est la qu'arrive mon probleme. Sous Access, la requete permettant de le faire serait:
Select * from Repertoire (table de la base) where Nom="A*"
Mis en VB ca donnerait:
recordset.Open "Select * from Repertoire where [Nom]='A*'" en remplacant eventuellement le = par un LIKE ou bien l'etoile * par un %.
Sauf que dans tous les cas ennonc&#233;s si dessus, la requete ne retourne aucun r&#233;sultat!! J'ai pens&#233; a faire passer les resultats sans conditions du Recordset dans des ListBox sur une feuille a part non visible sauf que je ne sais pas comment les trier par initiale apres...
J'espere avoir &#233;t&#233; assez clair sur le probleme pos&#233;, en cas de questions eventuelles ou de suggestions n'hesitez pas, je suis pret a tout essayer afin que mon programme fonctionne correctement... Surtout que c'est la seule chose qui ne fonctionne pas!!
Merci d'avance a tous pour votre aide!!
P'tit Pierre

cs_Jack · Answer

Salut
La bonne syntaxe est :
"Select * from Repertoire where Nom Like 'A%'"
Je ne vois pas d'o&#249; vient le probl&#232;me avec cette simple ligne en guise de source de probl&#232;me.
Les crochets [ et ] ne sont pas n&#233;cessaire puisque le nom de ton champ ne comporte de caract&#232;res sp&#233;ciaux (accents, espace ...), mais le mettre ne g&#232;ne pas.
Le probl&#232;me vient surement d'ailleurs.
Comment analyses-tu les r&#233;sultats ?
Si ta ListeBox est plac&#233; sur le ssTab, il devrait donc y avoir autant de ListBox que d'onglet ?
Comment fais-tu le transfert de ton RecordSet vers ta ListBox ?
Comment sais tu qu'il n'y a pas de r&#233;sultats &#224; ta requ&#232;te ?
L&#224;, je commence &#224; manquer d'id&#233;e ...

Vala
Jack, MVP VB
NB : Je ne r&#233;pondrai pas aux messages priv&#233;s 

Champion du monde de boule de cristal - 2005
Le savoir est la seule mati&#232;re qui s'accro

tit_pierre · Answer

Comment analyses-tu les r&#233;sultats ?
Je ne les analyse pas, je veux juste les trier par initiale en int&#233;grant une condition a ma requete SQL
Si ta ListeBox est plac&#233; sur le ssTab, il devrait donc y avoir autant de ListBox que d'onglet ?
Non pas besoin. A chaque fois que l'utilisateur clique sur un onglet voila le deroulement des evenements:
1. ouverture du recordset
2. selection des resultats en fonction de l'onglet (et donc de l'initiale) par la requete SQL
3. effacement de la listbox avec la m&#233;thode Clear
4. ajout des donn&#233;es contenues dans le recordset dans la listbox avec la m&#233;thode Additem
5. fermeture du recordset.
A la fin de tout ca, ma listbox affiche les resultats de la requete en fonction de l'onglet!
Comment fais-tu le transfert de ton RecordSet vers ta ListBox ?
Voila le code, ca sera surement plus explicite: (supposons que j'ai deja rempli mon recordset avec les donn&#233;es voulues...)

While Not recordset.EOF  'Tant que le curseur n'est pas a la fin de l'enregistrement

    List1.AddItem(recordset("Nom") & " " & recordset("Prenom")) 'Ajout des donn&#233;es                                                       des colonnes Nom et Prenom de la table de la base
    recordset.MoveNext
Wend

En sachant qu'il est possible de mettre l'index de chaque colonne de la table &#224; la place de leur nom!
Comment sais tu qu'il n'y a pas de r&#233;sultats &#224; ta requ&#232;te ?
Tout simplment parce qu'aucun r&#233;sultat ne s'affiche dans ma ListBox. J'ai fait le test en remplacant mes conditions Nom="A*" par un nom en entier et dans ce cas, l'affichage se faisait correctement.

J'esp&#232;re m'etre fait comprendre et je te remercie de passer un pe de tps sur mon probleme

P'tit Pierre

cs_Jack · Answer

Re
J'insiste : la syntaxe que je t'ai donn&#233; est la seule qui fonctionne sous VB6.
As-tu des "On Error Resume Next" en t&#234;te de tes proc&#233;dures ?
Si oui, vire les : VB te fournira les erreurs et des indices sur le probl&#232;me
Ta connexion &#224; la DB est correcte ?

Sans plus de d&#233;tail sur ton code, difficile de deviner le probl&#232;me ...

tit_pierre · Answer

Si jamais tu veux voir mon code, pas de pb je t'envoie ca. Mais expliquer ca par des mots, jpe pas faire mieux... Quand &#224; la connexion a la BD, oui elle est directe et fonctionne bien puisque j'utilise d'autres Recordset pour d'autres requetes et que celles si fonctionnent!!
A bientot!
P'tit Pierre

cs_Jack · Answer

En passant
Il est tr&#232;s maladroit, voire dangereux d'appeler des object par des mots cl&#233;s :
RecordSet est un mot cl&#233;
Utilise plut&#244;t une syntaxe du genre   rsNoms  sans ambig&#252;it&#233;

tit_pierre · Answer

j'ai mis ca juste pour montrer que c'etait le recordset a cet endroit, dans mon code j'utilise evidement un autre nom...

Selection par initiale dans un Recordset ADO

6 réponses

Discussions similaires