Discussion :

[Didier100]

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 ....:


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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

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

[Didier100]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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:

Je doit donc à remodifier ma requette .....

[Didier100]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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'