recherche semie/auto

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
@+++

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

---

main(k){float i,j,r,x,y=-16;while(puts(""),y++<15)for(x
=0;x++<84;putchar(" .:-;!/>)|&IH%*#"[k&15]))for(i=k=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

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.     @+++