vb6Résolu

Question

Bonjour 
j'ai vraimen un probleme avec vb6 
quand je specifie ma combo box pour quil maffiche dans des zone de texte des infos &#224; partir du choix de ma combobox il m&#233;cri :peut de parametre 1 attendu et pourtant je passe bien ma clause wher si quelqun peut m'aider 
Un etudiant

yan35 · Accepted Answer

Bonsoir,

Je vois 2 probl&#232;mes dans ton code :
 - 1&#176; : ton champ Nom de ta table El&#232;ve est certainement de type Texte, donc ta syntaxe SQL n'est pas bonne, car le param&#232;tre attendu, repr&#233;sent&#233; par Combo3.text doit &#234;tre encadr&#233; par des quotes, comme suit (corrections en bleu) :
sql = "select * from Eleve,Classe where Eleve.nom= '" & Combo3.Text & "'"
          (je sais c'est pas terrible comme syntaxe, mais les param texte doivent &#234;tre format&#233;s comme &#231;a !)

- 2&#176; : il te manque la jointure entre ta table El&#232;ve et ta table Classe, mais je ne peux pas t'aider si tu ne dis pas sur quel champ ces tables sont li&#233;es, ni si je ne sais pas si la jointure est interne ou externe. L&#224; &#231;a d&#233;pend de la structure de ta base de donn&#233;es.


Cordialement

yan35 · Answer

Bonjour,

Tu as probablement 1 probl&#232;me dans ta syntaxe sql du where, il faudrait en dire + sur ton code !

pa_omar · Answer

Ben voila j'ai trois tables classe , eleve et prof 
sur ma feuille Form3,j'ai un combobox (combo3) qui affiche tous les noms des eleves et je veux qu'apr&#233;s choix d'un nom d'eleve que ses informations lui concernant(nom,prenom,age et classe ) s'affichent dans des zones de textes
Donc voici le code du bouton combo3

Private Sub Combo3_Click()
    sql = "select * from Eleve,Classe where Eleve.nom=" & Combo3.Text
    Set rs = db.OpenRecordset(sql, dbOpenDynaset)
 
    rs.MoveFirst
    While Not rs.EOF
       Text11 = rs.Fields("nom")
       Text21 = rs.Fields("prenom")
       Text31 = rs.Fields("age")
       Text41 = rs.Fields("LibelleClasse")
     rs.MoveNext
    Wend
    rs.Close
End Sub

pa_omar · Answer

Ben la jointure c'est juste avec la classe ou y'a l'eleve et la table eleve ou classe represente Libelleclasse alor que je lai nomm&#233; classe dans la table Classe mais je pense pas que ce soi ca le probleme
si tu ve je peux  tenvoyer l'appli  par mail pour que tu le voi de plus pr&#233;s

Un etudiant

pa_omar · Answer

Ben au fait c 'etait juste le probleme de syntaxe avec ma clause where  merci quand mm
Un etudiant

pa_omar · Answer

Maintenant si je veux ajouter le prenom dans la clause where hisoitre de faire :
sql = "select * from Eleve,Classe where Eleve.nom= '" & Combo3.Text & "'" and Eleve.prenom=" je ve mettre quoi l&#224; ?"

Un etudiant

yan35 · Answer

Salut 290809  pa_omar,

Excuse mon silence, mais je d&#233;couvre tes messages, aujourd'hui j'&#233;tais sur la route et hier soir, j'ai d&#233;croch&#233; de bonne heure !

Alors tu veux compl&#233;ter ta clause where par 1 prenom,  =>pas de probl&#232;me, mais ta syntaxe est mal partie.
Rappelles-toi, les guillemets entourent ton sql et les quotes entourent les param&#232;tres texte dans du sql, donc tu dois faire une syntaxe comme suit :

sql = "select * from Eleve,Classe where Eleve.nom= '" & Combo3.Text & "' and Eleve.prenom = '"
 & Combo4.text  & "'"

J'ai mis Combo4 pour le param&#232;tre prenom mais &#231;a peut &#234;tre n'importe quoi, une inputBox, par exemple, ou une zone de texte ou 1 variable ....
L'essentiel est de comprendre comment syntaxer ta sql.

J'esp&#232;re m'&#234;tre bien expliquer.
Cordialement

pa_omar · Answer

Ben merci pour ta reponse , j'ai bien compri la syntaxe l&#224; mais c'est pa toujour ce que je veu faire
C'est que c'est dans ma combo3.text qui affichera le nom je ve rajouter le prenom sans me servir dun combobox4 ou dune zone de texte vu que par exple deux eleve peuven avoir le mm nom c'est pour ca que je veu  afficher le nom et le prenom dan le Combo3 .J'ai reussi &#224; faire ca mais c la recuperation des mes info qui me pose probleme 

Merci
Un etudiant

yan35 · Answer

Bonjour,

Dans ce cas, il faut que tu alimentes ta combo avec Nom + prenom si tu veux ensuite faire ta clause where comme d&#233;finie pr&#233;c&#233;demment.
Je ne sais pas quelle est ton RecordSet d'extraction pour alimenter ta combo, mais il faudrait que tu fasses un truc du style :
 "select Nom & ' ' & Prenom As [Nom_Pr&#233;nom], * from Eleve ...."
le ' ' g&#233;n&#232;re un espace entre nom et pr&#233;nom
ensuite dans ta clause Where tu compareras &#224; [Nom_Pr&#233;nom] :
sql = "select * from Eleve,Classe where Eleve.[Nom_Pr&#233;nom]= '" & Combo3.Text &  "'"

Cordialement

pa_omar · Answer

BEn ca marche mais pour le combo3 quand je clique ca me marque trop peu de parametre 1 attendu 
l&#224; je te mets le code de la procedure form_load et celui du combo3

Private Sub Form_Load()
    Set db = OpenDatabase(App.Path & "\mabase.mdb")
        sql = "select Nom & ' ' & Prenom As nom_prenom from Eleve"

    Set rs = db.OpenRecordset(sql, dbOpenSnapshot)
    Form3.Combo3.Clear
    While Not rs.EOF
        Form3.Combo3.AddItem rs.Fields("nom_prenom")
    rs.MoveNext
    Wend
   rs.Close
   
    Form3.Show
     Me.Hide
    
End Sub
______________________________________________________________

Private Sub Combo3_Click()
Combo3.Visible = False
Text11.Visible = True



 
    'Requete     Num&#233;rotation : ListIndex du Combo1 (0) et Base (1)
    sql = "select * from Eleve,Classe where nom_prenom= '" & Combo3.Text & "'"


   
    Set rs = db.OpenRecordset(sql, dbOpenDynaset)
  
    While Not rs.EOF
  Text11 = rs.Fields("nom")
  Text21 = rs.Fields("prenom")
  Text31 = rs.Fields("age")
  Text41 = rs.Fields("LibelleClasse")
    rs.MoveNext
    Wend
    rs.Close


End Sub

Un etudiant

yan35 · Answer

Bonjour,

C'est normal que &#231;a co&#239;nce si tu ne te sers pas de ton rs d'extraction dans lequel tu as le champ calcul&#233; nom_prenom pour faire la comparaison. Tel que tu &#233;cris ta comparaison, tu utilises 1 nouveau Rs sans le champ calcul&#233; nom_prenom puisque le cr&#233;e dans tes op&#233;rations : 
  sql = "select * from Eleve,Classe where nom_prenom= '" & Combo3.Text & "'"   
  Set rs = db.OpenRecordset(sql, dbOpenDynaset)
Donc ton nouveau Rs contient tous les champs de ta table Eleve (*) mais pas nom_prenom, il te faut faire :
  sql = "select Nom & ' ' & Prenom As nom_prenom, * from Eleve,Classe where nom_prenom= '" & Combo3.Text & "'"   
  Set rs = db.OpenRecordset(sql, dbOpenDynaset)
Cordialement

pa_omar · Answer

ben franchement merci mais ca a pa chang&#233; 
revoila le code de ma combo3

Private Sub Combo3_Click()
Combo3.Visible = False
Text11.Visible = True
   sql = "select nom & ' ' & prenom As nom_prenom,  * from Eleve,Classe where nom_prenom= '" & Combo3.Text & "'"
    Set rs = db.OpenRecordset(sql, dbOpenDynaset)
    While Not rs.EOF
  Text11 = rs.Fields("nom")
  Text21 = rs.Fields("prenom")
  Text31 = rs.Fields("age")
  Text41 = rs.Fields("LibelleClasse")
    rs.MoveNext
    Wend
    rs.CloseEnd Sub

Un etudiant

yan35 · Answer

ReBonjour,

Bizarre ! Mais je me rappelle effectivement maintenant qu'avec Access ou VB6 on ne peut pas utiliser de champ calcul&#233; dans 1 clause Where, alors dans ce cas, il faudra que tu fasses :

Private Sub Combo3_Click()
Combo3.Visible = False
Text11.Visible = True   sql "Select * from Eleve,Classe where (nom & ' ' & prenom)   '" & Combo3.Text & "'"
    Set rs = db.OpenRecordset(sql, dbOpenDynaset)
    While Not rs.EOF
  Text11 = rs.Fields("nom")
  Text21 = rs.Fields("prenom")
  Text31 = rs.Fields("age")
  Text41 = rs.Fields("LibelleClasse")
    rs.MoveNext
    Wend
    rs.Close
End Sub

Du coup, on ne reprend pas le champ calcul&#233; [nom_prenom] dans les champs du Rs, puisque tu ne t'en sers + ensuite.

Autre chose,
Je ne pense pas que tu ais plusieurs &#233;l&#232;ves avec le m&#234;me nom et pr&#233;nom !
Donc dans ce cas, ta boucle While ne sert &#224; rien, sauf qu'elle alourdit ton programme.
Tu peux directement faire tes mises &#224; jour de tes textbox sans la boucle, puisqu'en principe, si la requ&#234;te Sql fonctionne, ton Rs n'aura qu'1 enregistrement, tu peux donc t'&#233;liminer 3 lignes de code.

Cordialement

pa_omar · Answer

Ben j'avais pens&#233; &#224; faire comme ta fai l&#224; mais je bloquai quelque part 
mais l&#224; j'ai un bouton modifier et je veux q'une fois le choix de l'eleve fai et que tout ses coordonn&#233;es saffichent,que je puisse modifier par exple le nom   ou l'age et quand je clique sur le bouton modifier ques ces renseignements soient mis en jour en les enregistrant 
Merci

Un etudiant

yan35 · Answer

Re,

T'as  solutions pour mettre &#224; jour tes donn&#233;es, soit :
- tu passes par db.execute mais attention la syntaxe SQL car tu as des champs textes,
- tu fais un Edit et Update de ton Rs, comme suit

Rs.Edit
Rs!nom = text11.txt     '   ! &#231;a revient au m&#234;me que  .Fields("nom")
Rs!prenom =text21.txt
 .....
Rs.Update

bien s&#251;r, il te faut recr&#233;er ton Rs s'il est dans une proc diff&#233;rente, je pense que tu aurais d'ailleurs int&#233;r&#234;t &#224; cr&#233;er ta variable Rs dans la section d&#233;clarations de ta form pour qu'il soit permanent dans tes proc&#233;dures, sinon tu peux toujours le recr&#233;er &#224; chaque proc&#233;dure.

Attention aux valeurs nulles ! Ca cr&#233;e une erreur dans Update, s'il en trouve ! 
Donc tu as int&#233;r&#234;t &#224; ajouter des tests avant la mise &#224; jour (update) ...

Par Execute, il te faudrait faire attention en + de la syntaxe pour des champs texte au contenu du texte, qu'il ne comporte pas d'apostrophes ou guillemets que tu devrais retraiter.

Cordialement

pa_omar · Answer

Merci beaucoup vraiment 
Je te suis reconnaissant

Un etudiant

Vb6

16 réponses

Discussions similaires