如何自动生成一个含有2000年01月至2050年01月共50年月份的表？

软件环境：

1、Windows NT4.0+ORACLE 8.0.4

2、ORACLE安装路径为：C:\ORANT

SQL语句：

　drop table da_yyyymm;　　　　　　　　　　　　　　　　--如果有，先删除此表

create table da_yyyymm(month char(6) PRIMARY KEY);　　 --建立表，，month（月份）为主关键字

declare

　　　　i number;　　　　　　　　 --循环用

　　　　j char(6);　　　　　　　　--记录月份值

begin

　　　　j:='200001';　　　　　　　　　　　　　　　　　　　　　　　　 --设初始值

　　　　for i in 1..600 loop　　　　　　　　　　　　　　　　　　　　 --12*50=600个月

　　　　insert into da_yyyymm values(j);　　　　　　　　　　　　　　 --insert记录

　　　　j:=to_char(add_months(to_date(j,'yyyymm'),1),'yyyymm');　　　--月份值加1

　　　　end loop;　　　　　　　　　　　　　　　　　　　　　　　　　　--循环结束

end;

/

commit;　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　--提交，PL/SQL块不自动提交

转载请注明出处，谢谢　　　　　　　　Oracle技术网http://www.oradb.net/

【最后更新： 06/03/2002 11:24:44 】