ITPub博客

首页 > 数据库 > 数据库开发技术 > 在Oralce9i内向给定的表对象内插入实际的行 (转)

在Oralce9i内向给定的表对象内插入实际的行 (转)

原创 数据库开发技术 作者:gugu99 时间:2007-11-27 14:50:14 0 删除 编辑
在Oralce9i内向给定的表对象内插入实际的行 (转)[@more@]

  在开发数据库程序时,经常需要象数据库表对象内录入些测试数据,如果针对每个表对象都建立一个录入的存储过程,显得有些麻烦。这里给出一个示例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;


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

请登录后发表评论 登录
全部评论
  • 博文量
    3122
  • 访问量
    2226441