Recherche semie/auto

Signaler
Messages postés
170
Date d'inscription
vendredi 16 janvier 2004
Statut
Membre
Dernière intervention
13 juin 2010
-
Messages postés
170
Date d'inscription
vendredi 16 janvier 2004
Statut
Membre
Dernière intervention
13 juin 2010
-
marcod59

Bonjour à tous,

Je cherche un exemple pour faire une recherche style MSDN, je m'explique :
Dans un texbox (ou autre chose) je tape ma recherche et au fur et à mesure de la frappe, dans une listbox (ou autre chose) qui elle est triée par ordre alphabetique, on évolue par rapport aux lettres tapées. Ex : si je commence à taper tr dans le texbox. Je serai arrêté sur le 1er mot commencant par tr dans la liste.
Liste qui serai remplie par une BD acces.

Merci d'avance
@+++

2 réponses

Messages postés
192
Date d'inscription
vendredi 2 mars 2001
Statut
Membre
Dernière intervention
10 janvier 2006

A mon avis il faut que tu mette une fonction dans l'événement Change de ton textbox
ex:

Private Sub Texte_Change()
Cherche Texte.text
End Sub

Puis une fonction Cherche comme suit ::

Sub Cherche (Valeur as string)
'Efface la listbox
Liste.Clear
'Ccherche dans la base de données
Rs.Open "SELECT * FROM TaTable WHERE TonChampsDeRecherche
LIKE '%" + Valeur + "'%'"
WHILE RS.Eof=False
'Ajoute la valeurs dans la ListBox
Liste.Additem ,RS!TonChamps
RS.MoveNext
WEND
RS.Close
End Sub

Voila c'est un début :) bonne route


<HR>

main(k){float i,j,r,x,y=-16;while(puts(""),y++<15)for(x
0;x++<84;putchar(" .:-;!/>)|&IH%*#"[k&15]))for(ik=r=0;
j=r*r-i*i-2+x/25,i=2*r*i+y/10,j*j+i*i<11&&k++<111;r=j);}

# GEFF
Messages postés
170
Date d'inscription
vendredi 16 janvier 2004
Statut
Membre
Dernière intervention
13 juin 2010

marcod59

Bonjour Geff,

Merci pour ta réponse qui m'as aidée. J'ai du changer ta procédure "cherche" car l'instruction LIKE tel quelle est écrite VB ne l'a reconnait pas. Voilà ce que j'ai mis à la place qui fonctionne et, qui doit être ammélioré.
Dim nbr As Integer
Dim ordre As Variant
While Text1.Text <> ordre
nbr = Len(Text1.Text)
ordre = Left(Data1.Recordset("MonChampsDeRecherche"), nbr)
Data1.Recordset.MoveNext
Wend
Data1.Recordset.MovePrevious
La listbox étant chargé dans le Form_Load

Bonne prog. @+++