第十三章 SQL谓词 IS JSON

原创

学无为 2021-12-23 10:46:42 ©著作权

©著作权归作者所有：来自51CTO博客作者学无为的原创作品，请联系作者获取转载授权，否则将追究法律责任

第十三章 SQL谓词 IS JSON

确定数据值是否为JSON格式。

注意：IRIS版本可用。其他不行。

大纲

scalar-expression IS [NOT] JSON [keyword]

参数

scalar-expression - 正在检查JSON格式的标量表达式。
keyword - 可选—可选值、标量、数组或对象。
默认为VALUE。

描述

IS JSON谓词确定数据值是否为JSON格式。

下面的示例确定谓词是否是格式化正确的JSON字符串，是JSON对象还是JSON数组:

ClassMethod IsJson()
{
  s q1 = "SELECT TOP 5 Name FROM Sample.Person "
  s q2 = "WHERE '{""name"":""Fred"",""spouse"":""Wilma""}' IS JSON"
  s myquery = q1_q2
  s tStatement = ##class(%SQL.Statement).%New()
  s qStatus = tStatement.%Prepare(myquery)
  if qStatus'=1 {
    w "%Prepare failed:" 
    d $System.Status.DisplayError(qStatus) 
    q
  }
  s rset = tStatement.%Execute()
  d rset.%Display()
}

IS JSON(带或不带可选关键字VALUE)对任何JSON数组或JSON对象返回true。

这包括一个空JSON数组'[]'或一个空JSON对象'{}'。

关键字VALUE和关键字SCALAR是同义词。

对于JSON数组oref返回true。

对于JSON对象oref, IS JSON对象返回true。

下面的例子说明了这一点:

ClassMethod IsJson1()
{
  s jarray=[1,2,3,5,8,13,21,34]
  w "JSON array: ",jarray,!
  s myquery = "SELECT TOP 5 Name FROM Sample.Person WHERE ? IS JSON ARRAY"
  s tStatement = ##class(%SQL.Statement).%New()
  s qStatus = tStatement.%Prepare(myquery)
  if qStatus'=1 {
    w "%Prepare failed:" 
    d $System.Status.DisplayError(qStatus) 
    q
  }
  s rset = tStatement.%Execute(jarray)
  d rset.%Display()
}

ClassMethod IsJson2()
{
  s jarray=[1,2,3,5,8,13,21,34]
  w "JSON array: ",jarray,!
  s myquery = "SELECT TOP 5 Name FROM Sample.Person WHERE ? IS JSON OBJECT"
  s tStatement = ##class(%SQL.Statement).%New()
  s qStatus = tStatement.%Prepare(myquery)
  if qStatus'=1 {
    w "%Prepare failed:" 
    d $System.Status.DisplayError(qStatus) 
    q
  }
  s rset = tStatement.%Execute(jarray)
  d rset.%Display()
}

ClassMethod IsJson3()
{
  s jobj={"name":"Fred","spouse":"Wilma"}
  w "JSON object: ",jobj,!
  s myquery = "SELECT TOP 5 Name FROM Sample.Person WHERE ? IS JSON OBJECT"
  s tStatement = ##class(%SQL.Statement).%New()
  s qStatus = tStatement.%Prepare(myquery)
  if qStatus'=1 {
    w "%Prepare failed:" 
    d $System.Status.DisplayError(qStatus) 
    q
  }
  s rset = tStatement.%Execute(jobj)
  d rset.%Display()
}

IS NOT JSON谓词是少数几个可以在WHERE子句中用于流字段的谓词之一。

它的行为与is NOT NULL相同。

如下面的例子所示:

ClassMethod IsJson4()
{
  s q1 = "SELECT Title,%OBJECT(Picture) AS PhotoOref FROM Sample.Employee "
  s q2 = "WHERE Picture IS NOT JSON"
  s myquery = q1_q2
  s tStatement = ##class(%SQL.Statement).%New()
  s qStatus = tStatement.%Prepare(myquery)
  if qStatus'=1 {
    w "%Prepare failed:" 
    d $System.Status.DisplayError(qStatus) 
    q
  }
  s rset = tStatement.%Execute()
  d rset.%Display()
}

IS JSON可以在任何可以指定谓词条件的地方使用，如本手册的谓词概述页面所述。