Discussion :

[BONNEFOI Patrick]

Bonjour,

tout d'abord j'utilise Delphi7, Oracle 8i et les composants DOA (accès à oracle).

Mon problème est le suivant :

j'ai une procédure stockée qui ressemble à ça

Code :

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

1
2
3
4
5
6
 
procedure Test (param1 in number, param2 in varchar2, param3 in out number, param4 in out number);
begin
...
Mise à jour param3 et param4
end;

Je souhaiterais récupérer avec Delphi les variables param3 et param4.

J'utilise un TOracleQuery avec le code SQL ci-dessous

Code :

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

1
2
3
4
 
begin
  pkg_....test (:par1, :par2, :par3, :par4);
end;

Pour appeler la requete je l'utilise comme ça dans delphi

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
with toraclequery do
begin
  setvariable ('par1', val1);
  setvariable ('par2', val3);
  setvariable ('par3', val3);
  setvariable ('par4', val4);
  Execute;
 
valeur3 := getvariable ('par3');
valeur4 := getvariable ('par4');
end;

Je n'ai aucun plantage (déjà une bonne chose ) mais les valeurs retournées ne sont pas correct.

J'ai testé la procédure stockée celle-ci fonctionne correctement

Je vois pas où est le problème.

Si quelqu'un a une solution je suis preneur.

Je peux aussi transformer cette procédure en fonction mais je ne sais pas comment récupérer le résultat de type record PL/SQL dans Delphi.

A+

[PierreDelcroix]

Quand vous utilisez 'Execute', ça veut dire qu'on a pas de résultats. Je crois que c'est seulement possible de récuperer des résultats quand on utilise 'Open'

[BONNEFOI Patrick]

Bonjour,

je ne peux pas utiliser de Open car il n'y a pas cette méthode.

De plus, c'est des valeurs de retour que je veux récupérer et non pas le résultat d'un select (auquel cas j'aurai pris un TOracleDataSet).

Personne voit?

A+

[Rayek]

A la fin de ta procédure stockée, rajoute

Code :

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

1
2
 
select param3,param4

et retourne les comme un ensemble de resultat (c'est ce que je faisais sous SQL serveur pour avoir un retour multiple de données)