Code de la commande rechercher sous vb avec l'outil data
aboudouaestitou
Messages postés2Date d'inscriptionmardi 20 mai 2008StatutMembreDernière intervention 9 juin 2008
-
9 juin 2008 à 21:19
kacingo
Messages postés1Date d'inscriptionmercredi 3 juin 2009StatutMembreDernière intervention 1 juillet 2009
-
1 juil. 2009 à 16:25
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
cs_DARKSIDIOUS
Messages postés15814Date d'inscriptionjeudi 8 août 2002StatutMembreDernière intervention 4 mars 2013130 9 juin 2008 à 21:35
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
kacingo
Messages postés1Date d'inscriptionmercredi 3 juin 2009StatutMembreDernière intervention 1 juillet 2009 1 juil. 2009 à 16:25
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