Discussion :

[moulery]

bonjour

j'ai une procedure stockee de ce type

Code SQL :

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

1
2
3
4
5
6
7
8
9
10
11
12
CREATE OR REPLACE FUNCTION public.liste_tous_clients()
  RETURNS refcursor AS
' 
DECLARE 
    cursor1 CURSOR FOR  select id1,groupe1,libelle1 from valeurs ;  
 
BEGIN 
 open cursor1; 
 return (cursor1); 
END; 
'
  LANGUAGE 'plpgsql' VOLATILE;

j'ai un composant ADOStoredProc
et un data source relié a celui ci

la connexion est ok via ADO

Comment puis je recuperer tous les id1 , groupe1 via le curseur

je fais

Code :

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

1
2
3
4
5
ADOStoredProc.Connection :=ADOConnection;
       ADOStoredProc.ProcedureName := 'liste_tous_clients';
       ADOStoredProc.Active:=true;
 
       showmessage(DataSourcetest.DataSet.FieldByName('groupe').asstring); // ICI ERREUR

[Rayek]

Dès que tu as activé ta procédure stockée, tu peux l'utiliser comme un TAdoTable en lecture seule.

Code :

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

1
2
3
4
5
6
 
ADOStoredProc.Connection :=ADOConnection;
ADOStoredProc.ProcedureName := 'liste_tous_clients';
ADOStoredProc.Active:=true;
 
showmessage(ADOStoredProc.FieldByName('groupe').asstring);