XL 2019 ADODB: left join

VBA_dev_Anne_Marie · 23 Mars 2021

Bonjour,

Je souhaite faire une jointure à gauche (left join), mon code est :

VB:

RECSET2.Open "select a.cd_p1, a.is, a.Lb as LB_PROD, a.is_t," & _
    " a.B_PERF, a.B_PERF1, a.B_PERF2, a.B_VALIDE, " & _
    "b.cd1, c.S_RAIS from personne1 as a left join personne2 as b on a.is = b.is left join personne3 as c " & _
    " on c.is_pers=a.is_personne", cnn_Compl, adOpenDynamic, adLockBatchOptimistic

En fait, je reçois une erreur, je ne suis pas sûre que mon code est correct. Pourriez-vous m'expliquer, s'il vous plaît comment traduire la jointure à gauche en ADODB.

Merci beaucoup pour votre aide !

VBA_dev_Anne_Marie · 24 Mars 2021

tatiak à dit:
Bonjour
Les jointures multiples nécessitent des parenthèses :
SELECT a.cd_p1, ...
FROM (personne1 AS a LEFT JOIN personne2 AS b ON a.is = b.is)
LEFT JOIN personne3 AS c ON ...

Merci ! En fait, j'ai ajouté les parenthèses mais j'ai toujours ce genre d'erreur : "ORA-00933 SQL command not properly ended"

VBA_dev_Anne_Marie · 24 Mars 2021

tatiak à dit:

Pour Oracle un point-virgule à la fin :

VB:

"SELECT a.cd_p1, a.is, a.Lb as LB_PROD, a.is_t, a.B_PERF," & _
" a.B_PERF1, a.B_PERF2, a.B_VALIDE, b.cd1, c.S_RAIS" & _
" FROM (personne1 AS a LEFT JOIN personne2 AS b on a.is = b.is) & _
" LEFT JOIN personne3 AS c on c.is_pers=a.is_personne;"

Merci, mais ça ne marche pas avec le point virgule.

dysorthographie · 24 Mars 2021

Bonsoir,

VB:

SELECT table1.column, table2.column
FROM table1
LEFT OUTER JOIN table2
ON (table1.column = table2.column);

notes qu'un champ qui porte le nom d'une instruction ou une fonction comme is doit être encadré par des crochet [IS] car is comme IS null!

VB:

RECSET2.Open "select a.cd_p1, a.[IS], a.Lb as LB_PROD, a.is_t," & _
    " a.B_PERF, a.B_PERF1, a.B_PERF2, a.B_VALIDE, " & _
    "b.cd1, c.S_RAIS from personne1 as a left OUTER join personne2 as b on a.[is]= b.[is] left OUTER join personne3 as c " & _
    " on c.is_pers=a.is_personne", cnn_Compl, adOpenDynamic, adLockBatchOptimistic

Mais je pense que ton problème n'est pas lié au OUTER mais au [IS]

XL 2019 ADODB: left join

VBA_dev_Anne_Marie

XLDnaute Occasionnel

VBA_dev_Anne_Marie

XLDnaute Occasionnel

VBA_dev_Anne_Marie

XLDnaute Occasionnel

dysorthographie

XLDnaute Accro

Discussions similaires