Discussion :

[neiluj26]

Bonjour le forum,

Je commence à avoir beaucoup de requêtes dans mon code, et j'ai voulu m'inspirer du tutoriel de Christophe Warin pour les stocker dans une table (le tutoriel est ici: http://warin.developpez.com/access/requeteparametre/#L8 )

J'ai donc créé un table "tbl_RequetesSQL" avec deux champs: NomRequete (au format texte) et StringSQL (au format Mémo) dans lequel j'ai copié les codes SQL des requêtes qui fonctionnent bien quand je les stocke "en dur" dans mon code VBA.

Ensuite, je vais chercher le code SQL de ma requête avec un DLookup

Code :

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

strSQL = DLookup("[StringSQL]", "[tbl_RequetesSQL]", "[NomRequete]='qry_tblExemple'")

Si je fais un Debug.Print, je retrouve bien le bon StringSQL. Par contre, si j'ouvre un recordset ADO en faisant:

Code :

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

Rst.Open strSQL, , adOpenDynamic

j'ai une erreur qui me dit que ma requête SQL n'est pas valide ("blablabla" is not a valid token).

Est-ce que c'est déjà arrivé à quelqu'un? Ou à défaut, est-ce que vous auriez une idée de la raison?

[Jean-Philippe André]

salut,

peut-on voir le contenu SQL de la requete en question stp ?

[neiluj26]

Salut,

Oui, voici un exemple. Mais ça ne fonctionne avec aucune des requêtes que j'ai stocké.
Je me suis demandé si ce n'était pas à cause de mes retours à la ligne?

Code SQL :

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

1
2
3
4
5
"SELECT T_PARTDESC.PDPNUM, T_PARTDESC.PDLANG, STRIP(T_PARTDESC.PDPNUM) CONCAT T_PARTDESC.PDLANG, T_PARTDESC.PDPDES, " _
    & " T_PARTMASTER.PAPDES, T_PARTMASTER.PASCSU, T_PARTMASTER.PAACTF, T_PARTMASTER.PAPCLS " _
    & "FROM TAD.ECDSCP AS T_PARTDESC INNER JOIN TAD.ECARTP AS T_PARTMASTER ON T_PARTDESC.PDPNUM = T_PARTMASTER.PAPNUM " _
    & "WHERE T_PARTDESC.PDCONO ='EC' AND T_PARTMASTER.PASGRP = 'AB23' AND T_PARTDESC.PDPDES <>'' " _
    & "ORDER BY T_PARTDESC.PDPNUM, T_PARTDESC.PDLANG"

[Jean-Philippe André]

Je ne connaissais pas

Code SQL :

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

STRIP(T_PARTDESC.PDPNUM) CONCAT T_PARTDESC.PDLANG

en quoi cela consiste-til ?

la concatenation sous Access se fait plus souvent avec le caractere &

[neiluj26]

Cela me sert juste à concaténer deux codes. Je veux bien utiliser le & pour essayer, mais je n'ai pas d'erreur quand j'exécute cette requête comme ça.

Les autres requêtes de ma table n'ont pas cette fonction de concaténation, cela dit.

[pgz]

Bonsoir.

Si ce que tu as montré correspond au contenu de strSQL, ça ne peut pas marcher. Il ne doit plus y avoir les "&", "_", """, ... qui sont des caractères d'assemblage de l'éditeur VB.

Si tu écris sous VBE

Code :

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

1
2
strSQL = "SELECT T_PARTDESC.PDPNUM, T_PARTDESC.PDLANG, STRIP(T_PARTDESC.PDPNUM) CONCAT T_PARTDESC.PDLANG, T_PARTDESC.PDPDES, " _
    & ...

Dans strSQL tu auras

Code :

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

SELECT T_, ...

et, à mon avis, c'est ce texte que tu dois enregistrer.

Cordialement,

PGZ

[neiluj26]

Bonjour pgz,

J'ai corrigé mon texte dont voici le résultat:

Code sql :

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

SELECT T_PARTDESC.PDPNUM, T_PARTDESC.PDLANG, STRIP(T_PARTDESC.PDPNUM) CONCAT T_PARTDESC.PDLANG, T_PARTDESC.PDPDES, T_PARTMASTER.PAPDES, T_PARTMASTER.PASCSU, T_PARTMASTER.PAACTF, T_PARTMASTER.PAPCLS FROM TAD.ECDSCP AS T_PARTDESC INNER JOIN TAD.ECARTP AS T_PARTMASTER ON T_PARTDESC.PDPNUM = T_PARTMASTER.PAPNUM WHERE T_PARTDESC.PDCONO ='EC' AND T_PARTMASTER.PASGRP = 'AB23' AND T_PARTDESC.PDPDES <>'' ORDER BY T_PARTDESC.PDPNUM, T_PARTDESC.PDLANG

Malheureusement, j'ai toujours une erreur -2147467259

SQL0104:Token SELECT T_PARTDESC.PDPNUM, T_P was not valid. Valid tokens: ( END GET SET CALL DROP FREE HOLD...

[neiluj26]

Argh, un guillemet se baladait... désolé! C'était effectivement le problème.