Bonjour a tous
J'ai une procedure Stockée qui Extraire tous me mouvement pour un produit donné :
Puis a partir de Delphi j'essaye d'extraire tous les données de Ma Procedure Stockée un respecte un certain critère :
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 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 ^
Le Code SQL du IBQuery1 :
/* Jour1 et Jour2 sont de Type Date
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5 SELECT * FROM MOUV_VENT_PROD (:CODE) Where (LaDate >= :jour1) and (LaDate <= :jour2) Order By LADATE
Pour executer ma requette :
Mais le résultat de ma Requête est toujours Null, Alors qu'il Existe des Mouvement dans Ma Base de données
Code : Sélectionner tout - Visualiser dans une fenêtre à part
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;
Merci de m'aider
Partager