Requête SQL : Jointure sur 3 tables - Bd Access 1997 & Delphi 7

Version imprimable

Je souhaite créer une requette sur 3 tables qui se trouvent dans la même base de données (fichier .mdb MS Access 97).
Je me suis amusé à créer ce petit desin pour faciliter la comprehention des index ....:
http://www.cabinetpujol.com/bd/bd.png

Cette requette (réduite pour faciliter la compréhention du problème)
Code:

1 2 3 4 AdoQuery1.SQL.Clear; AdoQuery1.SQL.Add('SELECT * FROM DOSSIER '); AdoQuery1.SQL.Add('INNER JOIN LOGEMENT ON LOGEMENT.LGT_ID = DOSSIER.LGT_ID'); AdoQuery1.SQL.Add('INNER JOIN SUPPORT ON SUPPORT.SUP_ID = DOSSIER.SUP_ID');
provoque une Erreur disant :

Citation:

Le Projet testprogram.exe a provoque une classe d'exception EOleException avec le message 'Erreur de syntaxe (opérateur absent) dans l'expression 'LOGEMENT.LGT_ID=DOSSIER.LGT_ID
INNER JOIN SUPPORT ON SUPPORT.SUP_ID=DOSSIER.SUP_ID". Processus stoppé. Utilisez Pas-à-pas ou Excécuter pour continuer.

Ma question comment doit je formuler la requette pour liéer les enregistrements des trois tables.

Merci d'avance pour votre aide

Pour le moment j'ai réussi à faire tourner mon programme avec le code suivant :

Code:

1
2
3
4
5
6
7
8
9
10
    AdoQuery1.SQL.Clear;
    AdoQuery1.SQL.Add('SELECT D.DOS_ID, D.DOS_EMPR_NOM, D.DOS_EMPR_PRENOM, D.DOS_DATE_PREMIERE_SAISIE, D.ID_ORDER, D.PROVENANCE_PERFEO, ');
    AdoQuery1.SQL.Add('D.DOS_RETOUR_PHASE2, D.DOS_DATE_DEBLOCAGE_PHASE3, D.SUP_ID, D.LGT_ID, D.DOS_COMMISION, D.PH1_ID, D.DOS_DATE_PHASE1, ');
    AdoQuery1.SQL.Add('L.LGT_ID, L.LGT_STATUT, S.SUP_ID, S.SUP_LIBELLE ');
    AdoQuery1.SQL.Add('FROM (DOSSIER as D INNER JOIN  LOGEMENT  as L ON D.LGT_ID = L.LGT_ID )');
    AdoQuery1.SQL.Add('INNER JOIN SUPPORT AS S ON S.SUP_ID = D.SUP_ID');
    AdoQuery1.SQL.Add('WHERE (DOS_DATE_PREMIERE_SAISIE >= :MY_START_Date) ');
    AdoQuery1.SQL.Add('AND (DOS_DATE_PREMIERE_SAISIE <= :MY_END_Date) AND (ID_ORDER <> '''') order by DOS_ID');
    AdoQuery1.Parameters.ParamByName('MY_START_Date').Value := StrToDate(Edit9.Text);   //format date '15/11/2007'
    AdoQuery1.Parameters.ParamByName('MY_END_Date').Value := StrToDate(Edit10.Text);    //format date '15/11/2007'

Ca d'allair de fonctionner .... mais je suis pas sur de l'emploi de la jointure "INNER JOIN" .... Je travaille très peut avec l'SQL ....

Bref, je me suis rende compte qu'il manque encore une table dans ma requette:
http://www.cabinetpujol.com/bd/bd1.png
Je doit donc à remodifier ma requette .....

Voici ma requette pour 4 tables qui fonctionne très bien.:yaisse2:

Code:

1
2
3
4
5
6
7
8
9
10
AdoQuery1.SQL.Clear;
AdoQuery1.SQL.Add('SELECT D.DOS_ID, D.DOS_EMPR_NOM, D.DOS_EMPR_PRENOM, D.DOS_DATE_PREMIERE_SAISIE, D.ID_ORDER, D.PROVENANCE_PERFEO, ');
AdoQuery1.SQL.Add('D.DOS_RETOUR_PHASE2, D.DOS_DATE_DEBLOCAGE_PHASE3, D.SUP_ID, D.LGT_ID, D.DOS_COMMISION, D.PH1_ID, D.DOS_DATE_PHASE1, ');
AdoQuery1.SQL.Add('L.LGT_ID, L.LGT_STATUT, S.SUP_ID, S.SUP_LIBELLE, P.PH1_STATUT ');
AdoQuery1.SQL.Add('FROM ((DOSSIER as D INNER JOIN  LOGEMENT  as L ON D.LGT_ID = L.LGT_ID) ');
AdoQuery1.SQL.Add('INNER JOIN SUPPORT AS S ON S.SUP_ID = D.SUP_ID) INNER JOIN PHASE1 AS P ON P.PH1_ID = D.PH1_ID');
AdoQuery1.SQL.Add('WHERE (DOS_DATE_PREMIERE_SAISIE >= :MY_START_Date) ');
AdoQuery1.SQL.Add('AND (DOS_DATE_PREMIERE_SAISIE <= :MY_END_Date) AND (ID_ORDER <> '''') order by DOS_ID');
AdoQuery1.Parameters.ParamByName('MY_START_Date').Value := StrToDate(Edit9.Text);   //format date '15/11/2007'
AdoQuery1.Parameters.ParamByName('MY_END_Date').Value := StrToDate(Edit10.Text);    //format date '15/11/2007'