master
Pascal LAFOURCADE 4 years ago
parent 98ff7414c9
commit 9e1eb0052e

@ -0,0 +1,41 @@
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;
Loading…
Cancel
Save