Discussion :

[rec82]

salut.
je commence par le code.

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
27
28
29
30
31
32
33
 
 t.close;
           t.sql.clear; /////////////// 
           t.sql.add('select ste,tronc,depart,mois from protronc');
           t.sql.add('where ste=:a and ddeb=:b and dfin=:c');
           t.Parameters.ParamByName('a').value:=combobox1.text  ;
           t.Parameters.ParamByName('b').value:=maskedit1.text  ;
           t.Parameters.ParamByName('c').value:=maskedit2.text  ;
           t.Open;
           //*************************************************//
           t2.Close;
           t2.SQL.Clear;
           t2.SQL.Add('select * from entrla') ;
           t2.SQL.Add('where agence=:a and  date between :b and :c');
           t2.Parameters.ParamByName('a').value:=combobox1.text  ;
           t2.Parameters.ParamByName('b').value:=maskedit1.text  ;
           t2.Parameters.ParamByName('c').value:=maskedit2.text  ;
           t2.open;
           //*************************************************
           t3.Close;
           t3.SQL.Clear;
           t3.SQL.Add('select * from entrla');        
           t3.SQL.Add('where agence=:a and  date between :b and :c');
           t3.SQL.Add('and n-tronc not in(');
           t3.SQL.Add('select tronc from protronc');
           t3.sql.add('where ste=:d and ddeb=:e and dfin=:f)');          
           t3.Parameters.ParamByName('a').value:=combobox1.text  ;
           t3.Parameters.ParamByName('b').value:=maskedit1.text  ;
           t3.Parameters.ParamByName('c').value:=maskedit2.text  ;
           t3.Parameters.ParamByName('d').value:=combobox1.text  ;
           t3.Parameters.ParamByName('e').value:=maskedit1.text  ;
           t3.Parameters.ParamByName('f').value:=maskedit2.text  ;
           t3.Open;

la première query t1 s'exécute bien.
la deuxième query t2 s'exécute bien.
mais la troisième query t3 me semble correcte mais un message d'erreure me dise :

aucune valeur donnée pour un ou plusieurs des paramètres requis

malgré j'ai configurer les paramètres bien comme il faut .
cordialement A+.

[Cl@udius]

Salut

Code sql :

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

and  date between :b and :c

Le champ s'appelle réellement Date ? Si oui c'est une erreur puisque Date est un mot clé réservé du SQL.

@+ Claudius

[rec82]

salut.
merci Cl@udius.
mais j'ai un autre code qui ressemble au premier et qui marche bien. le voila

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
t3.Close;
           t3.SQL.Clear;
           t3.sql.add('select * from epost');
           t3.sql.add('where ste=:a and date between :b and :c ');
           t3.sql.add('and poste not in (');
           t3.sql.add('select post  from propost');
           t3.sql.add('where ste=:d and ddeb=:e and dfin=:f   )');
           t3.Parameters.ParamByName('a').value:=combobox1.text  ;
           t3.Parameters.ParamByName('b').value:=maskedit1.text  ;
           t3.Parameters.ParamByName('c').value:=maskedit2.text  ;
           t3.Parameters.ParamByName('d').value:=combobox1.text  ;
           t3.Parameters.ParamByName('e').value:=maskedit1.text  ;
           t3.Parameters.ParamByName('f').value:=maskedit2.text  ;
           t3.Open;

A+

[redoran]

idem que cl@udis le mot date est réservé au SQL , je vous propose de reéxécuté le T3 toute on ajoutant chaque fois un paramètre à testé comme ça vous sachez quel valeur de paramètre n'est pas reçu ( exemple vous commencer à tester celui de la date si sa marche vous passer au deuxième ainsi de suite...

[rec82]

salut
ton astuce ne marche pas redoran (mémé méssage ).
sachant que j'utilise Access comme SGBD.
a+

[BuzzLeclaire]

salut
ton astuce ne marche pas redoran (mémé méssage ).
sachant que j'utilise Access comme SGBD.
a+

@Salut, Mets des espaces en fin dans tes SQL.Add :

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
27
28
29
30
31
32
 t.close;
           t.sql.clear; /////////////// 
           t.sql.add('select ste,tronc,depart,mois from protronc ');
           t.sql.add('where ste=:a and ddeb=:b and dfin=:c');
           t.Parameters.ParamByName('a').value:=combobox1.text  ;
           t.Parameters.ParamByName('b').value:=maskedit1.text  ;
           t.Parameters.ParamByName('c').value:=maskedit2.text  ;
           t.Open;
           //*************************************************//
           t2.Close;
           t2.SQL.Clear;
           t2.SQL.Add('select * from entrla ') ;
           t2.SQL.Add('where agence=:a and  date between :b and :c');
           t2.Parameters.ParamByName('a').value:=combobox1.text  ;
           t2.Parameters.ParamByName('b').value:=maskedit1.text  ;
           t2.Parameters.ParamByName('c').value:=maskedit2.text  ;
           t2.open;
           //*************************************************
           t3.Close;
           t3.SQL.Clear;
           t3.SQL.Add('select * from entrla ');        
           t3.SQL.Add('where agence=:a and  date between :b and :c ');
           t3.SQL.Add('and n-tronc not in(');
           t3.SQL.Add('select tronc from protronc ');
           t3.sql.add('where ste=:d and ddeb=:e and dfin=:f)');          
           t3.Parameters.ParamByName('a').value:=combobox1.text  ;
           t3.Parameters.ParamByName('b').value:=maskedit1.text  ;
           t3.Parameters.ParamByName('c').value:=maskedit2.text  ;
           t3.Parameters.ParamByName('d').value:=combobox1.text  ;
           t3.Parameters.ParamByName('e').value:=maskedit1.text  ;
           t3.Parameters.ParamByName('f').value:=maskedit2.text  ;
           t3.Open;

