[ADO] Requete avec jointure

Version imprimable

08/11/2006, 16h01
okparanoid

[ADO] Requete avec jointure

Bonjour !

Est-ce qu'il faut utiliser les requetes avec les jointures de type inner join pour faire des requetes sur des bases access avec ADO ou cela doit-il marcher avec des requetes SQL classiques ?
Je m'arrache les cheveux sur une requete avec jointure qui genere une erreur et je me demande si cela viendrait pas de la...

Merci
08/11/2006, 16h06
Cl@udius

Salut,

qu'est-ce que tu appelles un requête classique ?
Montre-nous la requête sur laquelle tu butes !! ;)

@+

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
 
    with TADOQuery.create(nil) do
    try
        Connection := BD.Connection;
        SQL.add('SELECT AGENTS.NOM, AGENTS.PRENOM, GESTIONNAIRES.MODULE FROM AGENTS, GESTIONNAIRES WHERE AGENTS.ID = "' + ComboID.Text + '" AND GESTIONNAIRES.ID = AGENTS.ID;');
        Open;
 
        if RecordCount <> 0 then
        begin
             Nom := Fields[0].Asstring;
             Prenom :=Fields[1].AsString;
             Module :=Fields[2].AsString;
        end;
     finally
            free;
     end;

Merci !

Citation:

Envoyé par okparanoid

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
 
    with TADOQuery.create(nil) do
    try
        Connection := BD.Connection;
        SQL.add('SELECT AGENTS.NOM, AGENTS.PRENOM, GESTIONNAIRES.MODULE FROM AGENTS, GESTIONNAIRES WHERE AGENTS.ID = "' + ComboID.Text + '" AND GESTIONNAIRES.ID = AGENTS.ID;');
        Open;
 
        if RecordCount <> 0 then
        begin
             Nom := Fields[0].Asstring;
             Prenom :=Fields[1].AsString;
             Module :=Fields[2].AsString;
        end;
     finally
            free;
     end;

Merci !

Ce n'est pas des " qu'il faut mettre mais des '

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
 with TADOQuery.create(nil) do
    try
        Connection := BD.Connection;
        SQL.add('SELECT AGENTS.NOM, AGENTS.PRENOM, GESTIONNAIRES.MODULE FROM AGENTS, GESTIONNAIRES WHERE AGENTS.ID = ' + QuotedStr(ComboID.Text) + ' AND GESTIONNAIRES.ID = AGENTS.ID;');
        Open;

        if RecordCount <> 0 then
        begin
             Nom := Fields[0].Asstring;
             Prenom :=Fields[1].AsString;
             Module :=Fields[2].AsString;
        end;
     finally
            free;
     end;

Sinon une requete avec un jointure sera plus rapide

Code:

1
2
3
4
 
SELECT AGENTS.NOM, AGENTS.PRENOM, GESTIONNAIRES.MODULE FROM
 AGENTS, GESTIONNAIRES 
WHERE AGENTS.ID = 'xxx' AND GESTIONNAIRES.ID = AGENTS.ID

C'est la même chose que

Code:

1
2
3
4
 
SELECT AGENTS.NOM, AGENTS.PRENOM, GESTIONNAIRES.MODULE FROM 
AGENTS inner join GESTIONNAIRES on GESTIONNAIRES.ID = AGENTS.ID
WHERE AGENTS.ID = 'xxx'

Je vois ce que tu appelle une requête classique. Personnellement je préfère utiliser inner join ou outer join pour faire mes jointures.

Ta requête peut être écrite ainsi:
Code:

1 2 3 4 5 SQL.add('SELECT AGENTS.NOM, AGENTS.PRENOM, GESTIONNAIRES.MODULE ' + 'FROM AGENTS inner join GESTIONNAIRES ' + 'ON GESTIONNAIRES.ID = AGENTS.ID ' + 'WHERE AGENTS.ID = ' + QuotedStr(ComboID.Text) + ';');
Mais quel est ton message d'erreur ?

@+

08/11/2006, 16h29
okparanoid

Merci pour le quotedstr ca faisait longtemps que j'avais plus fait du Delphi m'en souvenait plus :p.

Sinon ca marche tjs pas quelque soit la methode :
classe d'exception eolexveption avec le message "erreur non specifiee"

Le inner join ca marche quelque soit les bases ou c'est specifique a Access (pour le jour ou je voudrais passer a un truc un peu plus performant :)) ?
08/11/2006, 17h05
okparanoid

J'ai resolu le probleme en changeant dans ma base GESTIONNAIRES le DATA MODULE, j'en deduis que cela doit etre un mot interdit ?!