Discussion :

[Hoopsy]

Bonjour à tous,

Je bloque sur un truc, je vous explique :

je veux faire une requête SQL qui me donne tous les enregistrements entre deux dates que l'utilisateur choisie à partir de deux combobox, voici mon bout de code quand je clique sur un bouton :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
var
a:Tdate;
b:Tdate;
v:boolean;
begin
a:=strtodate(form1.ComboBox1.Text);
b:=strtodate(form1.ComboBox2.Text);
form1.DataSource1.DataSet:=form1.ADOQuery1;
form1.ADOQuery1.Open;
form1.ADOQuery1.first;
end;

Dans le code SQL de ADOQuery1 j'ai en déclarant les paramètres a et b comme Date :

Code sql :

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

1
2
3
4
 
Select Date1, Clients
From Table
Where Table.Date1 BETWEEN a AND b;

Je n'ai pas d'erreur mais je n'ai rien en sortie et je ne comprends pas pourquoi .

Merci de m'aider .

Salutations,
H.

[redoran]

Slt ;

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
var
a,b:Tdate;
v:boolean;
begin
a:=strtodate(form1.ComboBox1.Text);
b:=strtodate(form1.ComboBox2.Text);
form1.DataSource1.DataSet:=form1.ADOQuery1;
form1.ADOQuery1.Open;
form1.ADOQuery1.first;
end;

ta pas affecter les valeurs des paramètres a et b
form1.adoquery1.Parameters.ParamByName('a').value:= a; et la meme chose pour b
là je me demande pourquoi combobox ???? tu peut utilisé datetimepicker ou un maskedit pour facilité la saisie aux utilisteurs , c'est un avis
exemple :

Code :

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

1
2
3
4
dm.q1.Close;
dm.q1.Parameters.ParamByName('dt1').value:= datetostr(Date1);
dm.q1.Parameters.ParamByName('dt2').value:= datetostr(Date2);
dm.q1.Open;

[kaouane]

Effectivement il vaut mieux utiliser datetimepicker DTP1 et DTP2 et écrire
au lieu de .value -- > asDate

Code :

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

1
2
3
4
5
 
dm.q1.Close;
dm.q1.Parameters.ParamByName('dt1').asdate:= DTP1.Date;
dm.q1.Parameters.ParamByName('dt2').asdate:= DTP2.Date;
dm.q1.Open;

Bon courage;

[abdelghani_k]

Les valeurs de date dans SQL sont toujours enregistrées dans le format "MM/DD/YYYY".
utilises la fonction :

Code :

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

FormatDateTime('mm"/"dd"/"yyyy', Date)

donc tes paramètre deviennent :

Code :

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

1
2
a:=FormatDateTime('mm"/"dd"/"yyyy', strtodate(form1.ComboBox1.Text));
b:=FormatDateTime('mm"/"dd"/"yyyy', strtodate(form1.ComboBox2.Text));

[archonte]

En passant par l'usage des paramètres comme indiqué par Redoran et Kaouane plus haut, tu n'as pas besoin de connaitre le format de date dans ta table ! D'ailleurs celui-ci pourrait changer en cas de changement de SGDB ...

[Rayek]

Effectivement il vaut mieux utiliser datetimepicker DTP1 et DTP2 et écrire
au lieu de .value -- > asDate

Code :

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

1
2
3
4
5
 
dm.q1.Close;
dm.q1.Parameters.ParamByName('dt1').asdate:= DTP1.Date;
dm.q1.Parameters.ParamByName('dt2').asdate:= DTP2.Date;
dm.q1.Open;

Bon courage;

Sauf que avec les composants Ado, AsDate n'existe pas pour les paramètres et c'est bien Value qui est correct.
Il n'en reste pas moins que l'utilisation des paramètres est conseillé et surtout de ne pas oublié de les paramétrer

[SergioMaster]

Ne manquerait-il pas les ':' devant les paramètres dans la query ?
ceci dit , je ne suis pas un spécialiste de ADO

Code sql :

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

1
2
3
4
 
SELECT Date1, Clients
FROM TABLE
WHERE TABLE.Date1 BETWEEN :a AND :b;

Mais ca me permettra de le savoir Bonne Année

[redoran]

Slt; oui serge exemple de requête

Code :

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

1
2
3
4
5
6
7
 
SELECT *
FROM matable
where
param >=:dt1
and
param1 <=:dt2

[Hoopsy]

Bonjour tout le monde,

Merci merci merci à tous pour votre contribution, je n'avais qu'à ajouter form1.Adoquery1.Parameters.ParamByName('a').value:=a et tout c'est débloqué, ça marche tiptop maintenant . J'ai utilisé des combobox car j'aimerais qu'ils renferment que les dates que j'ai dans ma base de données, je fais ça par le biais d'une requête SQL .

Merci encore.

Salutations,
H.

[Hoopsy]

Pardon, juste pour plus d'éclaircissements, je n'ai pas changé ma requête SQL, je l'ai laissé comme suit et ça a fonctionné nickel :

Code :

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

1
2
3
4
 
SELECT Date1, Clients
FROM TABLE
WHERE TABLE.Date1 BETWEEN a AND b;

Salutations,
H.