Discussion :

[Chris094]

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 :

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

VarStrg = Combo.value ‘un truc dans cet esprit

Ensuite j’ouvre le rst de la maniere suivante :

Code :

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

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).

[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+

[Chris094]

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?

[ouskel'n'or]

C'est juste à cause de ça

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...

A+

[Xo]

Dans un module, ajoute la fonction suivante :

Code :

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

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 :

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

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

[Chris094]

Dans un module, ajoute la fonction suivante :

Code :

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

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 :

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

"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.

[Xo]

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 :

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

SELECT id FROM Personne WHERE nom = 'De l''Air'

[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 :

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

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

tape plutot

Code :

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

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.

[Tofalu]

Code :

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

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"

[pc75]

Bonjour,

Allez, je m'y mets aussi :

Code :

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

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

[Xo]

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

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.

[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.

[Actarus69]

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

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.....

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.