ITPub博客

首页 > 数据库 > Oracle > guocheng1

guocheng1

原创 Oracle 作者:simkyo 时间:2013-11-28 11:07:49 0 删除 编辑
create or replace procedure p_insert(num in int) as
  v_errcode number;
  v_errmsg  varchar2(200);
  
  t1 number;
  t2 number;
  procedure get_time(t out number) is
  begin
    select to_char(sysdate, 'sssss') into t from dual;
  end;
begin
  get_time(t1);
  for i in 1 .. num loop
    insert into t_test
      (TID, TNAME, TGENDER, TPHONE, TPASSWORD, TDATE)
    values
      (TO_CHAR(SYSDATE, 'YYYYMMDD') ||
       LPAD(TO_CHAR(SEQ_SUBSID.NEXTVAL), 7, '0'),
       f_get_chinaname(1),
       case trunc(dbms_random.value(1, 3))
         when 1 then
          '1'
         else
          '2'
       end,
       '13' || trunc(dbms_random.value(0, 9)) ||
       trunc(dbms_random.value(0, 9)) || trunc(dbms_random.value(0, 9)) ||
       trunc(dbms_random.value(0, 9)) || trunc(dbms_random.value(0, 9)) ||
       trunc(dbms_random.value(0, 9)) || trunc(dbms_random.value(0, 9)) ||
       trunc(dbms_random.value(0, 9)) || trunc(dbms_random.value(0, 9)),
       substr(sys_guid(), 1, 5),
       sysdate);
    commit;
  end loop;
  
  get_time(t2);
  
  dbms_output.put_line(t1);
  dbms_output.put_line(t2-t1);
exception
  when others then
    v_errcode := sqlcode;
    v_errmsg  := substr(sqlerrm, 1, 200);
    dbms_output.put_line(v_errcode || ':' || v_errmsg);
end;

来自 “ ITPUB博客 ” ,链接:http://blog.itpub.net/12961536/viewspace-1061414/,如需转载,请注明出处,否则将追究法律责任。

上一篇: 动态sql
下一篇: p_meger
请登录后发表评论 登录
全部评论

注册时间:2013-06-20

  • 博文量
    193
  • 访问量
    137633