Discussion :

[rouba27]

Alors je suis débutante en delphi on ce qui concerne les base de donné je veux bien un aide svp
Voici mon problème exemple j'ai deux table ( table2 : nom) et ( table1 : nomT, age)
Alors j'ai deux dbgrid et deux table et deux datasource et 1 seul Tquery
Je veux faire une déférence entre les nom danq table1 et nom1 dans table 2 ce qui veux dire je veux afficher dans un memo ou combobox les nom qui pas encor été utiliser dans la table 1 alors j'ai fait cela :

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
17
18
19
20
21
22
23
24
25
26
 
procedure TForm1.Button1Click(Sender: TObject);
begin
Query1.SQL.Clear ;
Query1.SQL.Add('SELECT Nom') ;
Query1.SQL.Add('FROM Table2.db') ;
Query1.SQL.Add('EXCEPT')   ;
Query1.SQL.Add('SELECT TNom')  ;
Query1.SQL.Add('FROM Table1.db') ;
Query1.SQL.Add('WHERE age=30)') ;
Query1.Active:=true;
Query1.Open ;
with query1 do
begin
  first;
  while not eof do
  begin
    Memo1.Lines.add(fieldbyname('Prenom').asString );
 
    next;
  end;
 
end;
end;
 
end.

il me donne l'erreur suivante :

Code :

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

1
2
3
4
 
invalid uses of keyword 
Token : select 
Lines number :4

[SergioMaster]

Bonjour,

Qu'il y ait plusieurs dBgrids ne change rien, votre problème est un problème de SQL et dans la formulation .
Vous n'indiquez pas votre SGBD ce qui n'arrange rien , mais vu que les tables se nomment Table1.db et table2.Db j'imagine qu'il s'agit de Paradox (un peu vieillot)

voici une première manière de faire ce que vous demandez à savoir une liste des noms de table2 ne faisant pas partie de la table1 ayant 30 ans (je ne vois pas d'où vient ce 30, mais puisque vous l'avez mis dans votre SQL de départ je l'ai inclus

Code :

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

1
2
SELECT T2.NOM,T1.NOMT FROM TABLE2.DB AS T2 LEFT JOIN TABLE1.DB AS T1 ON T2.NOM=T1.NOMT AND T1.AGE=30 
WHERE T1.NOMT IS NULL

ce qui peut aussi s'exprimer ainsi

Code :

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

1
2
SELECT T2.NOM FROM TABLE2.DB AS T2 
WHERE NOT EXISTS (SELECT 1 FROM TABLE1.DB WHERE NOMT=T1.NOM AND AGE=30)

pour mon test j'ai

table2
A
B
C
F
G
Table1
A 30
B 30
C 20
D 20
E 30
résultat de la requête
C << parce que âge 20 dans table 1
F
G

[Papy214]

et ne pas oublier que

Code :

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

1
2
3
4
 
Query1.SQL.Add('SELECT Nom') ;
Query1.SQL.Add('FROM Table2.db') ;
Query1.SQL.Add('EXCEPT')   ;

va créer 'SELECT NomFROM Table2.dbEXCEPT' etc.

ce qui n'a aucun sens. Faire un Add n'ajoute pas de sauts de ligne. Il faut mettre un espace à la fin de chaque morceau d'instruction

Code :

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

1
2
3
4
 
Query1.SQL.Add('SELECT Nom ') ;
Query1.SQL.Add('FROM Table2.db ') ;
Query1.SQL.Add('EXCEPT ')   ;

Je pense d'ailleurs que le except doit le faire dans le cas présent mais sous DBase, est-ce que ça existe ou pas, aucune idée !