Discussion :

[rec82]

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 :

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

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 :

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

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 :

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

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;

[Aka Guymelef]

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

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

Code sql :

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

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
)

[rec82]

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

[rec82]

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 :

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
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

[Cl@udius]

Salut

Essaye comme ceci, sans passer par un DateToStr:

Code :

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

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

@+ Claudius

[ShaiLeTroll]

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 :

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

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

[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

[rec82]

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.

[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.

[rec82]

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

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
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;

merci beaucoup

[rec82]

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 :

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
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 et merci beacoup

[SergioMaster]

réponse de Cl@uduis hier à 14h49

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

[rec82]

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 :

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
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;

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

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

ou encore pour mettre les points sur les i

Code :

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

1
2
3
 
parameters.ParamByName('a').asDateTime := datetimepicker1.Date;
parameters.ParamByName('b').asDateTime := datetimepicker2.Date;

[rec82]

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