当前位置:Linux学习笔记 > Linux 数据库 > 正文



create or replace
 procedure gen_data( p_tname in varchar2, p_records in number )
 — This routine is designed to be installed ONCE pre database, hence
 authid current_user
    l_insert long;
    l_rows  number default 0;
    — dbms_random can be very cpu intensive. I use dbms_application_info
    — to instrument this routine, so I can monitor how far along it is
    — from another session. Every bulk insert will update v$session for us.
    dbms_application_info.set_client_info( ‘gen_data ‘ || p_tname );
    — The beginning of our insert into statement. Using a direct path
    — insert, if you alter your table to be nologging in an archive
    — log mode database, it’ll generate no redo (assuming the table
    — is not indexed).
    l_insert := ‘insert /*+ append */ into ‘ || p_tname ||
                ‘ select ‘;

    — Now, we build the rest of our insert. We select the datatype
    — and size of each column. MAXVAL is used for numbers only. Using
    — the precision defined for the column, we determine the maximum number
    — that we can stuff in there.
    for x in
    ( select data_type, data_length,
    nvl(rpad( ‘9’,data_precision,’9′)/power(10,data_scale),9999999999) maxval
        from user_tab_columns
        where table_name = upper(p_tname)
        order by column_id )
        — If number, generate a number in the range 1 .. maxval.
        if ( x.data_type in (‘NUMBER’, ‘FLOAT’ ))
            l_insert := l_insert ||
                        ‘dbms_random.value(1,’ || x.maxval || ‘),’;

        — if a date/timestamp type, add some random number to sysdate.
        elsif ( x.data_type = ‘DATE’ or x.data_type like ‘TIMESTAMP%’ )
            l_insert := l_insert ||

        — If a string, generate a random string between 1 and data length.
        — bytes in length
            l_insert := l_insert || ‘dbms_random.string(”A”,
                    trunc(dbms_random.value(1,’ || x.data_length || ‘))),’;
        end if;
    end loop;
    l_insert := rtrim(l_insert,’,’) ||
                  ‘ from all_objects where rownum <= :n’;

    — Now, wo just execute the insert into as many times as needed
    — in order to put L_ROWS rows in the table. Since we are direct path
    — loading, we must commit after each insert. In this case, since
    — we are generating test data, it is OK from a transactional perspective.
    — And since this operation should generate little redo in all cases,
    — it will not affect our performance as well.
        execute immediate l_insert using p_records – l_rows;
        l_rows := l_rows + sql%rowcount;
        ( l_rows || ‘ rows of ‘ || p_records, ” );
        exit when ( l_rows >= p_records );
    end loop;

SQL> create table dept as select * from departments where 1=0;

 Table created.

但是需要注意的是 字段的取值范围不能小于1


但是实际执行的结果却是 超过了最大值,导致溢出。


更多Oracle相关信息见Oracle 专题页面

未经允许不得转载:Linux学习笔记 » Oracle用随机数据填充表

赞 (0)
分享到:更多 ()