遇到一个需求:在已经建好的数据库中,为每一个数据表都添加相同的3个字段。
分析:数据库中的数据表较多,一一手动修改耗时低效,是否可以用程序遍历每一张表,然后为遍历到的当前表添加字段?
查询当前用户的所有表定义和为某张表添加字段比较容易实现的,SQL中游标可以将这两者组织起来,因此编写以下程序实现功能:
DECLARE V_SQL VARCHAR2(2000); V_TABLE_NAME VARCHAR2(30); CURSOR C1 IS SELECT TABLE_NAME FROM USER_TABLES; --查询当前用户下的所有表 BEGIN OPEN C1; LOOP --提取一行数据到c1 FETCH C1 INTO V_TABLE_NAME; --判读是否提取到值,没取到值就退出 --取到值c_job%notfound 是false --取不到值c_job%notfound 是true EXIT WHEN C1%NOTFOUND; V_SQL := 'alter table ' || V_TABLE_NAME || ' add BATCHDATE NUMBER(8,0)'; EXECUTE IMMEDIATE V_SQL; V_SQL := 'alter table ' || V_TABLE_NAME || ' add SOURCE_ID NUMBER(8,0)'; EXECUTE IMMEDIATE V_SQL; V_SQL := 'alter table ' || V_TABLE_NAME || ' add load_date date'; EXECUTE IMMEDIATE V_SQL; END LOOP; --关闭游标 CLOSE C1; END;