Discussion :

[Akei]

Salut,
Je voudrais récupérer sous delphi le résultat de l'éxécution de la procédure suivante :

create or replace procedure proc_etat_couverture (nb_ok out integer, nb_soucis out integer, nb_pb out integer) is

cursor cur_ok is
select count(*) from patient where etat_couverture='OK';

cursor cur_soucis is
select count(*) from patient where etat_couverture='Soucis';

cursor cur_pb is
select count(*) from patient where etat_couverture='Pb';
begin
nb_ok:=0;
nb_soucis:=0;
nb_pb:=0;

open cur_ok;
fetch cur_ok into nb_ok;
close cur_ok;
open cur_soucis;
fetch cur_soucis into nb_soucis;
close cur_soucis;
open cur_pb;
fetch cur_pb into nb_pb;
close cur_pb;
end;

J'utilise dans delphi ADOStoredProc mais lorsque je veux l'activer j'ai ce message d'erreur:
ADOStoreProc1 : CommandText ne renvoie pas un ensemble de résultats

[Akei]

Personne n'a une petite idée pour que je puisse avancee? Ca serait chouette.

[Akei]

Et bien j ai enfin trouve une solution. En fait je cree une table temporaire.
Et ma procedure stockee est la suivante :

create or replace procedure proc_etat_couverture is
cursor cur_ok is
select count(*) from patient where etat_couverture='OK';
cursor cur_soucis is
select count(*) from patient where etat_couverture='Soucis';
cursor cur_pb is
select count(*) from patient where etat_couverture='Pb';
nb_ok INTEGER;
nb_soucis INTEGER;
nb_pb INTEGER;
begin
open cur_ok;
fetch cur_ok into nb_ok;
open cur_soucis;
fetch cur_soucis into nb_soucis;
open cur_pb;
fetch cur_pb into nb_pb;
EXECUTE IMMEDIATE 'UPDATE temp SET nb_ok='||nb_ok||' WHERE (code=1)';
EXECUTE IMMEDIATE 'UPDATE temp SET nb_soucis='||nb_soucis||' WHERE (code=1)';
EXECUTE IMMEDIATE 'UPDATE temp SET nb_pb='||nb_pb||' WHERE (code=1)';
close cur_pb;
close cur_soucis;
close cur_ok;
end;

Maintenant il me reste plus qu'a faire appel a ma table temporaire ds delphi. Je veux mettre les infos de mes variables dans un DBChart.
Si quelqu'un a deja utilisé un DBchart j'aimerais bien un coup de pouce.
Merci ++