Chinaunix首页 | 论坛 | 博客
  • 博客访问: 1011588
  • 博文数量: 584
  • 博客积分: 2293
  • 博客等级: 大尉
  • 技术积分: 3045
  • 用 户 组: 普通用户
  • 注册时间: 2006-03-28 11:15
文章分类

全部博文(584)

文章存档

2012年(532)

2011年(47)

2009年(5)

我的朋友

分类:

2012-03-08 21:24:17

问题:
为一系列已经存在的表,添加一个相同的字段。(比如:添加SURVEYRESULT字段)
:表名和字段名一定要大写,否则结果不正确
1、判断表是否在数据库中存在
'SELECT COUNT(*) FROM USER_OBJECTS WHERE OBJECT_NAME = UPPER (''' || V_TBL_NAME || ''')'
2、判断列是否在数据库中存在
‘SELECT COUNT(*) FROM USER_TAB_COLUMNS WHERE TABLE_NAME = UPPER('''||V_TBL_NAME || ''') AND COLUMN_NAME = ''SURVEYRESULT'''

  1. CREATE OR REPLACE PROCEDURE INSERTTABLESBYENTERPRISEID (
  2.    ENTERPRISEID IN STRING
  3. )
  4. IS
  5.    TYPE CURSOR_TEMP IS REF CURSOR;

  6.    V_CURSOR CURSOR_TEMP;
  7.    V_TBL_NAME VARCHAR2 (100) := '';
  8.    V_SQL VARCHAR2 (500) := '';
  9.    V_EXESQL VARCHAR2 (500) := '';
  10.    V_EXITOBJ INTEGER := 0;
  11. BEGIN
  12.    V_SQL :=
  13.          'SELECT DISTINCT(RESULTTABLENAME) FROM SD_T_A01_'
  14.       || ENTERPRISEID
  15.       || ' WHERE ISDEL=0';

  16.    OPEN V_CURSOR FOR V_SQL;

  17.    LOOP
  18.       FETCH V_CURSOR INTO V_TBL_NAME;

  19.       EXIT WHEN V_CURSOR%NOTFOUND;

  20.       IF (V_TBL_NAME IS NULL)
  21.       THEN
  22.          BEGIN
  23.             V_TBL_NAME := 'SD_T_A07_' || ENTERPRISEID;
  24.          END;
  25.       END IF;
  26.     
  27.      V_EXESQL := 'SELECT COUNT(*) FROM USER_OBJECTS WHERE OBJECT_NAME = UPPER (''' || V_TBL_NAME || ''')';
  28.      EXECUTE IMMEDIATE V_EXESQL INTO V_EXITOBJ;
  29.     
  30.      IF V_EXITOBJ > 0
  31.       THEN
  32.         NULL;
  33.          V_EXITOBJ := 0;
  34.          V_EXESQL := 'SELECT COUNT(*) FROM USER_TAB_COLUMNS WHERE TABLE_NAME = UPPER('''|| V_TBL_NAME || ''') AND COLUMN_NAME = ''SURVEYRESULT''';
  35.          EXECUTE IMMEDIATE V_EXESQL INTO V_EXITOBJ;
  36.          IF V_EXITOBJ > 0
  37.          THEN
  38.             V_SQL := 'ALTER TABLE '|| V_TBL_NAME|| ' ADD SurveyResult VARCHAR2(500)';
  39.             EXECUTE IMMEDIATE V_SQL;
  40.          END IF;
  41.       END IF;
  42.       
  43.    END LOOP;

  44.    COMMIT;
  45. END INSERTTABLESBYENTERPRISEID;
阅读(512) | 评论(0) | 转发(0) |
给主人留下些什么吧!~~