Discussion :

[gquintana]

Bonjour,

Dans un trigger, je voudrais appeler un procedure et lui passer en paramètre la ligne en cours d'insertion/modification/suppression (:NEW ou :OLD). Un truc du genre:
create or replace procedure MA_PROC(
???
) as
begin
...
end

create or replace trigger MON_TRIGGER
after insert on MA_TABLE
for each row
begin
...
MA_PROC(:NEW);
...
end


Est-ce que c'est possible?

Si oui, quel est le type de cette espèce de variable :NEW/:OLD? J'ai essayé un MA_TABLE%rowtype sans succès.

[mnitu]

Met dans un package un SubType Ma_Table%rowtype et ta procédure et utilisez les dans le trigger.

[DAB.cz]

Non, ce n'est pas possible comme fonction (:new), malheureusement (asktom).

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
24
25
26
27
28
29
30
31
create table tx (
  a number,
  b number);

create or replace package txp as
  subtype txrowtype is tx%rowtype;
  procedure x (a in txrowtype);
end;
/

create or replace package body txp as
  procedure x (a in txrowtype) is
  begin
    null;
  end;
end;
/

create or replace trigger txtg
  before insert
  on tx
  for each row
declare
  r txp.txrowtype;
begin
  -- txp.x (:new); pas possible!!!!
  r.a := :new.a;
  r.b := :new.b;
  txp.x (r);
end;
/

DAB

[gquintana]

Merci pour vos réponses.
Je vais tâcher de contourner le problème.

[mnitu]

Non, ce n'est pas possible comme fonction (:new), malheureusement (asktom).

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
24
25
26
27
28
29
30
31
create table tx (
  a number,
  b number);

create or replace package txp as
  subtype txrowtype is tx%rowtype;
  procedure x (a in txrowtype);
end;
/

create or replace package body txp as
  procedure x (a in txrowtype) is
  begin
    null;
  end;
end;
/

create or replace trigger txtg
  before insert
  on tx
  for each row
declare
  r txp.txrowtype;
begin
  -- txp.x (:new); pas possible!!!!
  r.a := :new.a;
  r.b := :new.b;
  txp.x (r);
end;
/

DAB

J'aurais jamais imaginé que quelque puisse écrire

Code :

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

1
2
-- txp.x (:new); pas possible!!!!

Si non ton example

Code :

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

1
2
3
4
5
6
 
...
  r.a := :new.a;
  r.b := :new.b;
  txp.x (r);
...

montre bien que c'est possible