You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
42 lines
673 B
42 lines
673 B
DROP TABLE TLigne;
|
|
CREATE TABLE TLigne(designation VARCHAR2(500));
|
|
|
|
|
|
variable vnoproduit char(4)
|
|
|
|
PROMPT Saisir un numero de produit
|
|
|
|
ACCEPT vnoproduit
|
|
|
|
DECLARE
|
|
|
|
dnbfournisseur number;
|
|
|
|
dnbproduit number;
|
|
|
|
BEGIN
|
|
|
|
SELECT COUNT(*) INTO dnbfournisseur FROM TPRODUITFOURN WHERE noproduit = '\&vnoproduit';
|
|
|
|
IF dnbfournisseur = 0 THEN
|
|
|
|
SELECT COUNT(*) INTO dnbproduit FROM TPRODUIT WHERE noproduit = '\&vnoproduit';
|
|
|
|
END IF;
|
|
|
|
IF dnbproduit = 0 THEN INSERT INTO Tligne VALUES('Pas de produit'||'\&vnoproduit');
|
|
|
|
ELSE
|
|
|
|
INSERT INTO Tligne VALUES('Le nombre de fournisseur du produit'
|
|
||'\&vnoproduit'||' est '|| dnbfournisseur);
|
|
|
|
END IF;
|
|
|
|
END;
|
|
|
|
.
|
|
|
|
/
|
|
SELECT * FROM Tligne;
|