SQL dans VBA element syntaxique n'est pas correct

Version imprimable

Bonjour à tous,

J'ai une requête SQL dans une macro Excel pour récupérer mes données directement dans l'ODBC. Je doit la modifier à cause d'une sous-famille de ref qui ne ressort pas comme attendu, l'équipe IT a fait sa requête dans leur système en direct et le résultat est celui attendu, à moi maintenant d'adapter le SQL pour que ça fonctionne pareil et c'est bien là le problème..

Connexion ODBC :

Code:

chaineConnexion = "Driver={Client Access ODBC Driver (32-bit)};System=SIPRDOPT;Uid=XX;Pwd=XX+;DBQ=OPADTA"

Requête initiale OK :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
'Crétaion de la requete SQL
SQL = "Select MRNDOC, MRCONS, MRDAMV, MRCFOU, MRREFA,MRCOMV, MRTYMV, Sum(MRQTUC) AS SUMQTT " & _
  "From " & _
    "( Select MRNDOC, MRCONS, MRDAMV, MRCFOU, MRREFA, MRCOMV, MRTYMV, MRQTUC " & _
      "From X_MVREFA " & _
      "Where MRCOMV = 'S' And MRCONS <> ' ' AND MRCENT IN ('W4', 'W5') AND MRDAMV >= " & dateDebutSQL & " AND MRDAMV <= " & dateFinSQL & _
    " Union All " & _
      "Select MRNDOC, MRCONS, MRDAMV, MRCFOU, MRREFA, MRCOMV, MRTYMV, MRQTUC " & _
      "From X_MVREFA A " & _
      "Where MRCOMV = 'S' AND MRCENT IN ('W4', 'W5') AND MRDAMV >= " & dateDebutSQL & " AND MRDAMV <= " & dateFinSQL & " And MRCONS = ' ' And MRNOMV Not In " & _
           "( Select B.MRNOMV " & _
             "From X_MVREFA B " & _
             "Where B.MRCOMV = 'E' " & _
                "And B.MRREFA = A.MRREFA  " & _
                "And B.MRCENT In ('W4', 'W5')) " & _
    ") As Req " & _
 "Group By MRNDOC, MRCONS, MRDAMV, MRCFOU, MRREFA, MRCOMV, MRTYMV  " & _
 "Order By MRREFA  "

Requête IT interne :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Select MRNDOC, MRCONS, MRDAMV, MRCFOU, MRREFA, ifnull(mcrefa, '') as mcrefa, MRCOMV, MRTYMV, Sum(MRQTUC) AS SUMQTT 
From
( Select MRNDOC, MRCONS, MRDAMV, MRCFOU, MRREFA, mcrefa, MRCOMV, MRTYMV, MRQTUC 
From opadta.X_MVREFA 
left join opadta.x_mvcoli on mrnomv = mcnomv and MRANMV=MCANMV and MRRAMV=MCRAMV
Where MRCOMV = 'S' And MRCONS <> ' ' AND MRCENT IN ('W4', 'W5') AND MRDAMV >=20220901 AND MRDAMV <= 20220921
Union All 
Select MRNDOC, MRCONS, MRDAMV, MRCFOU, MRREFA, mcrefa, MRCOMV, MRTYMV, MRQTUC 
From opadta.X_MVREFA A
left join opadta.x_mvcoli on mrnomv = mcnomv and MRANMV=MCANMV and MRRAMV=MCRAMV 
Where MRCOMV = 'S' AND MRCENT IN ('W4', 'W5') AND MRDAMV >=20220901 AND MRDAMV <= 20220921 And MRCONS = ' ' And MRNOMV Not In  
( Select B.MRNOMV 
From opadta.X_MVREFA B 
Where B.MRCOMV = 'E' 
And B.MRREFA = A.MRREFA And B.MRCENT In ('W4', 'W5')) ) As Req
Group By MRNDOC, MRCONS, MRDAMV, MRCFOU, MRREFA, mcrefa, MRCOMV, MRTYMV
Order By MRDAMV, MRREFA, mcrefa

