Discussion :

[Daranc]

Bonjour
j'ai une requête (faite sous MS-Querry) elle fonctionne

origine

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
 .CommandText = Array( _
        "SELECT ARCH_TEMPS.CODE_EQUI as equipe, ARCH_TEMPS.CODE_ARTI as Article,ARCH_TEMPS.QUAN_PROD as 'Qte_Prod'  ," _
        , _
        "ARCH_TEMPS.DURE_PROD_BRUT as Tps_prod,  " _
        , _
        "ARTICLE.DESI_ARTI" & Chr(13) & "" & Chr(10) & "FROM OPTIMA.dbo.ARCH_TEMPS ARCH_TEMPS, O" _
        , _
        "PTIMA.dbo.ARTICLE ARTICLE" & Chr(13) & "" & Chr(10) & _
        "WHERE ARCH_TEMPS.CODE_ARTI = ARTICLE.CODE_ARTI AND ((ARCH_TEMPS.QUAN_PROD>0) " _
        , _
        "AND (ARCH_TEMPS.DATE_CALE>={ts '2007-02-01 00:00:00'} And ARCH_TEMPS.DATE_CALE<={ts '2007-12-31 " _
        , _
        "00:00:00'}) AND (ARCH_TEMPS.CODE_EQUI='WE1') OR (ARCH_TEMPS.QUAN_PROD>0) AND " _
        , _
        "(ARCH_TEMPS.CODE_EQUI='WE2'))" & Chr(13) & "" & Chr(10) & "ORDER BY ARCH_TEMPS.CODE_ARTI" _
        )
        .Refresh BackgroundQuery:=False

j'essaie de la modifier
avec ceci (en bleu)

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
 .CommandText = Array( _
        "SELECT ARCH_TEMPS.CODE_EQUI as equipe, ARCH_TEMPS.CODE_ARTI as Article,ARCH_TEMPS.QUAN_PROD as 'Qte_Prod'  ," _
        , _
        "sum(ARCH_TEMPS.DURE_PROD_BRUT) as Tps_prod,  " _
        , _
        "ARTICLE.DESI_ARTI" & Chr(13) & "" & Chr(10) & "FROM OPTIMA.dbo.ARCH_TEMPS ARCH_TEMPS, O" _
        , _
        "PTIMA.dbo.ARTICLE ARTICLE" & Chr(13) & "" & Chr(10) & _
        "WHERE ARCH_TEMPS.CODE_ARTI = ARTICLE.CODE_ARTI AND ((ARCH_TEMPS.QUAN_PROD>0) " _
        , _
        "AND (ARCH_TEMPS.DATE_CALE>={ts '2007-02-01 00:00:00'} And ARCH_TEMPS.DATE_CALE<={ts '2007-12-31 " _
        , _
        "00:00:00'}) AND (ARCH_TEMPS.CODE_EQUI='WE1') OR (ARCH_TEMPS.QUAN_PROD>0) AND " _
        , _
        "(ARCH_TEMPS.CODE_EQUI='WE2'))" & Chr(13) & "" & Chr(10) & "ORDER BY ARCH_TEMPS.CODE_ARTI" _
        )
        .Refresh BackgroundQuery:=False

et j'obtiens un message d'erreur langage SQL qui pointe sur le code VBA

Code :

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

.Refresh BackgroundQuery:=False

ou este ce que je fait la boulette?
Merci
Daranc

[al1_24]

Extrait de Règles du forum Langage SQL à lire par tous

4) Indentez vos requêtes en séparant les clause SELECT / FROM / WHERE cela les rend plus lisibles pour ceux qui tentent de vous aider.
Exemple :
Code :

SELECT MaColonne
FROM MaTable MT
JOIN MonAutreTable MAT
ON MT.COl1 = LMAT.Col2
WHERE Col3 = 46
AND (Col4 BETWEEN 1 AND 5) OR COL4 = 32

