向数据库循环插入数据

CREATE OR REPLACE PROCEDURE DB IS
tmpVar NUMBER;

BEGIN
   tmpVar := 4001;

for i in 1..tmpVar loop


your sql
commit;
end loop;

   EXCEPTION
     WHEN NO_DATA_FOUND THEN
       NULL;
     WHEN OTHERS THEN
       -- Consider logging the error and then re-raise
       RAISE;
END DB;
/