V_BLOB BLOB;
V_BFILE BFILE;



V_MINIMO NUMBER(8):=0;
V_MAXIMO NUMBER(8):=0;

SELECT MIN(CODPRODUCTO),MAX(CODPRODUCTO)
INTO V_MINIMO,V_MAXIMO
FROM PRODUCTO;

FOR i IN V_MINIMO..V_MAXIMO LOOP





INSERT INTO PRODUCTO
VALUES (EMPTY_BLOB()) RETURNING FOTO INTO V_BLOB;

V_BFILE:= BFILENAME('ORACLECLRDIR',i||'.PNG');
DBMS_LOB.OPEN(V_BFILE,DBMS_LOB.LOB_READONLY);
DBMS_LOB.LOADFROMFILE(V_BLOB,V_BFILE,DBMS_LOB.GETLENGTH(V_BFILE));
DBMS_LOB.CLOSE(V_BFILE);

COMMIT;
END LOOP;