匿名块操作100万数据存储

declare
  v_cnt number := 0; --定义计数器
begin
  --数据块执行部分
  for i in 1 .. 1000000 loop
    --for循环tou （for 条件 loop     end loop）
    v_cnt := v_cnt + 1; --循环一次计数器+1
    insert into demo
    values
      (seq_log_id.nextval, --获取下一个序列
       DBMS_RANDOM.STRING('a', 5) --随机产生5个26字母的任意大小写
       );
    if v_cnt >= 10000 then--if条件判断（当数据插入到10000条时保存一次）
      commit; --保存
      v_cnt := 0; --清空计数器
    end if; --if结束
  end loop; --for循环结束
  commit; --不管最后数据是多少再保存一次，防止有零头没保存
end; 
/ 


select * from  demo;