Discussion :

[chicha23]

Salut !
J'ai un problème avec le code Delphi dès que le user appuie sur bouton de la fiche, base "sql server 2000" via une procédure stockée. Voici les parametres :

Code :

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

1
2
3
4
5
6
7
var mr:integer;
begin
datamodule1.ADOStoredProc3.Parameters[1].Value:=
datamodule1.lignecommande.fieldbyname('ref').asinteger;
datamodule1.ADOStoredProc3.ExecProc;
mr:=datamodule1.ADOStoredProc3.Parameters[2].Value;
edit1.Text:=inttostr(mr)

Et voici le code de la procédure stocke qui calculé la quantité totale d'un produit sélectionné :

Code :

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

1
2
3
4
5
6
7
8
CREATE proc nombreproduit
(@ref int, @totalproduit int output)
as 
begin
select @totalproduit=sum(qtec) from  lignecommmande
where ref=@ref
end
GO

[gbegreg]

Bonsoir,

Je pense que l'indice des "parameters" doit commencer à 0. Essayez en remplaçant
datamodule1.ADOStoredProc3.Parameters[1].Value par datamodule1.ADOStoredProc3.Parameters[0].Value
et
datamodule1.ADOStoredProc3.Parameters[2].Value par datamodule1.ADOStoredProc3.Parameters[1].Value

[chicha23]

merci de ton aide mais maintenant erreur suivante s'affiche( erreur "indice de liste hors limites(0) )

[gbegreg]

As tu créé les paramètres avant des les utiliser ?

Exemple par le code :
with ADOStoredProc1.Parameters.AddParameter do Value := laValeur;

ou en mode conception en ajoutant les deux paramètres via l'inspecteur d'objet.

[chicha23]

voici les paramètres mais quand je fais acitve a true le message suivant s'affiche

[SergioMaster]

Bonjour,

il y a une confusion entre les paramètres de la procédure SQLserver et ceux de ADOquery, à ma souvenance il faut que la requête ADOQuery soit faite avec des :
plutôt qu'une ADOstoredprocedure essayez une ADOquery qui appelle la procédure SELECT TotalProduit FROM nombreproduit WHERE REF=:Refet un open.
Ceci écrit, je ne suis pas un spécialiste de ADO et ne connais pas ADOStoredProc

[chicha23]

oui je suis entrain d’exécuter une procédure stocke je crois que adostoredproc et nécessaire

[SergioMaster]

oui je suis entrain d’exécuter une procédure stocke je crois que adostoredproc et nécessaire

non, la requête que je vous ai indiqué fera la même chose, à la différence que celle-ci vous retournera un résultat plutôt qu'un paramètre en retour d'où le besoin de faire un
type de code de ce genre (écrit sans contrôle)

With anADOQuery do
begin
Parameters.ParamByName('Ref').asInteger:= datamodule1.lignecommande.fieldbyname('ref').asinteger;
Open;
mr:=FieldByname('TotalProduit').asxxxxxxx;
Close;
end;

et comme je vois que le paramètre se trouve dans un Dataset et avec le même nom de colonne , en liant l'ADOquery à cette source il y aurait même pas besoin de passer le paramètre !

de toute façon si vous tenez à passer par des paramètres, utilisez le nom sans le @
i.e. ADOStoredProc.Parameters.ParamByName('Ref').value := unevaleur;

[chicha23]

et comment faire pour le calcul de la procedure stocke explique moi svp je suis nouveau

[elkader]

Bonjour chicha23 ;
est ce que vous utilisez une boucle a l'interieur de votre code ?
si bien le cas donc je te conceil de mettre un -1 dans la valeur d'arret dela boucle .
j'ai eu le meme probleme et ca marche ..

Salam .

[elkader]

merci de ton aide mais maintenant erreur suivante s'affiche( erreur "indice de liste hors limites(0) )

bonjour
mettre faire deminuer cette valeur avec un indice
c'est a dir au lieu d'utiliser 0 , mettre -1 ,
Salam

[Charly910]

Bonjour,
depuis mai 2017, il a du trouver la solution (bien que le post ne soit pas marqué résolu !)
A+
Charly