Requete parametree dans VB6

En VB6, j'ai un un DataReport basé sur une requete qui retourne les
enregistr d'apres un critere(champ Codeclient)
Si je hardcode le critère dans la requete, par ex SELECT Lunette.*
FROM Lunette
WHERE (codeclient = '00001') ca marche, la commande datareport1.show
me fait apparaitre les enregistrements dont le code client = 00001.
Mais si je parametre la requete comme suit:
SELECT Lunette.*
FROM Lunette
WHERE (codeclient = Param1) param1 étant defini dans la sub,
j'obtiens le msg d'erreur: "Le parametre Param1 n'a pas de valeur par
defaut"

Le code de la sub est:
Private Sub Btn_Print_Click()
param1 = "0001"
DataReport1.Show
End Sub

Ben wrote:
> En VB6, j'ai un un DataReport basé sur une requete qui retourne les
> enregistr d'apres un critere(champ Codeclient)
> Si je hardcode le critère dans la requete, par ex SELECT Lunette.*
> FROM Lunette
> WHERE (codeclient = '00001') ca marche, la commande datareport1.show
> me fait apparaitre les enregistrements dont le code client = 00001.
> Mais si je parametre la requete comme suit:
> SELECT Lunette.*
> FROM Lunette
> WHERE (codeclient = Param1) param1 étant defini dans la sub,
> j'obtiens le msg d'erreur: "Le parametre Param1 n'a pas de valeur par
> defaut"
>
> Le code de la sub est:
> Private Sub Btn_Print_Click()
> param1 = "0001"
> DataReport1.Show
> End Sub

héhé :O)

Param1 est une variable de la sub, pas de la requette SQL.

Il te faut faire une requette comme ceci:

"SELECT Lunette.* FROM Lunette WHERE(codeclient="+param1+")"

Et la, la requette prendra en compte Param1.
Par contre, si la valeur Param1 change aprés(ce qui semble être le cas),
elle ne changera pas dans la requette, n'oublie pas de refaire la requette
et rafraichire le Recordset de ton DataReport.

a+

Bonjour,
c'est juste pour dire a Ledev que pour la concatenation de string
en VB
> "+" est capable de bien faire mais "&" est encore meilleur

Cordialement

Patrice
"Ledev" <Bozodev@hotmail.com> wrote in message
news:e4YrJqUTDHA.1712@TK2MSFTNGP11.phx.gbl...
> Ben wrote:
> > En VB6, j'ai un un DataReport basé sur une requete qui retourne
> > les enregistr d'apres un critere(champ Codeclient)
> > Si je hardcode le critère dans la requete, par ex SELECT Lunette.*
> > FROM Lunette
> > WHERE (codeclient = '00001') ca marche, la commande
> > datareport1.show
> > me fait apparaitre les enregistrements dont le code client > > > 00001. Mais si je parametre la requete comme suit:
> > SELECT Lunette.*
> > FROM Lunette
> > WHERE (codeclient = Param1) param1 étant defini dans la sub,
> > j'obtiens le msg d'erreur: "Le parametre Param1 n'a pas de valeur
> > par defaut"
> >
> > Le code de la sub est:
> > Private Sub Btn_Print_Click()
> > param1 = "0001"
> > DataReport1.Show
> > End Sub
>
> héhé :O)
>
> Param1 est une variable de la sub, pas de la requette SQL.
>
> Il te faut faire une requette comme ceci:
>
> "SELECT Lunette.* FROM Lunette WHERE(codeclient="+param1+")"
>
> Et la, la requette prendra en compte Param1.
> Par contre, si la valeur Param1 change aprés(ce qui semble être le
> cas), elle ne changera pas dans la requette, n'oublie pas de
> refaire la requette et rafraichire le Recordset de ton DataReport.
>
> a+

Patrice Lamarche wrote:

Bonjour,
c'est juste pour dire a Ledev que pour la concatenation de string
en VB
> "+" est capable de bien faire mais "&" est encore meilleur

Ah, décidement, je m'y fairai jamais :'(

a+

Un certain Ledev écrivait ici même ce qui suit:

Patrice Lamarche wrote:

Bonjour,
c'est juste pour dire a Ledev que pour la concatenation de string
en VB
> "+" est capable de bien faire mais "&" est encore meilleur

Ah, décidement, je m'y fairai jamais :'(

a+

Faut croire :=)

Un certain Gigfy écrivait ici même ce qui suit:

> Un certain Ledev écrivait ici même ce qui suit:
>
>> Patrice Lamarche wrote:
>>> Bonjour,
>>> c'est juste pour dire a Ledev que pour la concatenation de string
>>> en VB
>>> > "+" est capable de bien faire mais "&" est encore meilleur
>>
>> Ah, décidement, je m'y fairai jamais :'(
>>
>> a+
>
> Faut croire :=)
>
>

Tu copiera cent fois

"Je fairais plu de concatenassion avéc le plus mé avéc le é comersiale"

Un certain Gigfy écrivait ici même ce qui suit:

> Un certain Ledev écrivait ici même ce qui suit:
>
>> Patrice Lamarche wrote:
>>> Bonjour,
>>> c'est juste pour dire a Ledev que pour la concatenation de string
>>> en VB
>>> > "+" est capable de bien faire mais "&" est encore meilleur
>>
>> Ah, décidement, je m'y fairai jamais :'(
>>
>> a+
>
> Faut croire :=)
>
>

Tu copiera cent fois

"Je fairais plu de concatenassion avéc le plus mé avéc le é comersiale"


:=)

--
========== > Gigfy

Le Bluesy masqué..... :=)

Je ferais plu de concaténassions avec le plus mais avec le é comersiale