Requête SQL sur la clause in et not in

Version imprimable

bon soir c'est ma premiere participattion
j' ai 02 table sous access :
1-epost : poste :integer ,ste:integer ,date:date.
2-propost : mois;string ,ste:integer ,post:integer

je veut extraire les poste de la table epost qui figure entre 01/01/2008 et 30/01/2008 et qui ontle champ ste= 861

et qui figure dans la table propost dans le mois =janvier et ste=861.

la premiere requete select poste from epost
where date between :a and :b
and ste :c
Code:

1 2 3 4 adoquery1.parameters.parambyname('a').value:= datetimepicker1.date adoquery1.parameters.parambyname('b').value:= datetimepicker2.date adoquery1.parameters.parambyname('c').value:= edit1.text;
===== le resultat est ======
les postes resultant : 87
12

deuxieme requete: select post from propost
Code:

1 2 3 4 where mois=:a and ste=:b adoquery1.parameters.parambyname('a).value:= edit2.text; adoquery1.parameters.parambyname('b).value:= edit1.text;
==== le resultat =====
les postes : 87
:33
================ma question =========
comment je peut avec une requete sql extraire les postes dans
propost(2 table) est ne sont pas dans epost(1 table)
et j'àbtien le resultat suivant:
33
en realite j'ai essaye avec ce code est as de resultat:
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 t4.Close; // t4 c'est un adoquery3 t4.sql.Clear; t4.sql.Add('select post from propost'); t4.sql.Add('where post not in (select poste'); t4.sql.Add('from epost where date between :a and :b '); t4.SQL.Add('and ste =:e)'); t4.sql.add('mois =:c and ste=:e'); t4.parameters.ParamByName('a').Value:=datetostr(d1.Date); t4.parameters.ParamByName('b').Value:=datetostr(d2.Date); t4.parameters.ParamByName('c').Value:= combobox3.Text; t4.Parameters.ParamByName('e').Value:= combobox1.Text; t4.open;

Bonjour et bienvenue sur les forums de Développez.com :D

Pour ma part je verrais plutôt la requête SQL comme ceci :
Code:

1 2 3 4 5 6 7 8 9 10 11 SELECT poste FROM epost WHERE date between :dateDebut and :dateFin AND ste = :codeSte AND EXISTS( SELECT post FROM propost WHERE propost.post = epost.poste AND ste = :codeSte AND mois = :nomMois )

22/09/2008, 12h19
rec82

remerciment

merci beaucoup pour votre réponse ami je vai essayer ,et je vous repond.
merci autre fois pour votre colaboration

salut mon camarade j'ai essayé votre code mais il ya un message d'erreur qui apparait " type donné incomptible dans l'expression de critére " et voici ce que j'ai fai
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 begin with a do begin close; sql.Clear; sql.Add(' SELECT poste FROM epost'); sql.Add(' WHERE date BETWEEN :a AND :b '); sql.Add(' AND ste = :codeSte '); sql.Add(' AND EXISTS( SELECT post FROM propost '); sql.Add(' WHERE propost.post = epost.poste AND '); sql.Add(' ste = :e AND mois = :c)'); parameters.ParamByName('a').Value:=datetostr(datetimepicker1.Date) ; parameters.ParamByName('b').Value:=datetostr(datetimepicker2.Date) ; parameters.parambyname('e').Value:=combobox1.text; parameters.parambyname('c').Value:=combobox3.text; open; end; end;
voila mes tables

ce fichier rar contient des images des tables access et ses structure

Salut

Essaye comme ceci, sans passer par un DateToStr:
Code:

1 2 3 parameters.ParamByName('a').Value := datetimepicker1.Date; parameters.ParamByName('b').Value := datetimepicker2.Date;
@+ Claudius

Pense au Balise CODE (Touche #)

Tu n'aurais pas oublié la paramètre codeSte

Sinon, une formulation en jointure ça serait pas plus simple ?
Code:

1 2 3 4 5 6 SELECT poste FROM epost INNER JOIN propost ON propost.post = epost.poste and propost.ste = epost.ste WHERE epost.date BETWEEN :dateDebut AND :dateFin AND epost.ste = :codeSte AND propost.mois = :nomMois

22/09/2008, 18h15
Aka Guymelef

Le problème initial est que tu ne renseigne pas le paramètre :codeSte à mon avis ;)

Sinon effectivement c'est bien mieux avec une jointure mais bon sans indications sur les clés primaires/étrangères c'est pas évident de faire sans boulettes ;)
23/09/2008, 00h36
rec82

disussion

merci beaucoup pour votre aide .
pour le codeste c'est juste une erreur de frape.

je vai essayer surtout la nouvelle truc de inerjunt.

