ITPub博客

首页 > 数据库 > Oracle > 感謝cooldy

感謝cooldy

原创 Oracle 作者:longwansheng 时间:2006-11-09 10:23:08 0 删除 编辑

在cooldy(zhangyu5120@hotmail.com)的幫助下,實現了用form直接導出excel的方法.

[@more@]

環境:student/student@mgreport

table:person/lev

button:

declare
V_LEV NUMBER(5);
out_file text_io.file_type;

cursor c1rec is
select person.id,person.name,lev from person,lev
where person.id=lev.id(+) for update nowait;
begin
out_file:=text_io.fopen('d:person.csv','w');
text_io.putf(out_file,'%sn',
' A YU ');
text_io.putf(out_file,'%sn',
' ***Person***');
text_io.putf(out_file,'%sn',
to_char(sysdate,' yy/mm/dd hh24:mi:ss'));
text_io.putf(out_file,'%sn',
' id'||' '||','||' name'||' '||','||' LEV');

for c1 in c1rec loop
if c1rec%notfound then
exit;
end if;
BREAK;
-- SELECT LEV INTO V_LEV FROM LEV WHERE ID=C1.ID;
text_io.putf(out_file,'%sn',
c1.id||','||c1.name||','||c1.LEV);

end loop;

text_io.fclose(out_file);
message('OK!');
message('OK!');
end;

生成的excel檔即存在d:下

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

请登录后发表评论 登录
全部评论

注册时间:2007-12-12

  • 博文量
    162
  • 访问量
    740654