loop循环插入练习

createtable computers

（

 comNo number(4)  constraintPK_comp primarykey,

 compModel varchar2(64) constraintunique_comp unique,

 buyTimedate,

 price number(12,2) constraintch_price check(

 price>0andprice<=300000),

 owner varchar2(32));

 

DECLARE

  i number := 0;

BEGIN

  fori in1 .. 3000 loop

    insertinto computers

      (comNo, compModel, buyTime, price, owner)

    values

      (i,'8'+ i, to_date(''+ sysdate, 'YYYY-MM'), i, 'zhangsan');

    --dbms_output.put_line(i);

  endloop;

  commit;

END;