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
Partager