Mot-clé FROM absent à l'emplacement prévu

Question

Bonjour besoin d'aide s'il vous plaît ;

dans un code VBA ,la requête sql suivante :

Sql = "select   DRI_ACC.DRI_CODE," & vbCrLf
Sql = Sql & "   DRI_ACC.DRI_LINK," & vbCrLf
Sql = Sql & "   DRI_REF.DRI_SEC_SETTLT_SYST_REF AS REF_GSP," & vbCrLf

Sql = Sql & "   DRI_ACC.DRI_CLIENT_REF AS REF_CLIENT," & vbCrLf

Sql = Sql & "   SCO.SCO_CODE AS ISIN," & vbCrLf
Sql = Sql & "   SCO.SCO_NAME AS LIB_ISIN," & vbCrLf
Sql = Sql & "   DRI_ACC.DEP_CODE ," & vbCrLf
Sql = Sql & "   DEP.DEP_NAME ," & vbCrLf
Sql = Sql & "   DRI_ACC.SAC_CODE ," & vbCrLf
Sql = Sql & "   SAC.SAC_NAME ," & vbCrLf
Sql = Sql & "   DRI_ACC.STS_CODE ," & vbCrLf

Sql = Sql & "      (SELECT ICO_CODE FROM ITL_CONTEXT WHERE IL_LNG_ID = '001' AND ICO_PSEUDO = DRI_ACC.IL_CTX_ID) AS CONTEXTE" & vbCrLf
Sql = Sql & "      TO_CHAR (PFC_54X.DATE_CREATION, 'YYYY/MM/DD HH24:MI:SS') AS DATE_CREATION_PFC_54X," & vbCrLf
Sql = Sql & "      TO_CHAR (PFC_54X.DATE_MODIFICATION,'YYYY/MM/DD HH24:MI:SS') AS DATE_MODIF_PFC_54X," & vbCrLf
Sql = Sql & "      TO_CHAR (DRI_ACC.DRI_CREATE_DATE,'YYYY/MM/DD HH24:MI:SS' ) AS DATE_CREATION_SIB," & vbCrLf
Sql = Sql & "      TO_CHAR (DRI_EV.DRI_INPUT_DATE,'YYYY/MM/DD HH24:MI:SS') AS DATE_EV_SIB," & vbCrLf
Sql = Sql & "      TO_CHAR (DRI_ACC.DRI_INPUT_DATE,'YYYY/MM/DD HH24:MI:SS' ) AS DATE_ACQ_SIB," & vbCrLf
Sql = Sql & "      TO_CHAR (PFC_548.DATE_CREATION,'YYYY/MM/DD HH24:MI:SS' ) AS DATE_CREATION_PFC_548," & vbCrLf
Sql = Sql & "      TO_CHAR (PFC_548.DATE_MODIFICATION,'YYYY/MM/DD HH24:MI:SS') AS DATE_ACQ_PFC_548, " & vbCrLf
Sql = Sql & "     (PFC_54X.DATE_MODIFICATION - PFC_54X.DATE_CREATION)* 86400 AS TRAITEMENT_PFC," & vbCrLf
Sql = Sql & "     (DRI_EV.DRI_INPUT_DATE - PFC_54X.DATE_MODIFICATION)* 86400 AS TRAITEMENT_SIB," & vbCrLf
Sql = Sql & "     (DRI_ACC.DRI_INPUT_DATE - DRI_EV.DRI_INPUT_DATE)* 86400 AS DELAI_ALLER_RETOUR_T2S," & vbCrLf
Sql = Sql & "     (PFC_548.DATE_MODIFICATION - DRI_EV.DRI_INPUT_DATE)* 86400 AS DELAI_1ER_548," & vbCrLf
Sql = Sql & "     (PFC_548.DATE_MODIFICATION - PFC_54X.DATE_CREATION)* 86400 AS DELAI_TOTAL_548" & vbCrLf

Sql = Sql & " FROM PFCMSGH PFC_54X, PFCMSGH PFC_548, DRI_HISTO DRI_ACC, DRI_HISTO DRI_EV, DEPOSITARY DEP, SECURITIES_ACCOUNT SAC, DRI_HISTO DRI_REF, SECURITY_CODIF SCO" & vbCrLf

Sql = Sql & " WHERE 1=1" & vbCrLf 
........
.......

h2so4 · Answer

Selon moi il manque une virgule à la fin de cette instruction Sql = Sql &amp; " (SELECT ICO_CODE FROM ITL_CONTEXT WHERE IL_LNG_ID = '001' AND ICO_PSEUDO = DRI_ACC.IL_CTX_ID) AS CONTEXTE" &amp; vbCrLf devrait être Sql = Sql &amp; " (SELECT ICO_CODE FROM ITL_CONTEXT WHERE IL_LNG_ID = '001' AND ICO_PSEUDO = DRI_ACC.IL_CTX_ID) AS CONTEXTE," &amp; vbCrLf...