Recherche semie/auto
marcod59
Messages postés
170
Date d'inscription
vendredi 16 janvier 2004
Statut
Membre
Dernière intervention
13 juin 2010
-
4 avril 2005 à 16:29
marcod59 Messages postés 170 Date d'inscription vendredi 16 janvier 2004 Statut Membre Dernière intervention 13 juin 2010 - 5 avril 2005 à 08:38
marcod59 Messages postés 170 Date d'inscription vendredi 16 janvier 2004 Statut Membre Dernière intervention 13 juin 2010 - 5 avril 2005 à 08:38
2 réponses
cs_Geff
Messages postés
192
Date d'inscription
vendredi 2 mars 2001
Statut
Membre
Dernière intervention
10 janvier 2006
4 avril 2005 à 16:40
4 avril 2005 à 16:40
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
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
marcod59
Messages postés
170
Date d'inscription
vendredi 16 janvier 2004
Statut
Membre
Dernière intervention
13 juin 2010
5 avril 2005 à 08:38
5 avril 2005 à 08:38
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. @+++
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. @+++