RecordSet avec donnée variable

Version imprimable

30/08/2005, 10h42
Chris094

RecordSet avec donnée variable

J’ai plusieurs tables liées entre elles. Je souhaite extraire de ces tables l’ensembles des enregistrement qui on une certaine valeur pour le champ Nom.
Par exemple tout les enreg où Nom = « XXX »
Jusque là pas de problème.
Là où sa se complique c’est que je souhaite le faire dans un recordset et qu’en plus la valeur recherché pour le champs nom est variable. Ca peut être n’importe quel nom de ma base.
Le nom recherché provient du comboBox d’un formulaire.
Voici comment j’ai résonné :
Je mets le nom existant dans le combox box dans une variable :

Code:

VarStrg = Combo.value ‘un truc dans cet esprit

Ensuite j’ouvre le rst de la maniere suivante :

Code:

Rst.open "select from etc where ChpNom = " & VarStrg & "le reste de la requête SQL"

Ceci ne marche pas. J’ai l’impression que la valeur de VarStrg est de la forme "leNom" or les doubles cotes dans la requête SQL ne sont pas acceptées par VB.
En gros la question est comment créer un recordset qui filtre une ou plusieurs tables liées sur une valeur variable (je ne sais pas si on parle dans ce cas de requête SQL dynamique).
30/08/2005, 11h32
ouskel'n'or

As-tu essaiyé de mettre ["select from etc where ChpNom = " & VarStrg & "le reste de la requête SQL"] dans une variable ?

