Aide pour bouton recherche

Résolu
rydox
Messages postés
14
Date d'inscription
mardi 30 mars 2010
Statut
Membre
Dernière intervention
24 février 2011
- 6 févr. 2011 à 18:48
NHenry
Messages postés
14966
Date d'inscription
vendredi 14 mars 2003
Statut
Modérateur
Dernière intervention
9 août 2022
- 24 févr. 2011 à 19:08
Bonjour,
voila mon problème: je cherche a faire une application VB6 ds le but de faire une recherche ds une base de donnée Access contient une table de 3 champs "code" "nom" "prénom" , j utilise comme référence microdoft DAO 3.6 .
mon interface vb contient zone de texte "txtcode" , bouton "cmdrecherche" et 2 zones de textes nom et prénom .
merci de me rependre

26 réponses

4u4me4us
Messages postés
781
Date d'inscription
lundi 22 janvier 2007
Statut
Membre
Dernière intervention
30 octobre 2013
3
23 févr. 2011 à 16:12
"10013868" Respect

si tu tape à la main la req. sans utiliser la var rech ni le champs de texte. A la place du champ de texte tu mais une petite valeur comme 100. Obtiens tu le résultat que tu veux?

Je te demande cela car comme "NHenry" je remet en cose la requête elle même. Donc si a la mains sans var ou autre ça marche c que le prob. viens des valeurs des var.
0
rydox
Messages postés
14
Date d'inscription
mardi 30 mars 2010
Statut
Membre
Dernière intervention
24 février 2011

23 févr. 2011 à 17:27
bonjour,
j ai fait se que tu m as dis j ai mis a la place du champ du texte la valeur 100 et rien ne marche
j obtient le même résultat même si j efface la ligne "SELECTE * FROM.." toujours le même enregistrement .
alors je crois que cette ligne n est pas reliée a l enregistrement
et voila mon code comme je l ai dis à "NHenry" avec les nouveaux modification :

Dim session As Workspace 
Dim base As Database 
Dim enreg As Recordset 


Private Sub Cmdrecherche_Click() 

Dim rech As String 

rech "SELECT * FROM table WHERE code " & cint(txtcode.Text) & ";" 
Text2.Text = enreg![nom] 
Text3.Text = enreg![prenom] 

End Sub 


Private Sub Form_Load() 
Set session = DBEngine.Workspaces(0) 
Set base = session.OpenDatabase(App.Path & "\saisie.mdb") 
Set enreg = base.OpenRecordset("table") 

End Sub
0
4u4me4us
Messages postés
781
Date d'inscription
lundi 22 janvier 2007
Statut
Membre
Dernière intervention
30 octobre 2013
3
24 févr. 2011 à 10:11
Je pense que avec le message de NHenry tu as résolut ton prob!!
0
rydox
Messages postés
14
Date d'inscription
mardi 30 mars 2010
Statut
Membre
Dernière intervention
24 février 2011

24 févr. 2011 à 16:07
bonjour,

il marche tres bien.
merci à vous pour tout c est vraiment simpa
0

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
4u4me4us
Messages postés
781
Date d'inscription
lundi 22 janvier 2007
Statut
Membre
Dernière intervention
30 octobre 2013
3
24 févr. 2011 à 17:46
2 riens et BON CODE!!!!
0
NHenry
Messages postés
14966
Date d'inscription
vendredi 14 mars 2003
Statut
Modérateur
Dernière intervention
9 août 2022
161
24 févr. 2011 à 19:08
De rien, bon codage :)
0