Discussion :

[achraf dev]

Bonjour besoin d'aide s'il vous plaît ;
dans un code VBA ,la requête sql suivante :

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
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
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 
........
.......

m'affiche l'erreur suivant :