Discussion :

[vb]

Bonjour à tous,
En VB5 j'ai une Form et dans le load je charge ma table clients dans un lisbox à deux colonnes avec un recordset ci dessous

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
 
Dim rsListeClient As Recordset
lstClients.Clear
Set rsListeClient = Bd.OpenRecordset("select Nom,Prénom,Cod from Clients order by Nom")
While Not rsListeClient.EOF
lstClients.AddItem rsListeClient![Nom] & Chr(9) & rsListeClient![Prénom]
lstClients.ItemData(lstClients.NewIndex) = rsListeClient![cod]
rsListeClient.MoveNext
Wend
rsListeClient.Close

Pour faire ma recherche plus facilement dans la liste j'ai placé un TextBox , avec dans l'évenemnt change ce code.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
lstClients.ListIndex = SendMessage(lstClients.hwnd, LB_FINDSTRING, -1, _
ByVal CStr(TextRechNom.Text))

L'API est déclarée dans le général de la feuille
Tout fonctionne très bien, mais je voudrais juste rassembler les clients en fonction de le première lettre choisie.avec LIKE mais je sèche un peu la dessus.
Non sans avoir parcouru avec insistance les questions posées un peu partout.
Bien à vous.
VB

[OhMonBato]

je voudrais juste rassembler les clients en fonction de le première lettre choisie

Que veux tu dire exactement par la ? Ta liste est bien triee par nom apparemment ?

[vb]

Bonjour.
Oui tout à fait ma liste est bien rassemblée par nom, mais je voudrais suite à l'évènement "Change" ne me mettre que les noms commencent par la lettre choisie et ne mettre que ceux là.
Comme vous voyez dans mon code je suis bien positionné sur l'index de la première lettre frappée, mais pour aller plus loin et affiner... je voudrais faire par exemple un "Clear" et n'afficher que les noms commençant par la première lettre.
Vous allez me dire de ne pas charger ma liste dans le load ....et de faire ma requête au moment voulu?
Bien à vous
VB