Discussion :

[SkyDev]

Bonjour à tous,

J'ai créé un code procédure 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
CREATE PROCEDURE SP_LIST_EMP_TYPE
RETURNS (
    ID_TYPEEMP INTEGER,
    DENOM VARCHAR (25))
AS
BEGIN
 
    SELECT ID_TYPEEMP, DENOM FROM TYPE_EMP
    INTO
        :ID_TYPEEMP,
        :DENOM;
 
    SUSPEND;
 
END

Le contenu du table est:

Code :

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

1
2
3
4
5
 
|ID_TYPEEMP   | DENOM       |
-----------------------------------
    1                  Administrateur
    2                  Magasignier

Et j'essaie d'exécuter en Delphi avec:

Code :

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

SP_EmpType.ExecProc;

Et ensuite il affiche que le message:

Code :

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

Mutiple row a singleton select  8O

????? J'y comprends rien.

Merci de m'aider

P.S.: J'utilise Interbase 6 et Delphi

[med1112]

ça veut dire que la requette dans la procedure envoit plusieurs lignes, donc il faut mettre une boucle, voilà le code (ajouter FOR avant select):

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
CREATE PROCEDURE SP_LIST_EMP_TYPE 
RETURNS ( 
    ID_TYPEEMP INTEGER, 
    DENOM VARCHAR (25)) 
AS 
BEGIN 
 
    FOR SELECT ID_TYPEEMP, DENOM FROM TYPE_EMP 
    INTO 
        :ID_TYPEEMP, 
        :DENOM; 
 
    SUSPEND; 
 
END

[med1112]

et puisque c'est une procedure select....
le code pour l'executer

Code :

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

1
2
SELECT ID_TYPEEMP, DENOM 
          FROM SP_EmpType

et si tu utilise delphi tu met un composant TQuery et pas un composant procedure

[SkyDev]

Merci, j'ai essayé avec votre code, celà ne marche pas car oublié de mettre Do avant suspend;

Voici le code:

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
CREATE PROCEDURE SP_LIST_EMP_TYPE 
RETURNS ( 
    ID_TYPEEMP INTEGER, 
    DENOM VARCHAR (25)) 
AS 
BEGIN 
 
    FOR SELECT ID_TYPEEMP, DENOM FROM TYPE_EMP 
    INTO 
        :ID_TYPEEMP, 
        :DENOM
    DO BEGIN
        SUSPEND;
        END
 
END

Et j'ai fait Execute Procedure SP_LIST_EMP_TYPE et n'affiche que une seule ligne mais pas plusieurs lignes

D'ailleurs en Delphi, le DataGrid n'affiche pas J'y cpds rien pourtant le datasource qui est sélectionné qui est aussi séléctionné au IBStoredProcedure.


Merci de m'aider ;-)

[jacquesberger]

dans ton TQuery, tu ne dois pas mettre Execute procedure...
mais plutot :

Code :

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

1
2
3
4
5
6
 
SELECT
   ID_TYPEEMP,     //les champs que retourne ta storedproc
   DENOM
FROM
   SP_LIST_EMP_TYPE;  //le nom de ta storedproc

[SkyDev]

MErci bcq, je testerai ca demain. Et je vous tiendrais au courant.

[SkyDev]

Merci beaucoup, ca y est ca marche. ;-)