salut.
je commence par le code.
la première query t1 s'exécute bien.
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 deuxième query t2 s'exécute bien.
mais la troisième query t3 me semble correcte mais un message d'erreure me dise :
malgré j'ai configurer les paramètres bien comme il faut .aucune valeur donnée pour un ou plusieurs des paramètres requis
cordialement A+.![]()
Partager