Discussion :

[aquatik]

Bonjour tout le monde !!
Alors j'ai un problème concernant un petit programme que je réalise je vous explique :

J'ai créé un module qui avec une de ces procédures qui est :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Sub nomparc(ByVal lab As Label)
x = lab.Text
End Sub

x recoit ici la valeur d'un champ qui se trouve dans mon form.

Ensuite je fais cela :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
'appel de la procédure
nomparc(nom)
'attribution de la variable x a une autre
test = x
'je test avec un msg box
MessageBox.Show(test)

Quand je fais ma requete avec la condition : ... WHERE nom='" + x + "'"
Ca ne marche pas....

Cependant si je fais ca :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
'appel de la procédure
nomparc(nom)
test = "la variable que je veux"

et que je fais exactement la meme requete ca marche.

En gros, des deux maniere jobtient la meme variable mé pr la premiere maniere la requete ne marche pas, et pour la seconde oui....

Jai essayé de convertir la variable en string avec CStr mais ca ne marche toujours pas....

La solution est surment très simple mais la je coince.


Ps: dans la premiere méthode je ne suis pas obligé dapliquer x a la variable test, mais meme en mettant directement x dans ma requete ca ne marche pas...


Merci pour vos réponse et pour votre indulgence concernant une débutante

[bidou]

Qu'entends tu par "ça ne marche pas" ?

[Kelpan]

Il manque pas mal d'élements pour comprendre ton problème.

Ta variable x est-elle déclarée en public dans ton module ?

Sinon comme ça, cela peut dépendre de beaucoup de choses....

As-tu vérifié que ta chaine ne contienne pas d'apostrophe (')
Tu peux le faire dans ta procédure qui récupère le text de ton label (là au moins, cette procédure aurait une utilité ...)

Code vb.net :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
 
Sub nomparc(ByVal lab As Label)
    x = lab.Text
    ' On double les apostrophes '
    x = x.Replace("'","''")
End Sub