Utiliser Not In avec une clé composée

Version imprimable

Salam
j'ai un problème avec une requête SQL sous Delphi5.
voilà j'ai deux tables E1 et E2, je dois chercher dans E2 tous les enregistrements qui n'existent pas dans E1.
Sachant que les deux tables ont la même structure et que leur clé est composée de 4 champs: CodeDistr,CodeStruc,CodeCFrai,CodEquip

j'ai utilisé la code suivant:
Code:

1 2 3 4 5 6 7 8 9 10 11 12 charge.SQL.Add('Select * from ' + QuotedStr(open1.FileName)+' as E1'); charge.SQL.Add('WHERE E1.CodDistr NOT IN '); charge.SQL.Add('(SELECT CodDistr FROM ":Consolid:Equipement.DB" E2 )'); charge.SQL.Add('And E1.CodStruc NOT IN '); charge.SQL.Add('(SELECT CodStruc FROM ":Consolid:Equipement.DB" E2 )'); charge.SQL.Add('and CodeCFrai NOT IN '); charge.SQL.Add('(SELECT CodeCFrai FROM ":Consolid:Equipement.DB" E2 )'); charge.SQL.Add('and CodEquip NOT IN '); charge.SQL.Add('(SELECT CodEquip FROM ":Consolid:Equipement.DB" E2 )');
le résultats de la requête est de 0 enregistrements, comme si elle comparait par un seul champ.

n y a-t-il pas un moyen d'écrire cette requete de la façon suivante :
Code:

1 2 3 4 charge.SQL.Add('Select * from ' + QuotedStr(open1.FileName)+' as E1'); charge.SQL.Add('WHERE E1.CodDistr,E1.CodStruc,E1.CodeCFrai,E1.CodEquip NOT IN '); charge.SQL.Add('(SELECT CodDistr,CodStruc,CodeCFrai,CodEquip FROM ":Consolid:Equipement.DB" E2 )');
cette dernière façon ne marche pas, il m'affiche une erreur où il n'accepte pas la virgule.

Que dois-je faire?

merci

12/01/2008, 17h09
Cl@udius
Salut

Citation:

Envoyé par smail21

voilà j'ai deux tables E1 et E2, je dois chercher dans E2 tous les enregistrements qui n'existent pas dans E1.
Code:

1 2 3 charge.SQL.Add('Select * from ' + QuotedStr(open1.FileName)+' as E1'); -- ...
Là en sélectionnant les données de E1, tu te dirige vers le résultat inverse.

Personnellement je ferais comme ceci, requête classique de non concordance:
Code:

1 2 3 4 5 6 7 select E2.* from E2 left outer join E1 on E2.PK1 = E1.PK1 and E2.PK2 = E1.PK2 -- and ... where E1.PK1 is NULL;
@+ Claudius
13/01/2008, 11h43
smail21

salut Claudius

merci pour ta réponse
j'ai executé cette requette, mais ça ne donne rien
car ça me ramène ce que j'ai dans la première et pas dans la seconde, mais ça ne me permet pas de copier le contenu de la table E2, qui est dynamique(change de chemin) alors que la E1 a un repertoire fixe avec son alias!

exemple:: si E1 est vide, il la requette ne rapporte aucun résultat :(

Normalement comme ci-dessous cela devrait fonctionner
Code:

1 2 3 4 5 6 7 8 9 With Charge do begin SQL.Add('Select E2.* from ' + QuotedStr(open1.FileName)+' as E1'); SQL.Add('Right Join ":Consolid:Equipement.DB" E2'); SQL.Add('On E1.CodDistr = E2.CodDistr and E1.CodStruc = E2.CodStruc and'); SQL.Add('E1.CodeCFrai = E2.CodeCFrai and E1.CodEquip =E2.CodEquip') SQL.Add('Having E1.CodDistr is NULL'); end;
J'ai juste un doute sur :Consolid:Equipement, je rappelle que : + Texte est considéré comme un paramètre dans la requete avec delphi.

Sinon contrairement à Cl@udius je préfère l'utilisation du having au where ;)

14/01/2008, 09h38
smail21

Salut Rayek
merci pour la réponse
j'ai essayé ton code et il m'affiche une erreur Fonctionnalité non supporté

que peut-être cette erreur?
14/01/2008, 10h02
Cl@udius

Salut

Citation:

Envoyé par Rayek

Sinon contrairement à Cl@udius je préfère l'utilisation du having au where ;)

:koi: Ca passe ça ? En dehors d'une fonction d'agrégation ou d'une clause group by, j'en doute.
Enfin cela dépend peut-être du SGBD, quoique...

@+ Claudius

Citation:

Envoyé par Cl@udius

Salut

:koi: Ca passe ça ? En dehors d'une fonction d'agrégation ou d'une clause group by, j'en doute.
Enfin cela dépend peut-être du SGBD, quoique...

@+ Claudius

Avec MySQL/Access ca fonctionne (sauf que j'ai oublié un truc dans la requete) avec Paradox, je ne sais pas.
Code:

1 2 3 4 5 6 7 8 9 With Charge do begin SQL.Add('Select E1.CodDistr as ECheck,E2.* from ' + QuotedStr(open1.FileName)+' as E1'); SQL.Add('Right Join ":Consolid:Equipement.DB" E2'); SQL.Add('On E1.CodDistr = E2.CodDistr and E1.CodStruc = E2.CodStruc and'); SQL.Add('E1.CodeCFrai = E2.CodeCFrai and E1.CodEquip =E2.CodEquip') SQL.Add('Having ECheck is NULL'); end;

Citation:

Envoyé par Rayek

Code:

1
2
3
4
5
6
7
8
9
 
With Charge do
begin
  SQL.Add('Select E1.CodDistr as ECheck,E2.* from ' + QuotedStr(open1.FileName)+' as E1');
  SQL.Add('Right Join ":Consolid:Equipement.DB" E2');
  SQL.Add('On E1.CodDistr = E2.CodDistr and E1.CodStruc = E2.CodStruc and');
  SQL.Add('E1.CodeCFrai = E2.CodeCFrai and E1.CodEquip =E2.CodEquip')
  SQL.Add('Having ECheck is NULL');
end;

ça ne marche pas: erreur: 'Paramètre incorrect' :cry:

14/01/2008, 14h12
Rayek

Citation:

Envoyé par smail21

ça ne marche pas: erreur: 'Paramètre incorrect' :cry:

Tu peux montrer ton code jusqu'au Open de la requete ?

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
charge.Close;
   charge.SQL.Clear;
 With Charge do
begin
  SQL.Add('Select E1.CodDistr as ECheck,E2.* from ' + QuotedStr(open1.FileName)+' as E1');
  SQL.Add('Right Join ":Consolid:Equipement.DB" E2');
  SQL.Add('On E1.CodDistr = E2.CodDistr and E1.CodStruc = E2.CodStruc and');
  SQL.Add('E1.CodeCFrai = E2.CodeCFrai and E1.CodEquip =E2.CodEquip');
  SQL.Add('Having ECheck is NULL');
end;
 
  charge.open; 
  showmessage('Nb Copiés :'+inttostr(charge.recordcount));
   batch.execute;
   charge.close;

14/01/2008, 16h25
Rayek

Comme je te l'ai dit plus haut

Citation:

Envoyé par Rayek

J'ai juste un doute sur :Consolid:Equipement, je rappelle que : + Texte est considéré comme un paramètre dans la requete avec delphi.

donc il n'est normal que tu es ce message d'erreur. il te faut mettre un vrai lien pour ta table. (ou renseigner les paramètres)