Discussion :

[bilal_ini]

je veux utiliser un seul composant pour passer plusieurs requetes avec des parametrées, et je ne sais pas comment ecrire la requete en utilisant la propriete

Query.sql.text:= .....
avec ces parametres, indiquez moi please.

[ShaiLeTroll]

ben tout simplement ...

Code :

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

Query.sql.text:= 'SELECT * FROM table WHERE champ = :valeur';

Code :

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

Query.Parameters.ParamByName('valeur').asVariant := 'truc';

essaye la touche

[bilal_ini]

j'ai essayé avec ces commandes mais l'etat tojours sort en vide (sans données)

[ShaiLeTroll]

Etat ? QuickReport ? le DataSet est-il relié ?

[bilal_ini]

bien sure

Code :

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

1
2
3
4
5
6
7
8
9
f.QMAntenne.Close;
f.QMAntenne.SQL.Clear;
f.QMAntenne.SQL.text:='Select t.antenne ,sum(q.montant) some from quittance q , titre t where ((q.codetitre=t.codetitre) and (q.anneeexercice =:anne) and (q.datequit between :date1 and :date2)) group by t.antenne order by some desc';
f.QMAntenne.Prepared:=true;
f.QMAntenne.Parameters.ParamByName('anne').value:=DBLookupComboBox1.keyvalue;
f.QMAntenne.Parameters.ParamByName('date1').value:=DateTimePicker1.Date;
f.QMAntenne.Parameters.ParamByName('date2').value:=DateTimePicker2.Date;
f.QMAntenne.Open;
fenmantenne.quickrep1.preview;

le probleme c'est quand j'utilise les deux premiers parametres il fonctionne tres bien, et quand je rajoute le troisieme (date2) ne marche pas, je ne sais pas comment faire pour regler ce probleme.

[Rayek]

Rajoute un ParamCheck := true dans le code (comme ci-dessous)

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
 
With f.QMAntenne do
begin
  Close;
  SQL.Clear;
  SQL.text:='Select t.antenne ,sum(q.montant) some from quittance q , titre t where ((q.codetitre=t.codetitre) and (q.anneeexercice =:anne) and (q.datequit between :date1 and :date2)) group by t.antenne order by some desc';
  ParamCheck := True; // au cas ou 
  Prepared:=true;
  With Parameters do
  begin
    ParamByName('anne').value:=DBLookupComboBox1.keyvalue;
    ParamByName('date1').value:=DateTimePicker1.Date;
    ParamByName('date2').value:=DateTimePicker2.Date;
  end;
  Open;
end;
fenmantenne.quickrep1.preview;

PS : Je me suis permis d'éclaircir ton code au passage ^^

[ShaiLeTroll]

Effectivement, le Between est-il correctement géré ?

[rec82]

j'ai eu le meme probleme avec access quand j'utilise adoquery

ma conseille est
dans access pour les champs de type date/heure utilser le format date/abregé
puis avec adoquery utiliser la commande suivante:

adoquery1.parameters.parambyname('date').value:=datetostr(datetimepicker.date);


est ca marche surementmrgreen