Adaptée ici avec erreur -2147217900
[IBM][System i Access ODBC Driver][DB2 for i5/OS]SQL0104 - Elément syntaxique MCNOMV n'est pas correct. Eléments possibles : JSON.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
'Création de la requete SQL
SQL = "Select MRNDOC, MRCONS, MRDAMV, MRCFOU, MRREFA, MCREFA, MRCOMV, MRTYMV, Sum(MRQTUC) AS SUMQTT " & _
  "From " & _
    "( Select MRNDOC, MRCONS, MRDAMV, MRCFOU, MRREFA, MCREFA, MRCOMV, MRTYMV, MRQTUC " & _
      "From X_MVREFA " & _
      "LEFT JOIN X_MVCOLI on MRNOMV is MCNOMV And MRANMV is MCANMV and MRRAMV is MCRAMV " & _
      "Where MRCOMV is 'S' And MRCONS <> ' ' AND MRCENT IN ('W4', 'W5') AND MRDAMV >= " & dateDebutSQL & " AND MRDAMV <= " & dateFinSQL & _
    " Union All " & _
      "Select MRNDOC, MRCONS, MRDAMV, MRCFOU, MRREFA, MCREFA, MRCOMV, MRTYMV, MRQTUC " & _
      "From X_MVREFA A " & _
      "LEFT JOIN X_MVCOLI on MRNOMV is MCNOMV And MRANMV is MCANMV and MRRAMV is MCRAMV " & _
      "Where MRCOMV = 'S' AND MRCENT IN ('W4', 'W5') AND MRDAMV >= " & dateDebutSQL & " AND MRDAMV <= " & dateFinSQL & " And MRCONS = ' ' And MRNOMV Not In " & _
           "( Select B.MRNOMV " & _
             "From X_MVREFA B " & _
             "Where B.MRCOMV is 'E' " & _
                "And B.MRREFA is A.MRREFA  " & _
                "And B.MRCENT In ('W4', 'W5')) " & _
    ") As Req " & _
 "Group By MRNDOC, MRCONS, MRDAMV, MRCFOU, MRREFA, MCREFA, MRCOMV, MRTYMV  " & _
 "Order By MRDAMV, MRREFA, MCREFA  "

J'ai fais des recherches sur JSON et n'ai absolument rien compris, est-ce réellement à mettre en place ? J'ai également vu cet article sur les jointures mais ca ne m'aide pas à corriger ma requête..
https://www.developpez.net/forums/d5...-dit-jointure/

Quelqu'un s'aurait-il apporté sa précieuse aide ?

Merci beaucoup beaucoup !

LRN

29/09/2022, 13h37
escartefigue
Bonjour

Dans le prédicat de jointure, le mot clef "IS" est erroné, à remplacer par "=" :
Code:

1 2 3 4 5 From X_MVREFA LEFT JOIN X_MVCOLI on MRNOMV is MCNOMV and MRANMV is MCANMV and MRRAMV is MCRAMV
à remplacer par
Code:

1 2 3 4 5 From X_MVREFA LEFT JOIN X_MVCOLI on MRNOMV = MCNOMV and MRANMV = MCANMV and MRRAMV = MCRAMV
De plus, comme il y a plusieurs tables, il est recommandé d'utiliser des alias de tables en préfixe de chaque colonne pour faciliter la compréhension et donc la maintenance.

Bonjour,

J'avais pourtant pensé solutionner ce soucis avec le is justement parce que le = était une erreur de syntaxe avant JSON.
J'ai donc modifier la première partie et remis =, voici l'erreur :

Citation:

Erreur d'exécution '-2147217900 (80040e14)':
[IBM][System i Access ODBC Driver][DB2 for i5/OS]SQL0104 - Élément syntaxique 'S' n'est pas correct. Eléments possibles : NOT NULL DISTINCT <IDENTIFIER>.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
SQL = "Select MRNDOC, MRCONS, MRDAMV, MRCFOU, MRREFA, MCREFA, MRCOMV, MRTYMV, Sum(MRQTUC) AS SUMQTT " & _
  "From " & _
    "( Select MRNDOC, MRCONS, MRDAMV, MRCFOU, MRREFA, MCREFA, MRCOMV, MRTYMV, MRQTUC " & _
      "From X_MVREFA " & _
      "LEFT JOIN X_MVCOLI " & _
      "on MRNOMV = MCNOMV " & _
      "and MRANMV = MCANMV " & _
      "and MRRAMV = MCRAMV " & _
      "Where MRCOMV is 'S' And MRCONS <> ' ' AND MRCENT IN ('W4', 'W5') AND MRDAMV >= " & dateDebutSQL & " AND MRDAMV <= " & dateFinSQL & _
    " Union All " & _
      "Select MRNDOC, MRCONS, MRDAMV, MRCFOU, MRREFA, MCREFA, MRCOMV, MRTYMV, MRQTUC " & _
      "From X_MVREFA A " & _
      "LEFT JOIN X_MVCOLI on MRNOMV is MCNOMV And MRANMV is MCANMV and MRRAMV is MCRAMV " & _
      "Where MRCOMV = 'S' AND MRCENT IN ('W4', 'W5') AND MRDAMV >= " & dateDebutSQL & " AND MRDAMV <= " & dateFinSQL & " And MRCONS = ' ' And MRNOMV Not In " & _
           "( Select B.MRNOMV " & _
             "From X_MVREFA B " & _
             "Where B.MRCOMV is 'E' " & _
                "And B.MRREFA is A.MRREFA  " & _
                "And B.MRCENT In ('W4', 'W5')) " & _
    ") As Req " & _
 "Group By MRNDOC, MRCONS, MRDAMV, MRCFOU, MRREFA, MCREFA, MRCOMV, MRTYMV  " & _
 "Order By MRDAMV, MRREFA, MCREFA  "

