XL 2019 VBA ADODB: left join

[VBA_dev_Anne_Marie]

Bonjour,

Je n'arrive pas à faire la left join dans mon code VBA avec la data db_dossier sousc et db_garantie gar, par exemple. Voici mon code :

Public Sub SUPP_D_ATTENTE(NO_POLICE As String)

    Dim RECSET As New ADODB.Recordset

    RECSET.Open "select  rga.cd_rga as cd_rga from db_dossier sousc, db_personne pers, db_garantie gar, db_ctrat_support ctrats, db_param_mandat_op mandaop, db_rga rga" & _

                " where sousc.no_police = '" & NO_POLICE & "' and sousc.cd_dossier = 'SOUSC' and sousc.lp_etat_doss not in ('ANNUL','A30','IMPAY') and " & _

                " [B]sousc.is_protocole=gar.is_protocole[/B] .......

Pourriez-vous me rappeler la syntaxe de la left join dans le cas d'ADODB ?

Merci beaucoup !

 

[dysorthographie]

Bonsoir,
je ne connais pas l'organisation de tes tables et ce qui les lies entre elles mais ça devrait ressembler à un truc comme ça!

Select Champs
from db_dossier sousc left join db_garantie gar on gar.is_protocole=sousc.is_protocole
left join  db_ctrat_support ctrats on ctrats.id=gar.id
where etc

bien sur il es possible d'avoir une double liaison!

from db_dossier sousc left join db_garantie gar on gar.is_protocole=sousc.is_protocole
and gar.toto=sousc.toto

 

[VBA_dev_Anne_Marie]

Bonsoir,
je ne connais pas l'organisation de tes tables et ce qui les lies entre elles mais ça devrait ressembler à un truc comme ça!

Select Champs
from db_dossier sousc left join db_garantie gar on gar.is_protocole=sousc.is_protocole
left join  db_ctrat_support ctrats on ctrats.id=gar.id
where etc

bien sur il es possible d'avoir une double liaison!

from db_dossier sousc left join db_garantie gar on gar.is_protocole=sousc.is_protocole
and gar.toto=sousc.toto
[/QUOTE]

Merci beaucoup !