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

文章作者 100test 发表时间 2007:09:06 12:55:56
来源 100Test.Com百考试题网

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