在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;

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