在Oralce9i內向給定的表對象插入入實際的行

插入|對象
     在開發資料庫程式時，經常需要象資料庫表對象內錄入些測試資料，如果針對每個表對象都建立一個錄入的預存程序，顯得有些麻煩。這裡給出一個樣本pl/sql代碼，調用者給出要插入測試資料的表對象名稱，和待插入的行數後，過程即可產生隨機資料，錄入到表對象內。

/*-------------向給定的表對象插入入實際的行。---------------------------*/
  procedure Insert_Rows(p_tablename varchar, p_numrows number)
  as
    --定義dba_tab_columns檢視類型的表對象，用於儲存給定表的欄位的定義資訊
    type table_define is table of dba_tab_columns%rowtype index by binary_integer;
    td table_define;
    i binary_integer;

    --定義動態sql查詢的遊標
    l_cursor number:= dbms_sql.open_cursor;
    l_ignone number;
    --動態sql語句字元變數
    sqlstr varchar2(1000);
  begin
    --獲得表的所有欄位的定義資訊
    i:=0;
    for rec in(select * from dba_tab_columns where table_name=upper(p_tablename))
    loop
      i:= i+1;
      td(i):= rec;
      dbms_output.put_line(td(i).table_name);
    end loop;
    --組織insert sql語句的欄位字串
    sqlstr:='insert into '||td(1).table_name||'(';
    for var in 1..i loop
      sqlstr:=sqlstr||td(var).column_name;
      if(var<>i) then
        sqlstr:=sqlstr||',';
      end if;
    end loop;
    --組織insert sql語句的參數字串
    sqlstr:=sqlstr||')'||'values(';
    for var in 1..i loop
     sqlstr:=sqlstr||':'||td(var).column_name;
     if(var<>i) then
       sqlstr:=sqlstr||',';
     end if;
    end loop;
    sqlstr:=sqlstr||')';

    dbms_output.put_line(sqlstr);

    --為參數變數賦值
    dbms_sql.parse(l_cursor,sqlstr,dbms_sql.native);
   
    for var_rows in 1..p_numrows loop
      --填充插入參數的值
      for var in 1..i loop
        if td(var).data_type='VARCHAR2' then
          dbms_sql.bind_variable(l_cursor,':'||td(var).column_name,dbms_random.string('A',td(var).data_length));
        elsif td(var).data_type='NUMBER' then
          dbms_sql.bind_variable(l_cursor,':'||td(var).column_name,
          round(dbms_random.value*power(10,td(var).data_precision-td(var).data_scale),td(var).data_scale));
        else
          dbms_sql.bind_variable(l_cursor,':'||td(var).column_name,'UNKNOW_TYPE');
        end if;
      end loop;
      --執行動態SQL語句
      l_ignone:=dbms_sql.execute(l_cursor);
    end loop; 
    commit;
    dbms_sql.close_cursor(l_cursor);
   
  end Insert_Rows;