oracle给表加一行数据库,在Oralce9i内向给定的表对象内插入实际的行数据库专栏,ORACLE...

在开发数据库程序时&＃xff0c;经常需要象数据库表对象内录入些测试数据&＃xff0c;如果针对每个表对象都建立一个录入的存储过程&＃xff0c;显得有些麻烦。这里给出一个示例pl/sql代码&＃xff0c;调用者给出要插入测试数据的表对象名称&＃xff0c;和待插入的行数后&＃xff0c;过程即可产生随机数据&＃xff0c;录入到表对象内。

/*————-向给定的表对象内插入实际的行。—————————*/

procedure insert_rows(p_tablename varchar, p_numrows number)

as

–定义dba_tab_columns视图类型的表对象&＃xff0c;用于存储给定表的字段的定义信息

type table_define is table of dba_tab_columns%rowtype index by binary_integer;

td table_define;

i binary_integer;

–定义动态sql查询的游标

l_cursor number:&＃61; dbms_sql.open_cursor;

l_ignone number;

–动态sql语句字符变量

sqlstr varchar2(1000);

begin

–获得表的所有字段的定义信息

i:&＃61;0;

for rec in(select * from dba_tab_columns where table_name&＃61;upper(p_tablename))

loop

i:&＃61; i&＃43;1;

td(i):&＃61; rec;

dbms_output.put_line(td(i).table_name);

end loop;

–组织insert sql语句的字段字符串

sqlstr:&＃61;insert into ||td(1).table_name||(;

for var in 1..i loop

sqlstr:&＃61;sqlstr||td(var).column_name;

if(var<>i) then

sqlstr:&＃61;sqlstr||,;

end if;

end loop;

–组织insert sql语句的参数字符串

sqlstr:&＃61;sqlstr||)||values(;

for var in 1..i loop

sqlstr:&＃61;sqlstr||:||td(var).column_name;

if(var<>i) then

sqlstr:&＃61;sqlstr||,;

end if;

end loop;

sqlstr:&＃61;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&＃61;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&＃61;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:&＃61;dbms_sql.execute(l_cursor);

end loop;

commit;

dbms_sql.close_cursor(l_cursor);

end insert_rows;