Discussion :

[Just-Soft]

Salut !
le composant ADOStoredProc génère une erreur dont le code erreur est -104 si le nom de la procédure stockée commence par un " ou [ c'est ce que j'ai découverts bien que IBExpert exécute cette procédure stockée sans le moindre souci.

le vrai problème est qu'à la conception ma procédure stockée renvoie le résultat escompté mais à l'exécution j'ai pas d'enregistrements malgré que j'ai fais rentrer les mêmes données !!

voici le code en question :

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
procedure Tfm_ProcStockee.Button1Click(Sender: TObject);
begin
  with DataModule2.ADOStoredProc1 do
  begin
    Prepared;
    Parameters[0].Value := Edit1.Text;
    Parameters[1].Value := StrToDate(Edit2.Text);
    Parameters[2].Value := StrToDate(Edit3.Text);
// pour être sûr que les données saisies sont juste
    ShowMessage(Parameters[0].Value);
    ShowMessage(Parameters[1].Value);
    ShowMessage(Parameters[2].Value);
    ExecProc;
    Open;
  end;
  ShowMessage(IntToStr(DataModule2.ADOStoredProc1.RecordCount));
end;

j'ai vérifié et revérifié mais j'ai rien trouvé d'anormal, peut-être que quelqu'un a déjà vu quelque chose de pareil .....

merci par avance pour toute idée ou piste

[kovax]

bonjour
j'ai eux le méme probléme avec IBStoredProc pour une rqette qui renvoie une resultat

alors j'ai utiliser IBQuery de façon IBQuery sélectionne le résultat en passant les paramétrés :Aparm1 et :Aparm2 est ça marche bien
la requette dans IBQuery "myproc"

Code :

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

SELECT * FROM SP_nom_procedure (:Aparm1,:Aparm2)

dans le editeur de code delphi

Code :

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

1
2
3
4
5
6
7
8
9
10
 
      myproc.Close;
      myproc.ParamByName('Aparm1').DataType:=ftInteger;
      myproc.ParamByName('Aparm1').Value:=var1;
 
      myproc.ParamByName('Aparm2').DataType:=ftInteger;
      myproc.ParamByName('Aparm2').Value:=var2;
      if not myproc.Prepared then
      myproc.Prepare;
      myproc.Open;

bonne chance

[SergioMaster]

a mon avis 'Execproc' est en trop

Il faut considéré avec Delphi la chose suivante : 'Tout ce qui renvoi des données implique un Open dans le cas contraire on utilise un Exec , proc ou sql selon le cas' .
Je sais le raisonnement est simpliste mais facile a retenir

après, pour la formulation exacte, cela dépend beaucoup de la suite de composants utilisé . Perso une procédure je préfére nettement l'utilisation de la Query ("Select * from Procedure")