trop peu de paramètres. 1 attendu

Question

salut les codeurs! j'ai une &#233;pine dans les pieds. j'ai besoin de vous pour l'enlever. voil&#224; mon probl&#232;me: j'aimerais g&#233;rer les prises en charge d&#233;livr&#233;es au sein d'une entreprise pour assurer les agents. Une prise en charge est imput&#233;e &#224; un employ&#233; donn&#233;. La prise en charge est d&#233;livr&#233;e &#224; un membre de la famille de l'employ&#233; (conjoint, enfants). Le membre peut &#234;tre l'employ&#233; m&#234;me. 

j'ai donc un formulaire principal frmPrisEnCharge qui g&#232;re les prises en charge. Ce formulaire contient entre autre une zone de texte Text1 qui permet de saisir le matricule de l'employ&#233;. Le lost_focus de Text1 devrait me permettre d'avoir la liste des membres de sa famille. j'ai voulu proposer cette liste dans un 2&#232;me formulaire frmPatient qui contient un DBGrid et un Data. Dans module j'ai d&#233;clar&#233; une variable globale pour garder le matricule de l'employ&#233;. Dans un 1er je ne veux afficher que l'employ&#233; dans le dbgrid. Pour ce faire dans le lost_focus de Text1 j'ai mis:
mMatri = Text1.Text
frmPatient.Show

Dans form_load de frmPatient (formulaire appel&#233; par lost_focus de frmPrisEnCharge.Text1)j'ai mis:
'devrait affich&#233; l'employ&#233; dont le matricule a &#233;t&#233; saisi dans le 1er formulaireData1.RecordSource "SELECT EM_NUMAT, EM_NOM FROM EMPLOYE WHERE EM_NUMAT mMatri;"

A l'&#233;x&#233;cution j'ai le message d'erreur 'trop peu de param&#232;tres. 1 attendu'

Je signale que quand au lieu de mMatri dans la commande select je met un num&#233;ro connu (par exemple '0040'), plus de message et l'employ&#233; est bien s&#233;lectionn&#233;

J'ai d&#233;plac&#233; la commande select dans lost_focus de Text1 en faisant:
mMatri = Text1.TextfrmPatient.Data1.RecordSource "SELECT EM_NUMAT, EM_NOM FROM EMPLOYE WHERE EM_NUMAT mMatri;"
frmPatient.Show
dans ce cas je n'ai plus le message d'erreur mais rien ne s'affiche dans le dbgrid. j'utilise VB5

au secours!!!

MecLome

cs_casy · Answer

Je connais rien en requette mais je pense qu'il faudrait essayer quelque chose comme &#231;a :

Data1.RecordSource "SELECT EM_NUMAT, EM_NOM FROM EMPLOYE WHERE EM_NUMAT" &  mMatri & ";"


car autrement il prend le texte mMatri au lieu d'aller chercher le contenu de la variable mMatri.
essaye, je garantie pas le r&#233;sultat.




<hr size="2" width="100%">Si le cerveau &#233;tait assez simple pour que nous puissions le comprendre,

nous serions assez b&#234;te pour ne pas le comprendre malgr&#233; tout.

meclome · Answer

Merci &#224; toi casy! je viens d'essayer je n'ai plus le message d'erreur mais rien n'est s&#233;lectionn&#233;. le dbgrid est vide!

MecLome

cs_CanisLupus · Answer

Salut,

Si EM_NUMAT est du texte encadre avec des quotes (apostrophes) :
Data1.RecordSource "SELECT EM_NUMAT, EM_NOM FROM EMPLOYE WHERE EM_NUMAT'" &  mMatri & "';"

Loup Gris

meclome · Answer

Slt Loup Gris! 
Je viens d'essayer ta recette. &#231;a marche comme sur des roulettes. Ouf!!! que j'ai eu chaud. Heureusement qu'il y a ce forum et qu'il y a des codeurs professionnels pour nous assister. Mais j'ai une question si mMatri &#233;tait un num&#233;rique dans ce cas comment &#233;crire la commande select?
Une fois encore Merci &#224; toi et &#224; tous les membres du forum. 

MecLome

crenaud76 · Answer

Si valeur num&#233;rique, ne pas mettr eles simple quote autour de la valeur : La solution de Casy  est alors bonne ...

Christophe R

Trop peu de paramètres. 1 attendu

5 réponses

Discussions similaires