第四章 SQL命令 ALTER VIEW

修改视图。

大纲

ALTER VIEW view-name [(column-commalist)] AS query [WITH READ ONLY]

ALTER VIEW view-name [(column-commalist)] AS query [WITH [level] CHECK OPTION]

参数

描述

ALTER VIEW命令用于修改视图。
视图基于由SELECT语句或由两个或多个SELECT语句组成的UNION组成的查询的结果集。

要确定当前名称空间中是否存在指定的视图，请使用$SYSTEM.SQL.Schema.ViewExists()方法。

可选的column-commalist指定视图中包含的列的名称。
它们必须在数量和顺序上与SELECT语句中指定的表列相对应。
还可以在SELECT语句中指定这些视图列名作为列名别名。
如果两者都不指定，则使用表列名作为视图列名。

以下示例显示了指定视图列名的两种方法:

ALTER VIEW MyView (MyViewCol1,MyViewCol2,MyViewCol3) AS
     SELECT TableCol1, TableCol2, TableCol3 FROM MyTable

等于:

ALTER VIEW MyView AS SELECT TableCol1 AS ViewCol1,
     TableCol2 AS ViewCol2,
     TableCol3 AS ViewCol3
     FROM MyTable

列规范将替换为视图指定的任何先前的列。

视图查询不能包含主机变量或包含INTO关键字。
如果试图在查询中引用主机变量，系统将生成SQLCODE -148错误。

权限

ALTER VIEW命令是一个特权操作。
用户必须具有%ALTER_VIEW管理权限才能执行ALTER VIEW。
如果不这样做，将导致与的SQLCODE -99错误%msg User 'name' does not have %ALTER_VIEW privileges.

用户必须在指定的视图上拥有%ALTER权限。
如果用户是视图的Owner(创建者)，则自动授予该用户该视图的%ALTER权限。
否则，用户必须被授予视图%ALTER权限。
如果不这样做，将导致带有%msg的SQLCODE -99错误User 'name' does not have privilege to ALTER the view 'Schema.ViewName'.

可以使用GRANT命令分配%ALTER_VIEW和%ALTER权限，如果拥有适当的授予权限。

可以通过调用%CHECKPRIV命令来确定当前用户是否具有%ALTER权限。
可以通过调用$SYSTEM.SQL.Security.CheckPrivilege()方法来确定指定的用户是否具有%ALTER权限。

在嵌入式SQL中，可以使用$SYSTEM.Security.Login()方法以具有适当权限的用户登录:

   DO $SYSTEM.Security.Login("_SYSTEM","SYS")
   &sql(      )

必须具有%Service_Login:Use权限才能调用 $SYSTEM.Security.Login ,

不能在基于从部署的持久类投射的表的视图上使用ALTER VIEW。
此操作失败，并出现一个带有%msg的SQLCODE -400错误Unable to execute DDL that modifies a deployed class: 'classname'.

示例

下面的示例创建一个视图，然后更改该视图。
提供了查询视图和删除视图的程序。
注意，改变视图将列列表替换为一个新的列列表;
它不保留前面的列列表。

/// w ##class(PHA.TEST.SQLCommand).AlterView()
ClassMethod AlterView()
{
    if $SYSTEM.SQL.Schema.ViewExists("MassFolks") {
        w "视图已存在，请运行删除视图"  
        q
    }
    &sql(
        CREATE VIEW MassFolks (vFullName) AS
        SELECT Name FROM Sample.Person WHERE Home_State='MA'
    )
    if SQLCODE=0 { 
        w !,"创建视图",! 
    } else { 
        w "创建视图错误SQLCODE=",SQLCODE 
    }
}

SELECT * FROM MassFolks

image.png

ClassMethod AlterView1()
{
    if 0 = $SYSTEM.SQL.Schema.ViewExists("MassFolks") {
        w "视图不存在"  
        q
    }
    &sql(
        ALTER VIEW MassFolks (vMassAbbrev,vCity) AS
        SELECT Home_State,Home_City FROM Sample.Person WHERE Home_State='MA'
    )
    if SQLCODE = 0 { 
        WRITE !,"修改视图",! 
    } ELSE { 
        WRITE "修改视图错误SQLCODE=",SQLCODE 
    }
}

image.png

DROP VIEW MassFolks

下面的嵌入式SQL示例使用WITH CHECK OPTION查询更改视图:

ClassMethod AlterView2()
{
    DO $SYSTEM.Security.Login("_SYSTEM","SYS")
    &sql(
        ALTER VIEW Sample.MyTestView AS
        SELECT FIRSTWORD FROM Sample.MyTest WITH CHECK OPTION
    )
    if SQLCODE = 0 { 
        WRITE !,"修改视图",! 
    } ELSE { 
        WRITE "修改视图错误SQLCODE=",SQLCODE 
    }
}