使用游标根据一个表中的数据，循环创建不同的表

mysql中的

DELIMITER $$
DROP PROCEDURE IF EXISTS zy.jk_jkzl_political_location_pro $$
CREATE PROCEDURE zy.jk_jkzl_political_location_pro()
BEGIN
DECLARE no_more_pro INT DEFAULT 0;
DECLARE num VARCHAR(20);
#一 声明一个游标
DECLARE cursor_create_user CURSOR FOR SELECT area_code FROM zy.jk_jkzl_political_location;
#二 声明一个处理异常的信息
DECLARE CONTINUE HANDLER FOR NOT FOUND SET no_more_pro=1;
#三 打开游标
OPEN cursor_create_user;
#四 给游标赋值
FETCH NEXT FROM cursor_create_user INTO num;
#五 准配重复调用游标的信息
REPEAT
SET @sql=CONCAT('create table zy.tf_f_user_p',num,'(user_name varchar(20),user_state int)engine=innodb default charset=utf8');
SELECT NOW();
PREPARE create_sql FROM @sql;
EXECUTE create_sql;
DEALLOCATE PREPARE create_sql;
FETCH NEXT FROM cursor_create_user INTO num; #####必须标明，否则循环失败
UNTIL no_more_pro=1 #调用所有游标数据
END REPEAT; #关闭重复调用
CLOSE cursor_create_user; #关闭游标
END;

Oracle 的测试：

DELIMITER $$
DROP PROCEDURE IF EXISTS zy.jk_jkzl_political_location_pro $$
CREATE PROCEDURE zy.jk_jkzl_political_location_pro()
BEGIN
DECLARE no_more_pro INT DEFAULT 0;
DECLARE num VARCHAR(20);
#一 声明一个游标
DECLARE cursor_create_user CURSOR FOR SELECT area_code FROM zy.jk_jkzl_political_location;
#二 声明一个处理异常的信息
DECLARE CONTINUE HANDLER FOR NOT FOUND SET no_more_pro=1;
#三 打开游标
OPEN cursor_create_user;
#四 给游标赋值
FETCH NEXT FROM cursor_create_user INTO num;
#五 准配重复调用游标的信息
REPEAT
SET @sql=CONCAT('create table zy.tf_f_user_p',num,'(user_name varchar(20),user_state int)engine=innodb default charset=utf8');
SELECT NOW();
PREPARE create_sql FROM @sql;
EXECUTE create_sql;
DEALLOCATE PREPARE create_sql;
FETCH NEXT FROM cursor_create_user INTO num;
UNTIL no_more_pro=1 #调用所有游标数据
END REPEAT; #关闭重复调用
CLOSE cursor_create_user; #关闭游标
END;