数据库对象更新维护示例

场景

测试系统升级改造会动现有库中的一些对象和关系，在对原有对象处理时需要定义一些规则降低不必要的风险。

尽力保证不要有删除操作、不要发生覆盖或丢失的情况。

示例

DECLARE
  BERSQL  VARCHAR2(100) := 'ALTER TABLE NSBRANCH RENAME TO NSBRANCH_BACK'; /*创建建视图前转储当前表*/
  DBLINK  VARCHAR2(40) := 'SMS_DBLINK'; /*DBLINK的名称*/
  VIEWSQL VARCHAR2(400) := 'CREATE OR REPLACE VIEW NSBRANCH AS SELECT A.BRANCH_NO AS BRNO,A.BRANCH_NAME AS BRNAME,A.BRANCH_TYPE AS ISCENTER,NULL AS CTACNTNO,NULL AS BANKACNTNO,NULL AS OPENBANK,NULL AS ADDRESS FROM CPM_BRANCH@SMS_DBLINK A'; /*创建视图*/
  TMP_STR VARCHAR2(80) := NULL; /*视图名称_NSBRANCH*/
BEGIN
  SELECT A.DB_LINK INTO TMP_STR FROM USER_DB_LINKS A WHERE A.DB_LINK = DBLINK;
  /*如果没有所需要的DB_LINK就抛异常*/
  IF TMP_STR IS NULL THEN
    RAISE_APPLICATION_ERROR(-20000,
                            '执行此语句所需要的DBLINK未创建或未正常工作请检查,DBLINK名称[' ||
                            DBLINK || ']');
  END IF;
  TMP_STR := NULL;
  SELECT A.OBJECT_NAME INTO TMP_STR FROM USER_OBJECTS A 
	WHERE A.OBJECT_NAME = 'NSBRANCH'AND A.OBJECT_TYPE = 'TABLE';
  /**如果表存在就转储此表,然后创建视图*/
  IF TMP_STR IS NOT NULL THEN
    EXECUTE IMMEDIATE BERSQL;
  END IF;
  EXECUTE IMMEDIATE VIEWSQL;
EXCEPTION
  WHEN OTHERS THEN
    DBMS_OUTPUT.PUT_LINE(SQLERRM);
END;