OVH Cloud OVH Cloud

recherche sous access

3 réponses
Avatar
Dom
Bonjour a tous,

J'ai une petite application vb qui ce connect a ma base de donnée jusque la
tout va bien.

dans mon form j'ai un combobox qui contien 2 truc
de recherche : soit par "Numéro De Téléphone" ou "Nom D'entrepreneur".

Plus bas j'ai une zone de text avec un bouton rechercher.
Exemple : je choisi de faire une recherhe par Nom D'entrepreneur donc je
choisi "Nom D'entrepreneur" dans mon menu déroulant... ensuite j'ecrit dans
la zone de texte "action plus" et des que je clique sur recherher j'aimerai
qu'il recherche tout ce qui debute....se terminer ou qui contient "action
plus" et qu'il me le sorte dans un listbox

j'ai une petite iddée du codage mais je ses pas comment l'ecrire :(

si combobox1.text = "Nom D'entrepreneur" then
recheche text1.text dans le rs.Fields("Nom_Entrepreneur") et sort moi sa
dans un listbox


Merci de votre aide.

3 réponses

Avatar
jt
"Dom" a écrit dans le message de news:

Bonjour a tous,

J'ai une petite application vb qui ce connect a ma base de donnée jusque
la tout va bien.

dans mon form j'ai un combobox qui contien 2 truc
de recherche : soit par "Numéro De Téléphone" ou "Nom D'entrepreneur".

Plus bas j'ai une zone de text avec un bouton rechercher.
Exemple : je choisi de faire une recherhe par Nom D'entrepreneur donc je
choisi "Nom D'entrepreneur" dans mon menu déroulant... ensuite j'ecrit
dans la zone de texte "action plus" et des que je clique sur recherher
j'aimerai qu'il recherche tout ce qui debute....se terminer ou qui
contient "action plus" et qu'il me le sorte dans un listbox

j'ai une petite iddée du codage mais je ses pas comment l'ecrire :(

si combobox1.text = "Nom D'entrepreneur" then
recheche text1.text dans le rs.Fields("Nom_Entrepreneur") et sort moi sa
dans un listbox


Merci de votre aide.





Bonsoir
il te faut mettre dans la clause where de ta requete la syntaxe suivante
where [matable].[Nom_Entrepreneur] like '*action plus*'
si tu veux que le champ commence par action plus enlever le premier *
si tu veux que le champ finisse par action plus enlever le deuxieme *
cordialement
par exemple
set rs=openrecordset("select * from matable where
[matable].[Nom_Entrepreneur] like '*action plus*'")
do until rs.eof
list1.additem rs.fields!lechampquiminterresse
rs.movenext
loop
Avatar
Dom
Bonjour jt merci de ton attention porter a mon probleme.
sa fonctionne mais la il va toujour toujour me sortir ce qui est en rapport
avec "action plus"
se que je voudait c'est qu'il prenne en ligne de compte ce que la personne a
ecrit dans un textbox car je ne recherche pas toujour ce qui concerne
"action plus"
si la personne marque toto dans le textbox et bien il cherche dans ma base
le mot toto et si il le trouve il me marque exemple le numéro de téléphone
dans le listbox

Merci

"jt" a écrit dans le message de news:


"Dom" a écrit dans le message de news:

Bonjour a tous,

J'ai une petite application vb qui ce connect a ma base de donnée jusque
la tout va bien.

dans mon form j'ai un combobox qui contien 2 truc
de recherche : soit par "Numéro De Téléphone" ou "Nom D'entrepreneur".

Plus bas j'ai une zone de text avec un bouton rechercher.
Exemple : je choisi de faire une recherhe par Nom D'entrepreneur donc je
choisi "Nom D'entrepreneur" dans mon menu déroulant... ensuite j'ecrit
dans la zone de texte "action plus" et des que je clique sur recherher
j'aimerai qu'il recherche tout ce qui debute....se terminer ou qui
contient "action plus" et qu'il me le sorte dans un listbox

j'ai une petite iddée du codage mais je ses pas comment l'ecrire :(

si combobox1.text = "Nom D'entrepreneur" then
recheche text1.text dans le rs.Fields("Nom_Entrepreneur") et sort moi sa
dans un listbox


Merci de votre aide.





Bonsoir
il te faut mettre dans la clause where de ta requete la syntaxe suivante
where [matable].[Nom_Entrepreneur] like '*action plus*'
si tu veux que le champ commence par action plus enlever le premier *
si tu veux que le champ finisse par action plus enlever le deuxieme *
cordialement
par exemple
set rs=openrecordset("select * from matable where
[matable].[Nom_Entrepreneur] like '*action plus*'")
do until rs.eof
list1.additem rs.fields!lechampquiminterresse
rs.movenext
loop



Avatar
jt
"Dom" a écrit dans le message de news:
%
Bonjour jt merci de ton attention porter a mon probleme.
sa fonctionne mais la il va toujour toujour me sortir ce qui est en
rapport avec "action plus"
se que je voudait c'est qu'il prenne en ligne de compte ce que la personne
a ecrit dans un textbox car je ne recherche pas toujour ce qui concerne
"action plus"
si la personne marque toto dans le textbox et bien il cherche dans ma base
le mot toto et si il le trouve il me marque exemple le numéro de téléphone
dans le listbox

Merci

"jt" a écrit dans le message de news:


"Dom" a écrit dans le message de news:

Bonjour a tous,

J'ai une petite application vb qui ce connect a ma base de donnée jusque
la tout va bien.

dans mon form j'ai un combobox qui contien 2 truc
de recherche : soit par "Numéro De Téléphone" ou "Nom D'entrepreneur".

Plus bas j'ai une zone de text avec un bouton rechercher.
Exemple : je choisi de faire une recherhe par Nom D'entrepreneur donc je
choisi "Nom D'entrepreneur" dans mon menu déroulant... ensuite j'ecrit
dans la zone de texte "action plus" et des que je clique sur recherher
j'aimerai qu'il recherche tout ce qui debute....se terminer ou qui
contient "action plus" et qu'il me le sorte dans un listbox

j'ai une petite iddée du codage mais je ses pas comment l'ecrire :(

si combobox1.text = "Nom D'entrepreneur" then
recheche text1.text dans le rs.Fields("Nom_Entrepreneur") et sort moi sa
dans un listbox


Merci de votre aide.





Bonsoir
il te faut mettre dans la clause where de ta requete la syntaxe suivante
where [matable].[Nom_Entrepreneur] like '*action plus*'
si tu veux que le champ commence par action plus enlever le premier *
si tu veux que le champ finisse par action plus enlever le deuxieme *
cordialement
par exemple
set rs=openrecordset("select * from matable where
[matable].[Nom_Entrepreneur] like '*action plus*'")
do until rs.eof
list1.additem rs.fields!lechampquiminterresse
rs.movenext
loop







Bonsoir
il te faut ecrire
set rs=openrecordset("select * from matable where
[matable].[Nom_Entrepreneur] like '*" & textBox.Text & "*'")
Cordialement