@+

[rec82]

salut
merci BuzzLeclaire,ça ne marche pas(meme probleme) .
A+

[BuzzLeclaire]

@

C'est laquelle qui marche pas :

Celle-ci ?

Code :

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

1
2
3
4
5
6
7
8
 t.close;
           t.sql.clear; /////////////// 
           t.sql.add('select ste,tronc,depart,mois from protronc ');
           t.sql.add('where ste=:a and ddeb=:b and dfin=:c');
           t.Parameters.ParamByName('a').value:=combobox1.text  ;
           t.Parameters.ParamByName('b').value:=maskedit1.text  ;
           t.Parameters.ParamByName('c').value:=maskedit2.text  ;
           t.Open;

Celle-ci ?

Code :

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

1
2
3
4
5
6
7
8
9
10
 
           //*************************************************//
           t2.Close;
           t2.SQL.Clear;
           t2.SQL.Add('select * from entrla ') ;
           t2.SQL.Add('where agence=:a and  date between :b and :c');
           t2.Parameters.ParamByName('a').value:=combobox1.text  ;
           t2.Parameters.ParamByName('b').value:=maskedit1.text  ;
           t2.Parameters.ParamByName('c').value:=maskedit2.text  ;
           t2.open;

Ou celle-ci ?

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
 
           //*************************************************
           t3.Close;
           t3.SQL.Clear;
           t3.SQL.Add('select * from entrla ');        
           t3.SQL.Add('where agence=:a and  date between :b and :c ');
           t3.SQL.Add('and n-tronc not in(');
           t3.SQL.Add('select tronc from protronc ');
           t3.sql.add('where ste=:d and ddeb=:e and dfin=:f)');          
           t3.Parameters.ParamByName('a').value:=combobox1.text  ;
           t3.Parameters.ParamByName('b').value:=maskedit1.text  ;
           t3.Parameters.ParamByName('c').value:=maskedit2.text  ;
           t3.Parameters.ParamByName('d').value:=combobox1.text  ;
           t3.Parameters.ParamByName('e').value:=maskedit1.text  ;
           t3.Parameters.ParamByName('f').value:=maskedit2.text  ;
           t3.Open;

[BuzzLeclaire]

Oupss désolé,

Je viens de voir que c'etait la T3

[BuzzLeclaire]

@ Re salut,

Essai comme ceci, j'ai ajouté un espace apres le =:f

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
 
           //*************************************************
           t3.Close;
           t3.SQL.Clear;
           t3.SQL.Add('select * from entrla ');        
           t3.SQL.Add('where agence=:a and  date between :b and :c ');
           t3.SQL.Add('and n-tronc not in(');
           t3.SQL.Add('select tronc from protronc ');
           t3.sql.add('where ste=:d and ddeb=:e and dfin=:f )');          
           t3.Parameters.ParamByName('a').value:=combobox1.text  ;
           t3.Parameters.ParamByName('b').value:=maskedit1.text  ;
           t3.Parameters.ParamByName('c').value:=maskedit2.text  ;
           t3.Parameters.ParamByName('d').value:=combobox1.text  ;
           t3.Parameters.ParamByName('e').value:=maskedit1.text  ;
           t3.Parameters.ParamByName('f').value:=maskedit2.text  ;
           t3.Open;

[/QUOTE]

[rec82]

salut
merci pour tes réponses rapides.j'ai pas essayé votre dernière réponse.
je pense que le problème et dans le "-" de "n-tronc" .
merci autre fois
A+

[rec82]

salut
Enfin le problème est dans le "-" ,il faut mètre n-tronc entre deux []

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
 t3.Close;
           t3.SQL.Clear;
           t3.SQL.Add('select * from entrla ');        
           t3.SQL.Add('where agence=:a and  date between :b and :c ');
           t3.SQL.Add('and [n-tronc] not in(');
           t3.SQL.Add('select tronc from protronc ');
           t3.sql.add('where ste=:d and ddeb=:e and dfin=:f )');          
           t3.Parameters.ParamByName('a').value:=combobox1.text  ;
           t3.Parameters.ParamByName('b').value:=maskedit1.text  ;
           t3.Parameters.ParamByName('c').value:=maskedit2.text  ;
           t3.Parameters.ParamByName('d').value:=combobox1.text  ;
           t3.Parameters.ParamByName('e').value:=maskedit1.text  ;
           t3.Parameters.ParamByName('f').value:=maskedit2.text  ;
           t3.Open;

merci BuzzLeclaire, je peut mètre résolu.
cordialement

[redoran]

slt, rec82 d'habitude je procède par élimination pour détecté le problème , alors bravos..

[rec82]

salut.
c'est ce que j'ai fait exactement
cordialement rec82.

[lare dindane]

Désolé d'arriver après.
Mais cette erreur survient également lorsque le nom de un ou plisieurs champs dans la BDD ne concorde pas avec ceux dans la requête sous l'EDI.