[Interbase + DateTimePicker] Requette parametre Date
Bonjour a tous
J'ai une procedure Stockée qui Extraire tous me mouvement pour un produit donné :
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
| CREATE PROCEDURE "MOUV_VENT_PROD"
(
"CODEPRODUIT" VARCHAR(15)
)
RETURNS
(
"LADATE" DATE,
"QUANTITEVENDU" NUMERIC(15, 2),
"PRIXVENTE" NUMERIC(15, 2),
)
AS
BEGIN
FOR SELECT D.DateSortie , D1.Quantite
FROM Maitre D, Detail D1
WHERE
(D1.CodeArticle = :CodeProduit)
AND (D1.NumeroBon = D.NumeroBon)
INTO :LaDate , :QuantiteVendu, :PrixVente
DO
SUSPEND;
End ^ |
Puis a partir de Delphi j'essaye d'extraire tous les données de Ma Procedure Stockée un respecte un certain critère :
Le Code SQL du IBQuery1 :
Code:
1
2
3
4
5
| SELECT *
FROM MOUV_VENT_PROD (:CODE)
Where
(LaDate >= :jour1) and (LaDate <= :jour2)
Order By LADATE |
/* Jour1 et Jour2 sont de Type Date
Pour executer ma requette :
Code:
1
2
3
4
5
| IBQuery1.Close;
IBQuery1.ParamByName('CODE').AsString := Edit1.Text;
IBQuery1.ParamByName('Jour1').AsDate := DateTimePicker2.Date;
IBQuery1.ParamByName('Jour2').AsDate := DateTimePicker2.Date;
IBQuery1.open; |
Mais le résultat de ma Requête est toujours Null, Alors qu'il Existe des Mouvement dans Ma Base de données
Merci de m'aider
Re: [Interbase + DateTimePicker] Requette parametre Date
Citation:
Pour executer ma requette :
Code:
1
2
3
4
5
| IBQuery1.Close;
IBQuery1.ParamByName('CODE').AsString := Edit1.Text;
IBQuery1.ParamByName('Jour1').AsDate := DateTimePicker2.Date;
IBQuery1.ParamByName('Jour2').AsDate := DateTimePicker2.Date;
IBQuery1.open; |
Mais le résultat de ma Requête est toujours Null, Alors qu'il Existe des Mouvement dans Ma Base de données
Merci de m'aider
Essai :
Code:
1
2
3
4
5
6
7
8
9
|
OldFormat := ShortDateFormat;
ShortDateFormat := 'MM/DD/YYYY'; // mettre le format de date d'IB
IBQuery1.Close;
IBQuery1.ParamByName('CODE').AsString := QuotedStr(Edit1.Text); // C'est un paramètre varchar dans ta requete donc faut peut être les quotes.
IBQuery1.ParamByName('Jour1').AsDate := DateTimePicker2.Date;
IBQuery1.ParamByName('Jour2').AsDate := DateTimePicker2.Date;
IBQuery1.open;
ShortDateFormat := OldFormat; |