Plus d'excuses pour les requêtes mal formattées ! Voici un outil pour le faire à votre place : Online SQL Formatter

[Daranc]

le problème est que cette requête est interprété par VBA .La requête en SQL ne pose aucun problème le sum(ARCH_TEMP.QTE_PROD) AS Qte_Art est comprise lors du test sur l'appli de base
mais VBA reprends la requête sous des lignes plus ou moins "bâtardes" et la modification du ARCH_TEMP.QTE_PROD AS Qte_Arten Qte_Artsum(ARCH_TEMP.QTE_PROD) AS Qte_Art fait capoter l'interprétation VBA .
La non indentation du code est surtout du à un mélange entre SQL et VBA .Ce dernier travaille le SQL en lignes kilométrique ,et, une césure dans le SQL est diversement comprise par VBA (voir l'origine de la question ) si je change la disposition de SQL dans VBA celui ci ne le comprends plus .Une réponse à ce problème serait donc inutile dans ce cas de figure
le code dans l'appli qui m'a créé la requête

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
SELECT ARCH_TEMPS.CODE_EQUI AS 'Equipe',
   ARCH_TEMPS.CODE_ARTI as 'Référence',
   ARTICLE.DESI_ARTI as 'Désignation',
   SUM(ARCH_TEMPS.QUAN_PROD) AS 'Quantité',
sum (ARCH_TEMPS.DURE_PROD_BRUT)/3600  AS 'Temps'
FROM ARCH_TEMPS, ARTICLE
WHERE ARCH_TEMPS.CODE_ARTI=ARTICLE.CODE_ARTI
   AND (ARCH_TEMPS.CODE_EQUI = 'WE1' OR ARCH_TEMPS.CODE_EQUI = 'WE2')
   AND ARCH_TEMPS.DATE_CALE > convert( datetime, '{DEBUT}', 103 )
   AND ARCH_TEMPS.DATE_CALE < convert( datetime, '{FIN}', 103 )
   AND ARCH_TEMPS.QUAN_PROD > 0
GROUP BY ARCH_TEMPS.CODE_EQUI, ARCH_TEMPS.CODE_ARTI, ARTICLE.DESI_ARTI
ORDER BY ARCH_TEMPS.CODE_ARTI ASC

l'autre code étant ce qui ressort de VBA : actuellement je modifie la requête via MS Querry tout en enregistrant la macro VBA
Daranc

[Daranc]

Code :

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

1
2
3
4
5
6
7
8
.CommandText = Array( _
        "SELECT ARCH_TEMPS.CODE_EQUI, ARCH_TEMPS.CODE_ARTI, Sum(ARCH_TEMPS.QUAN_PROD) AS 'QTE', Sum(ARCH_TEMPS.DURE_PROD_BRUT) AS 'Prod', ARTICLE.DESI_ARTI" & Chr(13) & "" & Chr(10) & "FROM OPTIMA.dbo.ARCH_TEMPS ARCH_TEMPS, OPTIMA.dbo.AR" _
        , _
        "TICLE ARTICLE" & Chr(13) & "" & Chr(10) & "WHERE ARCH_TEMPS.CODE_ARTI = ARTICLE.CODE_ARTI AND ((ARCH_TEMPS.QUAN_PROD>0) AND (ARCH_TEMPS.DATE_CALE>=" & debut$ & " And ARCH_TEMPS.DATE_CALE<=" & fin$ & ") " _
        , _
        "AND (ARCH_TEMPS.CODE_EQUI='WE1') OR (ARCH_TEMPS.QUAN_PROD>0) AND (ARCH_TEMPS.CODE_EQUI='WE2'))" & Chr(13) & "" & Chr(10) & "GROUP BY ARCH_TEMPS.CODE_EQUI, ARCH_TEMPS.CODE_ARTI, ARTICLE.DESI_ARTI" _
        )
        .Refresh BackgroundQuery:=False

ceci marche la modif étant effectue dans le SQL depuis MS Querry et non dans VBA
Daranc