Discussion :

[doudou911]

Bonjour, j'ai commencé avec Firebird et Zeos mais pour des Pb de sauvegardes je voudrais passer sur Postgre (fichiers WAL en plus).
mais j'ai des Pb avec des fonctions et trigger. Je suis sous Delphi 7.
Pour créer un nouveau client j’appelle la fonction et si tout est OK avec le trigger j’incrémente le compteur ce qui permet de ne pas perdre de numero si il y a des erreurs à l'insert.

Code :

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

1
2
3
4
5
6
7
8
9
10
 
ALTER PROCEDURE INSERT_CLI (  TEST2 Char(20) )
RETURNS (    TEST Integer ) AS
/*declare TEST integer;*/
BEGIN
TEST=GEN_ID("NUMCLIENT",0);
insert into CLIENTS (noclient,CLIENT) values(:TEST,:TEST2) ;
 
suspend;
  END^

Code :

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

1
2
3
4
5
6
7
8
9
 
ALTER TRIGGER TRIGCLIENT ACTIVE
AFTER INSERT POSITION 0
AS 
declare test int;
BEGIN 
    test=gen_id(NUMCLIENT,1);
END^
SET TERM ; ^

[doudou911]

Bonjour, après de nombreux essais j'ai trouvé.
la fonction appelée depuis delphi 7

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
-- Function: insert_cli(character)
 
-- DROP FUNCTION insert_cli(character);
 
CREATE OR REPLACE FUNCTION insert_cli(test2 character)
  RETURNS integer AS
$BODY$;
 
INSERT INTO clients (noclient,client) VALUES((SELECT last_value FROM numclient),$1) ;
 
select cast( (SELECT last_value FROM numclient) as integer);
 
$BODY$
  LANGUAGE sql VOLATILE

et la fonction trigger avec un trigger after update.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
-- Function: tyty()
 
-- DROP FUNCTION tyty();
 
CREATE OR REPLACE FUNCTION tyty()
  RETURNS trigger AS
$BODY$begin
PERFORM NEXTVAL('numclient');
RETURN NULL;
end;$BODY$
  LANGUAGE plpgsql VOLATILE