Code de la commande rechercher sous vb avec l'outil data

Signaler
Messages postés
2
Date d'inscription
mardi 20 mai 2008
Statut
Membre
Dernière intervention
9 juin 2008
-
Messages postés
1
Date d'inscription
mercredi 3 juin 2009
Statut
Membre
Dernière intervention
1 juillet 2009
-
j'aime bien avoir le code de la commande rechercher
j'ai creer ma base de données sous format 97,
j'utilise l'outil Data pour me connecté a ma base données
je place les bouttons de commande ils sont a marche
mais j'ai pas le code de la commande "Rechercher un enregistrement"
je programme sous VB6
le programme gestion de clinets
je veux lorsque je clique sur le boutton "rechercher" une input box s'ouvre on saisie le Num client
les données de ce client s'affiche sur les texte box par exemple Nom; Prénom; Tél.....
merci infinnement a tous qui peuvent me donner la solution ou à ceux qui vont m'encourager a surmenter cette hai
je suis enpannne

vtre frére :YOUSSEF

4 réponses

Messages postés
2
Date d'inscription
mardi 20 mai 2008
Statut
Membre
Dernière intervention
9 juin 2008

la commande rechercher sioous VB6
Messages postés
15814
Date d'inscription
jeudi 8 août 2002
Statut
Modérateur
Dernière intervention
4 mars 2013
124
Salut,

Il te suffit de rechercher un minimum dans les sources du site et tomber sur la bonne centaines de sources qui utilise des requêtes SQL pour chercher des enregistrements...
______________________________________
DarK Sidious
Messages postés
1
Date d'inscription
lundi 15 octobre 2007
Statut
Membre
Dernière intervention
27 novembre 2008

said_xavi
Messages postés
1
Date d'inscription
mercredi 3 juin 2009
Statut
Membre
Dernière intervention
1 juillet 2009

ajouter dbgrid1 aprés ajouter data1 fé la liaison. voila le code:

Dim m, n
n = InputBox("Veuillez Saisir Le Code Client à Rechercher", "Recherche")
     Data2.Recordset.FindFirst "[Code_client]=" & "'" & n & "'"
       If Data2.Recordset.NoMatch = True Then
       Data2.Recordset.AddNew
        m = MsgBox("Code Inéxistant,Cliquer sur OK pour Quitter?", vbNo, "Recherche")
         If m = vbYes Then
         Text1 = n
         Text2.SetFocus
         End If
          Else
           MsgBox ("Votre Recherche est validé")
           Data2.RecordSource = "Select* From Clients Where [Code_client]='" & n & "'"
           Data2.Refresh
          End If