游标的作用及属性介绍

DECLARE

cursor my_cursors is select DISTINCT to_char(ctime,'yyyymmdd') as ctime from NTGIS_GPS_EVENTDATA;

mcursor varchar2(40);

begin

for mcursor in my_cursors loop

DECLARE

tbname VARCHAR2(50) := 'NTGIS_GPS_EVENTDATA'||mcursor.ctime;

sqlstr VARCHAR2(300) := 'CREATE TABLE '||tbname||' as SELECT * from NTGIS_GPS_EVENTDATA where to_char(ctime,''yyyymmdd'')='''||mcursor.ctime||'''';

BEGIN

--dbms_output.put_line(tbname);

execute immediate sqlstr;

END;

end loop;

end;