第四章 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

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 
	}
}

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 
	}
}