juste un seci ,quelle est la difference entre la clause sql in et la clause exist.
enfin merci beacoup.
23/09/2008, 08h30
Aka Guymelef

La clause IN est inclusive, tu recherche une valeur IN (dans) un ensemble.

La clause EXISTS est simplement booléenne, si la sous-requête du Exists retourne au moins une ligne alors la condition sera considérée comme True, si la sous-requête ne retourne aucune ligne alors la condition est considérée comme False.

félicitation

:D
enfin la requette marche j'ai itulisé la solution de shailtrool,
merci beaucoup shailtrool et cl@udius :yaisse2:
le code est le suivant:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
procedure TForm1.BitBtn2Click(Sender: TObject);
begin
 with adoquery1 do
 begin
close;
sql.Clear;
sql.Add('SELECT poste  FROM epost  ');
sql.Add('INNER JOIN propost ON propost.post = epost.poste and propost.ste = epost.ste');
sql.Add('WHERE epost.date BETWEEN :dateDebut AND :dateFin');
sql.Add('AND epost.ste = :codeSte');
sql.add('AND propost.mois = :nomMois');
parameters.ParamByName('nommois').Value:=combobox3.Text;
parameters.parambyname('codeste').value:=combobox1.text;
parameters.parambyname('datedebut').value:= datetostr(d.date);
parameters.parambyname('datefin').value:= datetostr(f.date);
open;
 end;
end;

:yaisse2::yaisse2::yaisse2::king: merci beaucoup

juste une question

pourquoi le code suivant ne marche pas malgrés il me semble correcte ,est il me sort le message suivant "type de donne incompatible dans l'expression de critére "

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
begin
with a do
begin
close;
sql.Clear;
sql.Add(' SELECT poste FROM epost');
sql.Add(' WHERE date BETWEEN :a AND :b ');
sql.Add(' AND ste = :e ');
sql.Add(' AND EXISTS( SELECT post FROM propost ');
sql.Add(' WHERE propost.post = epost.poste AND  ');
sql.Add(' ste = :e AND mois = :c)');
parameters.ParamByName('a').Value:=datetostr(datetimepicker1.Date) ;
parameters.ParamByName('b').Value:=datetostr(datetimepicker2.Date) ;
parameters.parambyname('e').Value:=combobox1.text;
parameters.parambyname('c').Value:=combobox3.text;
open;
end;
end;

ou est la faut:bug: et merci beacoup:king:

23/09/2008, 11h41
SergioMaster

réponse de Cl@uduis hier à 14h49

pour le code , utilise les Balises (le # juste en haut) merci

je repose mon question au secour

:(:oops::cry::cry:
bon jour champions
pour quoi il me sort le message :type de donné incompatible dans l'expression de critére.
il me semble correcte.

ne me laissez pas avec mes soucis.
merci d'avance

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
procedure TForm1.Button1Click(Sender: TObject);
begin
with adoquery do
begin
close;
sql.Clear;
sql.Add('select poste from epost ');
sql.Add('WHERE date BETWEEN :dateDebut AND :dateFin   ');
sql.add('AND ste = :codeSte AND EXISTS(  SELECT post  FROM propost   ');
sql.Add(' WHERE propost.post = epost.poste AND ste = :codeSte');
sql.Add('AND mois = :nomMois)');
parameters.ParamByName('nommois').Value:=combobox1.Text;
parameters.parambyname('codeste').value:=combobox2.text;
parameters.parambyname('datedebut').value:= datetostr(d.date);
parameters.parambyname('datefin').value:= datetostr(f.date);
open;
end;
end;

27/09/2008, 15h50
SergioMaster
l'erreur est toujours la même , tu persistes à mettre une date formatée en chaine ,par l'instruction datetostr tu obtient donc une chaine sous le format (je suppose) jj/mm/aaaa toutes les base de données ne lise pas focement sous le même format (ie pour Fib ce serait mm/jj/aaaa ou jj.mm.aaaa pour d'autres cela peut être aaaa.mm.jj etc....) c'est pour cela qu'en utilisant des paramètres pour passer des dates à un SQL on s'affranchit des contraintes de format . D'où la sugestion de Cl@udius (rendons à César .....)

Citation:

Envoyé par Cl@udius
Essaye comme ceci, sans passer par un DateToStr:

[CODE

parameters.ParamByName('a').Value := datetimepicker1.Date;
parameters.ParamByName('b').Value := datetimepicker2.Date;
[/CODE]

ou encore pour mettre les points sur les i
Code:

1 2 3 parameters.ParamByName('a').asDateTime := datetimepicker1.Date; parameters.ParamByName('b').asDateTime := datetimepicker2.Date;
28/09/2008, 11h51
rec82

proprieté asdatetime

merci pour la réponse.:D
la proprieté asdatetime n'existe pas avec adoquery.
il existe evec query