Problème avec requête SQL

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:

---

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:

---

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 :calim2:.

Merci de m'aider ;).

Salutations,
H.

Slt ;

Code:

---

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:

---

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;

---

:ccool:

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

Code:

---

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

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

Code:

---

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

---

donc tes paramètre deviennent :

Code:

---

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

---

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 ... :ccool:

Citation:

---

Envoyé par kaouane

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

Code:

---

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

---

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

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

Code:

---

1 2 3 4

SELECT Date1, Clients FROM TABLE WHERE TABLE.Date1 BETWEEN :a AND :b;

---

Mais ca me permettra de le savoir :mouarf: Bonne Année

Slt; oui serge exemple de requête

Code:

---

1 2 3 4 5 6 7

SELECT * FROM matable where param >=:dt1 and param1 <=:dt2

---

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 :ccool:. 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.

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

Code:

---

1 2 3 4

SELECT Date1, Clients FROM TABLE WHERE TABLE.Date1 BETWEEN a AND b;

---

Salutations,
H.