Pour les alias, vous parlez de renommer les colonnes comme MRREFA as REFERENCE pour nommer ma colonne explicitement ?

Exemple d'utilisation d'alias (ici T1 et T2) :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 select T1.MRNDOC , T1.MRCONS , T2.MRDAMV [...] from X_MVREFA as T1 left join X_MVCOLI as T2 on T2.MRNOMV = T1.MCNOMV and T2.MRANMV = T1.MCANMV [...] group by T1.MRNDOC , T1.MRCONS , T2.MRDAMV order by T1.MRDAMV [...]
Je suppose que la nouvelle erreur vient d'ici : Where MRCOMV is 'S' <-- "IS" à remplacer par "="

Pardon j'avais effectivement oublier un =, et voilà à nouveau l'erreur

Citation:

-2147217900
[IBM][System i Access ODBC Driver][DB2 for i5/OS]SQL0104 - Elément syntaxique MCNOMV n'est pas correct. Eléments possibles : JSON.

Modification du codage selon votre exemple, erreur JSON sur le D, je ne comprends pas pourquoi..

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
SQL = "Select MRNDOC, MRCONS, MRDAMV, MRCFOU, MRREFA, MCREFA, MRCOMV, MRTYMV, Sum(MRQTUC) AS SUMQTT " & _
  "From " & _
    "( Select a.MRNDOC, a.MRCONS, a.MRDAMV, a.MRCFOU, a.MRREFA, a.MCREFA, a.MRCOMV, a.MRTYMV, a.MRQTUC " & _
      "From X_MVREFA AS a " & _
      "LEFT JOIN X_MVCOLI AS b " & _
      "on a.MRNOMV = b.MCNOMV " & _
      "and a.MRANMV = b.MCANMV " & _
      "and a.MRRAMV = b.MCRAMV " & _
      "Where a.MRCOMV = 'S' And a.MRCONS <> ' ' AND a.MRCENT IN ('W4', 'W5') AND a.MRDAMV >= " & dateDebutSQL & " AND a.MRDAMV <= " & dateFinSQL & _
    " Union All " & _
      "Select c.MRNDOC, c.MRCONS, c.MRDAMV, c.MRCFOU, c.MRREFA, c.MCREFA, c.MRCOMV, c.MRTYMV, c.MRQTUC " & _
      "From X_MVREFA AS c " & _
      "LEFT JOIN X_MVCOLI AS d on c.MRNOMV is d.MCNOMV And c.MRANMV is d.MCANMV and c.MRRAMV is d.MCRAMV " & _
      "Where c.MRCOMV = 'S' AND c.MRCENT IN ('W4', 'W5') AND c.MRDAMV >= " & dateDebutSQL & " AND c.MRDAMV <= " & dateFinSQL & " And c.MRCONS = ' ' And c.MRNOMV Not In " & _
           "( Select e.MRNOMV " & _
             "From X_MVREFA AS e " & _
             "Where e.MRCOMV is 'E' " & _
                "And e.MRREFA is c.MRREFA  " & _
                "And e.MRCENT In ('W4', 'W5')) " & _
    ") As Req " & _
 "Group By MRNDOC, MRCONS, MRDAMV, MRCFOU, MRREFA, MCREFA, MRCOMV, MRTYMV  " & _
 "Order By MRDAMV, MRREFA, MCREFA  "

29/09/2022, 16h49
tatayo

Bonjour,
Il y a encore plusieurs IS qui "trainent" dans la requête, par exemple ligne 13, 17, 18...

Pour simplifier la recherche des erreurs ce serait bien que tu postes la requête telle qu'elle est exécutée, c'est à dire le contenu exact de la variable sql.

Tatayo.
30/09/2022, 08h11
escartefigue

La bonne démarche quand on tombe sur une erreur de syntaxe dans du code est de réparer cette erreur, mais aussi de vérifier si on ne la rencontre pas ailleurs dans le code ;)
30/09/2022, 11h30
CalatheaWF

J'ai donc bien remis les = partout, je pensais qu'il ne fallait le changer que sur la première partie autant pour moi.

C'est OK ça fonctionne ! Merci beaucoup !!