Discussion :

[okparanoid]

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

[Cl@udius]

Salut,

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

@+

[okparanoid]

Code :

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

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 !

[Rayek]

Code :

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

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 :

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

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 :

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

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 :

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

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'

[Cl@udius]

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 :

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

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 ?

@+

[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 ) ?

[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 ?!