Faire une recherche ds MSFlexGrid
Résolu
ManuAntibes
Messages postés
491
Date d'inscription
mardi 24 octobre 2000
Statut
Membre
Dernière intervention
18 novembre 2021
-
13 mai 2005 à 09:55
ManuAntibes Messages postés 491 Date d'inscription mardi 24 octobre 2000 Statut Membre Dernière intervention 18 novembre 2021 - 17 mai 2005 à 08:53
ManuAntibes Messages postés 491 Date d'inscription mardi 24 octobre 2000 Statut Membre Dernière intervention 18 novembre 2021 - 17 mai 2005 à 08:53
A voir également:
- Ddddff ds
- Filtré dans le adoquery ou ds le datasource??? - Forum Delphi / Pascal
- Envoyer une variable ds un lien de header() - Forum PHP
- PEut on mettre une tempo ds un vbscript? ✓ - Forum Visual Basic
- Onglet ds un Tabcontrol - Forum Visual Basic
- Masquer curseur de manière permanente ds RTFbox - Forum Visual Basic
3 réponses
vbergro
Messages postés
2
Date d'inscription
vendredi 13 mai 2005
Statut
Membre
Dernière intervention
13 mai 2005
13 mai 2005 à 17:37
13 mai 2005 à 17:37
si g bien compris, tu veux que ton flexgride affiche le resultat qui ressemble au mot tapé dans un textbox! (dans ce que pourquoi t'as utilisé un label !!! "Form1recherche.Label1.Caption" )
en tt cas voici le code que j'utilise :
Private Sub tb_Change()
rs.Open "select * from table where nom like '" & tb.Text & "%'", dataEnv.Cn, adOpenDynamic, adLockOptimistic, adCmdText
r = 1
flexg.Rows = 1
While Not (rs.EOF)
flexg.Rows = flexg.Rows + 1
flexg.TextMatrix(r, 1) = rs("nom")
flexg.TextMatrix(r, 2) = rs("prenom")
r = r + 1
rs.MoveNext
Wend
End If
End Sub
bien faut deja avoir declarer rs com ADODB.Recordset en plus d'une connexion etablie au préalable! j'espère que ça regle ton prob. a+
en tt cas voici le code que j'utilise :
Private Sub tb_Change()
rs.Open "select * from table where nom like '" & tb.Text & "%'", dataEnv.Cn, adOpenDynamic, adLockOptimistic, adCmdText
r = 1
flexg.Rows = 1
While Not (rs.EOF)
flexg.Rows = flexg.Rows + 1
flexg.TextMatrix(r, 1) = rs("nom")
flexg.TextMatrix(r, 2) = rs("prenom")
r = r + 1
rs.MoveNext
Wend
End If
End Sub
bien faut deja avoir declarer rs com ADODB.Recordset en plus d'une connexion etablie au préalable! j'espère que ça regle ton prob. a+
ManuAntibes
Messages postés
491
Date d'inscription
mardi 24 octobre 2000
Statut
Membre
Dernière intervention
18 novembre 2021
5
13 mai 2005 à 12:08
13 mai 2005 à 12:08
J'ai trouvé ce code:
dim Search, Where
Search = Form1recherche.Label1.Caption
Where = InStr(MSFlexGrid1.Text, Search)
mais le problème c'est qu'il recherche mes caractères de ma textbox dans tout le texte
comment le forcé a chercher par commence par.
MANUANTIBES [:p]
dim Search, Where
Search = Form1recherche.Label1.Caption
Where = InStr(MSFlexGrid1.Text, Search)
mais le problème c'est qu'il recherche mes caractères de ma textbox dans tout le texte
comment le forcé a chercher par commence par.
MANUANTIBES [:p]
ManuAntibes
Messages postés
491
Date d'inscription
mardi 24 octobre 2000
Statut
Membre
Dernière intervention
18 novembre 2021
5
17 mai 2005 à 08:53
17 mai 2005 à 08:53
Merci
j'utilise un label pour ma recherche, car j'affiche ce que je tape dans le label .
J'ai d'ailleur un autre probleme avec mon label.
J'ai reposté ici
http://www.vbfrance.com/forum.v2.aspx?ID=458293
A+ et merci bien
MANUANTIBES
j'utilise un label pour ma recherche, car j'affiche ce que je tape dans le label .
J'ai d'ailleur un autre probleme avec mon label.
J'ai reposté ici
http://www.vbfrance.com/forum.v2.aspx?ID=458293
A+ et merci bien
MANUANTIBES
