在Oralce9i內向給定的表物件內插入實際的行 (轉)

在Oralce9i內向給定的表物件內插入實際的行 (轉)[@more@]

  在開發時，經常需要象資料庫表內錄入些測試資料，如果針對每個表物件都建立一個錄入的過程，顯得有些麻煩。這裡給出一個示例程式碼，者給出要插入測試資料的表物件名稱，和待插入的行數後，過程即可產生隨機資料，錄入到表物件內。

/*-------------向給定的表物件內插入實際的行。---------------------------*/
  procedure Insert_Rows(p_tablename varchar, p_numrows number)
  as
  --定義a_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( * from dba_tab_columns where table_name=upper(p_tablename))
  l
  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_ran.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;