TRIGGER sur INSERT

Version imprimable

22/11/2006, 08h48
Jean_Benoit

TRIGGER sur INSERT
Bonjour,

Soit la table ventes: prodno, quantite, montant_ligne

Supposons que pour le moment je souhaite renseigner "montant_ligne"
avec "quantite * 2"
Le plan A serait que le trigger récupère les infos ("prodno" et "quantite") déjà passées par l'ordre insert pour calculer "montant_ligne".
Je tente:
Code:

1 2 3 4 5 6 7 8 create or replace trigger calcule_vente before insert on ventes for each row begin if inserting then montant_ligne := :new.quantite * 2; end if; end;
Bien sûr ça ne marche pas:

Citation:

SQL>SHOW ERROR
PLS--063 Expression .. ne peut être utilisée come cible d'affectation

Normalement sous forms ça irait tout seul avec un petit post-field, mais là j'interface avec ACCESS (2002 SP3) && ODBC, j'ai pas trop envie de me lancer dans VB, et je n'arrive pas à renseigner le champ "valeur par défaut" de la requête, car la table est liée.

Donc j'en appelle à votre aide pour le plan B :D
22/11/2006, 09h24
pifor

Essayer:

Code:

:new.montant_ligne := :new.quantite * 2;
22/11/2006, 11h17
Jean_Benoit

ça marche!!!

Merci beaucoup :D :D

Je cite le trigger qui marche pour le moment, je ne sais pas si on peut optimiser:

Code:

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
create or replace trigger compute_sales
before insert on sales
for each row
declare
var_product_id number(6);
var_normal_value number(10,2);
 
cursor C1 is
select product_id, normal_value
from products;
 
begin
open c1;
	if inserting then
		loop
		fetch c1 into var_product_id, var_normal_value;
		if var_product_id = :new.product_id then
			:new.sale_value := var_normal_value * :new.quantity;
		end if;
		exit when c1%notfound;
		end loop;
	end if;	
close c1;
end;
/

Je n'ai pas réussi à compiler :new.product_id dans le prédicat du curseur en section declare.

Merci encore

Tu peux passer un paramètre à un curseur (PS : C'est mieux d'utiliser FOR LOOP que les FETCH pour des boucles comme ceci).

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
CREATE OR REPLACE TRIGGER compute_sales
BEFORE INSERT ON sales
FOR EACH ROW
DECLARE
 
CURSOR C1 (p_id IN NUMBER) IS
SELECT normal_value
FROM products
WHERE product_id = p_id;
 
BEGIN
	IF INSERTING 
	THEN
		FOR r IN c1 (:NEW.product_id)
		LOOP
			:NEW.sale_value := r.normal_value * :NEW.quantity;
		END LOOP;
	END IF;	
END;

Sinon, à quoi ça sert de faire un curseur ? Tu peux avoir plusieurs lignes ?
Sinon, faut faire un SELECT INTO avec gestion d'erreur (on ne fait rien si on trouve pas dans PRODUCTS.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
CREATE OR REPLACE TRIGGER compute_sales
BEFORE INSERT ON sales
FOR EACH ROW
DECLARE
 v_value NUMBER;
BEGIN
	IF INSERTING 
	THEN
		BEGIN
			SELECT normal_value
			INTO v_value
			FROM PRODUCTS
			WHERE product_id =:NEW.product_id;
 
			:NEW.sale_value := v_value * :NEW.quantity;
 
		EXCEPTION WHEN OTHERS THEN NULL;
		END;
	END IF;	
END;

22/11/2006, 12h30
Jean_Benoit

Effectivement, c'est trop excellent!

(Pour la solution 1 je ne vois pas comment passer un paramètre au trigger depuis la fenêtre "Table" de Access;
Pour la gestion des erreurs dans la solution 2 je tenterai (( quand j'aurai trouvé où télécharger Forms 6i Win32)) une liste déroulante dynamique sur product_id ou product_description, de façon que l'utilisateur n'entre en "Sales" que des produits déjà renseignés en base.)
22/11/2006, 12h52
McM
Heu, j'ai pas dit paramètre au trigger, mais paramètre au curseur
Code:

1 2 3 CURSOR C1 (p_id IN NUMBER) .. FOR r IN c1 (:NEW.product_id)
T'as rien à faire sous access.
Le comportement est identique à ton trigger qui marche, c'est juste optimisé.
22/11/2006, 13h03
Jean_Benoit

Ah! les paramètres au curseur!:D que de souvenirs! j'avais complètement oublié...
Bon donc en gros ça signifie qu'il faut y retourner immédiatement..

Merci encore :D