Discussion :

[CharleLéo]

Bonjour tout le monde,

Je dois dans ma base, récuperer une liste de nom.

comment avec un ps peut on renvoyer d'un seul coup l'ensemble de la liste?

Je m'explique : je suppose qu'avec une PS, pour obtenir les résultats il faut lire le resultat ligne par ligne du style

EXECUTER PS
TANT QUE PAS FIN PS
FAIRE
LIRE ligne
LIGNE SUIVANTE PS
FIN TANT QUE

En gros, est il possible d'affecter directement le resultat d'une PS à un tableau?

Le but, est d'éviter une boucle directement dans la base.

A+

[Barbibulle]

Code :

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

Select * from Ma_PS(:Param1, :Param2) where ...

Bref, une PS peut être interrogée comme une table.

[CharleLéo]

Re bonjour,

je réouvre cette discussion pour donner des infos supplémentaires :
voilà le code de ma PS

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
BEGIN
  FOR
    SELECT TRIM(NOM)||' '||TRIM(PRENOM) FROM AGENT
    WHERE AGENT.ID_EQUIPE=:NUM_EQUIPE
    INTO :NOM_AGENT
  DO
    begin
    SUSPEND;
    end
END

Code :

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

1
2
3
4
5
6
7
8
9
 
 
CETTE PS ME RETOURNE LES VALEURS SUIVANTES sous IB EXPERT
 
NOM_AGENT
-------------------
BARTHELEMY YVES
IZARD ALAIN
ROUQUET JEAN CLAUDE

code sous delphi : SP_Liste_Agent_Par_Num_Equipe est le nom de la PS

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
.....
ParamByName('Num_Equipe').AsInteger:=22;
execproc;
While not (SP_Liste_Agent_Par_Num_Equipe.eof) do
begin
  ListeAgentParEquipe[x,0]:=ParamByName('NOM_AGENT').AsString;
  next;
end;
Close;
Transaction.commit;
....

Mon pb est le suivant : malgré que sous IB expert, j'ai trois lignes, mon code ne rentre pas dans la boucle, en je n'ai qu'un seul enreg : le premier.

Comment lire toutes les lignes depuis DELPHI

Merci d'avance
A+

[makowski]

Comment lire toutes les lignes depuis DELPHI

en faisant un select from ta ps dans un tquery

[CharleLéo]

Ok, j'essaie

A+

[SergioMaster]

et surtout en faisant un open (ou active:=true) à la place d'un execproc !
c'est un erreur classique .

Quand un SQL renvoi un ensemble de données c'est un open qu'il faut faire
quand il ne renvoi rien un execsql ou execproc etc...