FAQ FirebirdConsultez toutes les FAQ

Les procédures stockées permettent de faire des traitements sur le serveur (et non sur le client). Ce traitement est enregistré dans la base de données et est exécuté sur demande par le serveur. Les avantages des procédures stockées sont : des exécutions plus rapides car le serveur (généralement) est plus puissant que les clients, des optimisations d'accés plus précisément d'accès aux données , et restreindre la charge du réseau.

La création d'une procédure se fait en SQL (DDL plus exactement) comme pour la création de table.

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
CREATE PROCEDURE MA_PROCEDURE_IU ( 
  ID INTEGER, 
  TEST INTEGER) 
AS 
BEGIN 
  IF (EXISTS(SELECT  FROM MA_TABLE WHERE )) THEN 
    UPDATE MA_TABLE 
    SET ID = :ID, 
        TEST = :TEST 
    WHERE 
  ELSE 
    INSERT INTO MA_TABLE ( 
        ID, 
        TEST) 
    VALUES ( 
        :ID, 
        :TEST); 
END

SET TERM ^;

SET TERM ;^

Pour supprimer une procédure c'est assez simple :

DROP PROCEDURE MaProcedure;

Il existe plusieurs façons d'utiliser une procédure stockée, soit dans un ordre SQL soit dans une autre procédure stockée. En SQL comme une table ou une vue (qui aurait ou non des paramètres d'entrée)

1
2
Select ParametreRetour1, ParametreRetour2  
from MaProcedure(ParametreEntree1) where Critères...

1
2
EXECUTE PROCEDURE MaProcedure(:Parametre1,  
:Parametre2);

1
2
EXECUTE PROCEDURE MaProcedure(:Parametre1,  
:Parametre2) RETURNING_VALUES :ID, :TEST;

1
2
Select ID, TEST from  
MaProcedure(:Parametre1, :Parametre2) where .... into :ID, :TEST;

1
2
3
FOR Select ID, TEST from  
MaProcedure(:Parametre1, :Parametre2) where .... into :ID, :TEST DO 
Instruction à faire pour chacune des lignes

Quand vous écrivez du code PSQL (procédures, triggers , blocs d'exécution) vous pouvez vouloir sortir d'une boucle WHILE ou FOR..DO. Si vous connaissez un langage de programmation tel C ou autres, vous allez certainement rechercher une instruction BREAK ou EXIT. Firebird utilise LEAVE

1
2
3
4
5
6
FOR SELECT EMP_NO FROM EMPLOYEE e INTO :EMPNO DO 
BEGIN 
/* faire quelque chose */ 
if (empno > 50) then leave; 
/* faire autre chose*/ 
END