Discussion :

[Riri394]

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.

[Andry]

Salut
Essaye un peu ceci :

Code :

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

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

A+

[Riri394]

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

[Pascal Jankowski]

Bonjour,

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

COrdialement

[Riri394]

k Thx

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

[Andry]

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 :

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

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 :

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

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 :

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

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é

[Riri394]

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.