(Juste parce que tu attends depuis plus d'une heure...)

A+
30/08/2005, 12h19
Chris094

Citation:

Envoyé par ouskel'n'or

As-tu essaiyé de mettre ["select from etc where ChpNom = " & VarStrg & "le reste de la requête SQL"] dans une variable ?

(Juste parce que tu attends depuis plus d'une heure...)

A+

Non, mais je ne suis pas bien sûr de voir en koi ca changerai qque chose.
Tu peux expliquer?
30/08/2005, 12h24
ouskel'n'or

C'est juste à cause de ça

Citation:

J’ai l’impression que la valeur de VarStrg est de la forme "leNom" or les doubles cotes dans la requête SQL ne sont pas acceptées par VB

Si tu mets ta ligne dans une variable, tu seras sûr de la syntaxe...

C'était juste une idée comme ça... :cry:

A+

Dans un module, ajoute la fonction suivante :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 Public Function fzA(ByVal pvValeur As Variant) As String 'fzA = Format Zone Alpha Dim lniPos As Integer lniPos = 1 Do Until InStr(lniPos, pvValeur, "'") = 0 lniPos = InStr(lniPos, pvValeur, "'") pvValeur = Left(pvValeur, lniPos) & "'" & Mid(pvValeur, lniPos + 1) lniPos = lniPos + 2 Loop fzA = "'" & pvValeur & "'" End Function
Cette fonction fait les choses suivantes :
- dédoublement des quotes incluses dans la chaîne,
- encadrement de cette chaîne par des quotes.

Puis écris ta requête :

Code:

"SELECT * FROM etc where ChpNom = " & fza(VarStrg) & " WHERE ..."

Citation:
Envoyé par Xo
Dans un module, ajoute la fonction suivante :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 Public Function fzA(ByVal pvValeur As Variant) As String 'fzA = Format Zone Alpha Dim lniPos As Integer lniPos = 1 Do Until InStr(lniPos, pvValeur, "'") = 0 lniPos = InStr(lniPos, pvValeur, "'") pvValeur = Left(pvValeur, lniPos) & "'" & Mid(pvValeur, lniPos + 1) lniPos = lniPos + 2 Loop fzA = "'" & pvValeur & "'" End Function
Cette fonction fait les choses suivantes :
- dédoublement des quotes incluses dans la chaîne,
- encadrement de cette chaîne par des quotes.

Puis écris ta requête :

Code:

"SELECT * FROM etc where ChpNom = " & fza(VarStrg) & " WHERE ..."
Qd tu dis "dedoublement" des quotes, tu veux dire retirer les quotes?
Dans ce cas c'est effectivement ce que je recherche à faire.
Je teste et je vous tiens au courant.

30/08/2005, 16h11
Xo

Citation:

Envoyé par Chris094

Qd tu dis "dedoublement" des quotes, tu veux dire retirer les quotes?

Non, dédoublement = multiplication par 2 ;)

Si tu veux visualiser les quotes saisies, c'est ainsi que tu dois procéder. Il me paraît difficile d'expliquer à l'utilisateur qu'il ne pourra pas saisir/visualiser de quotes (ie apostrophe) dans un nom de famille ...

Par exemple, si tu recherches une personne s'appelant De l'Air, ta requête s'écrira :

Code:

SELECT id FROM Personne WHERE nom = 'De l''Air'
30/08/2005, 19h08
sovo
je ne sais pas si j'ai bien compris ta question mais arrete moi si je me trompe.

Je croit que tu as ecrit ta requette et quelle ne s'execute pas. Si c'est le cas alors c'est tout a fait normal car ta requette a ete mal ecrite. Voila une requette qui je croit devrais marche.

a lieu de :
Code:

1 2 Rst.open "select from etc where ChpNom = " & VarStrg & "le reste de la requête SQL"
tape plutot
Code:

1 2 Rst.open "select from etc where ChpNom = ' " & VarStrg & " ' le reste de la requête SQL"
on ne peut pas doubler les doubles cotes donc ce qu'on fait c'est que on commence par les simples cotes et les doubles cotes apres.

bonne chance pour la suite.
30/08/2005, 21h05
Tofalu

Code:

Rst.open "select from etc where ChpNom = " & Chr(34) & Replace( VarStrg,chr(34),chr(34) & Chr(34)) & Chr(34) & "le reste de la requête SQL"

Bonjour,

Allez, je m'y mets aussi :

Code:

1
2
3
4
5
6
7
8
 
if InStr(VarString, "'") > 0 then
   txtSql = "select ... from MaTable where ChNom = '" & Replace(VarString, "'", "''") & "'"
end if
 
if InStr(VarString, """) > 0 then
   txtSql = "select ... from MaTable where ChNom = '" & Replace(VarString, "'", """") & "'"
end if

31/08/2005, 08h43
Xo

Oui, ça commence à faire pas mal de réponses :roll:

pc75, Tofalu et sovo, pourquoi dédoublez-vous les doubles quotes ? C'est du à un SGBD particulier ? Access ? Sous Oracle, je ne m'occupe que des quotes simples. C'est d'ailleurs du SQL, ce n'est pas lié à un SGBD particulier.
31/08/2005, 11h02
sovo

En ce qui me concerne c'est de cette facon que j'ecris mes requettes et jusqu'aujourd'hui elle marche impect, lorsque je ne l'ecrit pas comme cela elles ne marche pas.

PS: j'utilise ACCES et SQL serveur 2000.
31/08/2005, 11h03
Actarus69

Citation:

Envoyé par Xo

Oui, ça commence à faire pas mal de réponses :roll:

pc75, Tofalu et sovo, pourquoi dédoublez-vous les doubles quotes ? C'est du à un SGBD particulier ? Access ? Sous Oracle, je ne m'occupe que des quotes simples. C'est d'ailleurs du SQL, ce n'est pas lié à un SGBD particulier.

SQL serveur , oblige le doublement des quotes..sinon ça plante, car c'est le délimiteur de chaine de caractère..... :wink:

donc ok pour les dernières reuqêtes données...
Mais pour commencer , je conseillerais à chris094 de faire un MsgBox de sa requête..voir si la syntaxe est correcte , et vérifier que son VarStrg contient une valeur correcte. :wink: