langage SQL dans Excel

Version imprimable

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

origine

Code:

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:

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:

.Refresh BackgroundQuery:=False

ou este ce que je fait la boulette?
Merci
Daranc

04/03/2008, 17h40
al1_24

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

Citation:

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

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:

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

Code:

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 8O
Daranc