循环插入，随机日期数据

create or replace procedure p_test_add

/**

* purpose : 增加测试数据

* revisions:

version date author description

-------- ---------- ------------------ ---------------------------------

1.0 2010-10-22 sblig 1. 创建存储过程

*/

as

TYPE user_array IS TABLE OF VARCHAR2(25)

INDEX BY BINARY_INTEGER;

arrUserName user_array;

i_randomNum number;

d_randomDay Date;

i_number1 number;

i_number2 number;

begin

select to_char(sysdate,'J') into i_randomNum from dual;--为今天的日期生成一个内部日期数

arrUserName(1) := 'ddds';

arrUserName(2) := 'asdnli';

arrUserName(3) := 'godod';

arrUserName(4) := 'ssdsss';

arrUserName(5) := 'asnqi';

arrUserName(6) := 'wwsww';

arrUserName(7) := 'tttdt';

FOR i IN 1..100000 LOOP

--生成近两年内的随机日期

SELECT TO_DATE(TRUNC(DBMS_RANDOM.VALUE(i_randomNum,i_randomNum-720)),'J') into d_randomDay FROM DUAL;

i_number1 := mod(i,8);

i_number2 := mod(i,4);

if i_number1 = 0 then

i_number1 := 1;

end if;

if i_number2 = 0 then

i_number2 := 1;

end if;

insert into t_loginlog

(

udsername,

lsosgindtype,

crdeatedtime

)

values

(

arrUserName(i_number1),

i_number2,

d_randomDay

);

END LOOP;

commit;

end p_stat_test_add;