学习了

举个例子吧，成批绑定forall不能用于记录，
可以用bulk collect，其专门用来将数据批量绑定到一个集合。
DECLARE
  TYPE t_ind_by IS TABLE OF emp%ROWTYPE INDEX BY BINARY_INTEGER;
  v_ind_by t_ind_by;
BEGIN

  SELECT empno, ename, job, mgr, hiredate, sal, comm, deptno BULK COLLECT
    INTO v_ind_by
    FROM emp;

  FOR j IN v_ind_by.FIRST .. v_ind_by.LAST LOOP  --这里也不能用forall，不支持记录。
    INSERT INTO demo_g
    VALUES
      (v_ind_by(j).empno,
       v_ind_by(j).ename,
       v_ind_by(j).job,
       v_ind_by(j).mgr,
       v_ind_by(j).hiredate,
       v_ind_by(j).sal,
       v_ind_by(j).comm,
       v_ind_by(j).deptno);
  END LOOP;
END;

SQL> create table demo as select * from emp where 1=2;

表已创建。


SQL> declare
  2       type newtype   is table of  emp%rowtype  INDEX BY BINARY_INTEGER;
  3       shape newtype;
  4       i number;
  5       j number;
  6       begin
  7             dbms_output.put_line('beginforall:'||to_char(sysdate,'yyyy hh24:mi:ss'));
  8              for v in (select rownum,t.* from emp t where rownum<4) loop
  9              shape(v.rownum).ename:=v.ename;
10              shape(v.rownum).empno :=v.empno;
11             end loop;
12  
13      for j in 1 .. 3 loop
14       insert into demo(empno,ename) values(shape(j).empno,shape(j).ename);
15     end loop;
16         dbms_output.put_line('endforall'||to_char(sysdate,'yyyy hh24:mi:ss'));
17      end;
18  /
beginforall:2008 16:39:54
endforall2008 16:39:54

PL/SQL 过程已成功完成。

SQL> select * from demo;

     EMPNO ENAME      JOB              MGR HIREDATE          SAL       COMM
---------- ---------- --------- ---------- ---------- ---------- ----------
    DEPTNO
----------
      7369 SMITH


      7499 ALLEN


      7521 WARD



SQL>

[quote]原帖由 mychary 于 2008-6-30 16:41 发表
SQL> create table demo as select * from emp where 1=2;

表已创建。


SQL> declare
  2       type newtype   is table of  emp%rowtype  INDEX BY BINARY_INTEGER;
  3       shape newtype;
  4       i number;
  5       j number;
  6       begin
  7             dbms_output.put_line('beginforall:'||to_char(sysdate,'yyyy hh24:mi:ss'));
  8              for v in (select rownum,t.* from emp t where rownum<4) loop
  9              shape(v.rownum).ename:=v.ename;
10              shape(v.rownum).empno :=v.empno;
11             end loop;
12  
13      for j in 1 .. 3 loop
14       insert into demo(empno,ename) values(shape(j).empno,shape(j).ename);
15     end loop;
16         dbms_output.put_line('endforall'||to_char(sysdate,'yyyy hh24:mi:ss'));
17      end;

这个虽然能实现，不过效率和

declare
         type newtype   is table of  emp%rowtype  INDEX BY BINARY_INTEGER;
         shape newtype;
         i number;
         j number;
         begin
               dbms_output.put_line('beginforall:'||to_char(sysdate,'yyyy hh24:mi:ss'));
                for v in (select rownum,t.* from emp t where rownum<4) loop
                  insert into demo(empno,ename) values(v.empno,v.ename);
             end loop;
         dbms_output.put_line('endforall'||to_char(sysdate,'yyyy hh24:mi:ss'));
      end;
就没区别了，我自己测试了一下，
插入2万条记录，4个字段，这2段方式都是消耗2秒钟，并没有我最初的例子里面的shape的效率优势。
如果是1个字段的话，插入4万条记录，用shape就只要1秒种，明显比另一个快。

QUOTE:

---

原帖由 caizhuoyi 于 2008-6-30 16:40 发表
举个例子吧，成批绑定forall不能用于记录，
可以用bulk collect，其专门用来将数据批量绑定到一个集合。
DECLARE
  TYPE t_ind_by IS TABLE OF emp%ROWTYPE INDEX BY BINARY_INTEGER;
  v_ind_by t_ind_by;
BEGIN

  SELECT empno, ename, job, mgr, hiredate, sal, comm, deptno BULK COLLECT
    INTO v_ind_by
    FROM emp;

  FOR j IN v_ind_by.FIRST .. v_ind_by.LAST LOOP  --这里也不能用forall，不支持记录。
    INSERT INTO demo_g
    VALUES
      (v_ind_by(j).empno,
       v_ind_by(j).ename,
       v_ind_by(j).job,
       v_ind_by(j).mgr,
       v_ind_by(j).hiredate,
       v_ind_by(j).sal,
       v_ind_by(j).comm,
       v_ind_by(j).deptno);
  END LOOP;
END;

---

这样做好像并不比
for v in (select * from emp) loop
             insert into demo
             values(v.last_name);
         end loop;
这个方式快吧？
至少我用2万条记录，4个字段测试是一样的时间。
会不会是记录少了看不出效果？

对，数据量越大bulk collect的优势越明显。

非常感谢。