Discussion :

[touhami]

Bonjour a tous
J'ai une procedure Stockée qui Extraire tous me mouvement pour un produit donné :

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 ^

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 :

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

/* Jour1 et Jour2 sont de Type Date

Pour executer ma requette :

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;

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

[qi130]

Je te conseille de transmettre jour1 et jour2 comme paramètre à ta procédure.

De plus, le prix de vente n'est pas alimenté : il n'est pas dans le SELECT de la procédure...

[Rayek]

Pour executer ma requette :

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;

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 :

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

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;

[touhami]

Bonjour ,
Merci baucoup je vais essayer.
Bon developpement a tous.