SVP prob Delphi avec interbase

Bonjour a tous,

Voila, j'ais un probleme j'utilise interbase avec Delphi.

J'utilise un composant Delphi qui se nomme TIBStoredProc pour utiliser des procédures stockés d'interbase.

Le probleme est que mes procédures fonctionnent mais lorsque mon SELECT de ma procédures comprend plusieurs résultats je n'arrive pas a les parcourir comment faire?

J'ais essayé de faire un :

IBStoredProc.ExecProc ---> execute ma procedure
IBStoredProc.Next
IBStoredProc.Moveby(int)

Mais il me met une erreur comme quoi mes données sont fermé (et je ne peut pas faire un open il me met la meme erreur), pourtant lorsue je fais un :

IBStoredProc.paramsby('NOMDUCHAMP').value

j'ais bien ma valeur alors je comprend po.

Est-ce possible de parcourir des résultats d'une requete a partir d'une procédure? Comment faire?

Je vous remercie d'avance.

Salut
Essaye un peu ceci :

Code:

---

1 2 3

IBStoredProc.ExecProc; Champs1 := IBStoredProc.FieldByName('NOMCHAMPS').value; IBStoredProc.Next ;

---

A+

Non ceci ne marche po et tjs le meme message :

impossible d'effectuer cette operation sur un ensemble de données fermées.

Merci qd meme Andry mais il me semble que l'on ne peu po parcourir des resultats avec des procédure stockées... snifff :cry:

Bonjour,

Attention execProc ne renvoit pas d'ensemble de résultats.

COrdialement

k Thx

c bien ce que je pensais bon tanpis et merci encore pour vos reponses.

Je te conseil de voir ce post pour les résultats, c'est un des mes post et ça fonctionne.
http://www.developpez.net/forums/vie...hlight=#549998

Dans ce post voici mon code pour la procedure stocké :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23

SET TERM !!; CREATE PROCEDURE [color=red]T_HISTORICS_S[/color] (NBR_LIGNE INTEGER) RETURNS ( HS_DT DATE, HS_NO INTEGER, HS_TM TIME, HS_DS_NO INTEGER, HS_US_NO SMALLINT) AS BEGIN FOR SELECT HS_DT, HS_NO, HS_TM, HS_DS_NO, HS_US_NO FROM T_HISTORICS ORDER BY HS_NO desc INTO :HS_DT, :HS_NO, :HS_TM, :HS_DS_NO, :HS_US_NO DO BEGIN NBR_LIGNE = NBR_LIGNE-1; SUSPEND; if (NBR_LIGNE = 0) then EXIT; END END!! SET TERM ;!!

---

Ensuite l'exploitation sous Delphi
le texte SQL de mon IBxxxx ets comme suit

Code:

---

Select HS_DT, HS_NO, HS_TM, HS_DS_NO, HS_US_NO FROM [color=red]T_HISTORICS_S[/color](:NBR);

---

ensuite pour avoir le résultat :

Code:

---

1 2 3 4

IBxxxx.Close; IBxxxx.ParamByName('NBR').AsInteger := 100; IBxxxx.Open;

---

while not Ibxxxx.eof do
begin
----------------------
Ibxxxxx.next;
end;

Donc creuse un peu de ce coté

Merci Bcp Andry

OK en faite dans un TIBSoredProc ca ne marche po, mais dans un TIBQuery mes procedure stockées marche nickel et j'arrive bien a parcourir mes résultats c parfait.

Encore Merci. :D