Discussion :

[Jean_Benoit]

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 :

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

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:

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

[pifor]

Essayer:

Code :

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

:new.montant_ligne := :new.quantite * 2;

[Jean_Benoit]

ça marche!!!

Merci beaucoup

[Jean_Benoit]

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

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
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

[McM]

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 :

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
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 :

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
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;

[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.)