oracle认证辅导:批量插入测试数据

会计考友

一、Test Windos方式 　　declare
　　maxrecords constant int:=100000;
　　i int :=1;
　　begin
3 o# Y2 F, s7 I8 j2 p$ c0 c　　for i in 1..maxrecords loop
; {( X* z% e' k. u' b　　insert into test2
　　(id, name)
3 }5 a' ?* m) {/ w% U5 \$ e　　values
% ]5 W* w- p- t9 W: C　　(test2_seq.nextval, to_char(9999+i));
3 U( O+ K2 K1 q: Q" L, @: d, b+ R　　end loop;
　　dbms_output.put_line(' 成功录入数据！');
　　commit;
　　end;
　　二、从已有表中往入另一张表导数据
　　create or replace procedure TestProc is
  Y& h: s' A) L7 t5 w$ ]　　begin
& {# k: C+ f, X, y2 h　　for c in(select id, name from test2) loop
　　insert into test
　　(id,
: N: j- Q2 _0 i, m- G  j　　name)
　　values
　　(test_seq.nextval, c.name);
　　end loop;
　　end TestProc;