文章
姚 鑫 · 三月 22 阅读大约需 1 分钟

第十二章 使用嵌入式SQL(六)

第十二章 使用嵌入式SQL(六)

持久类方法中的嵌入式SQL

下面的示例显示了一个持久类,其中包含一个类方法和一个实例方法,两者都包含嵌入式SQL:

Class Sample.MyClass Extends %Persistent [DdlAllowed]
 { 
 ClassMethod NameInitial(Myval As %String) As %String [SqlProc]
  {
     &sql(SELECT Name INTO :n FROM Sample.Stuff WHERE Name %STARTSWITH :Myval)
        IF SQLCODE<0 {WRITE "SQLCODE error ",SQLCODE  RETURN %msg}
        ELSEIF SQLCODE=100 {WRITE "Query returns no results"  RETURN}
   WRITE "Hello "  RETURN n
  }
 Method CountRows() As %Integer
  {
   &sql(SELECT COUNT(*) INTO :count FROM Sample.Stuff)
        IF SQLCODE<0 {WRITE "SQLCODE error ",SQLCODE  RETURN %msg}
        ELSEIF SQLCODE=100 {WRITE "Query returns no results"  RETURN}
   WRITE "Number of rows is "  RETURN count
  }
 }

类方法的调用如下:

 WRITE ##class(Sample.MyClass).NameInitial("G")

实例方法的调用如下:

  SET x=##class(Sample.MyClass).%New()
  WRITE x.CountRows()

要成功编译这些方法,不必存在诸如表和字段之类的SQL实体。由于检查SQL实体是否存在是在运行时执行的,因此嵌入式SQL方法应包含SQLCODE测试逻辑。

以测试嵌入式SQL中指定的SQL实体是否存在,而无需执行代码。验证嵌入式SQL代码中对此进行了描述。

验证嵌入式SQL代码

可以通过两种方式验证嵌入式SQL代码而无需执行代码:

  • 使用/compileembedded = 1限定符编译包含嵌入式SQL代码的例程。
  • 使用$SYSTEM.OBJ.GenerateEmbedded()方法编译多个嵌入式SQL例程。
  • 使用管理门户网站SQL界面的“显示计划”选项测试嵌入式SQL代码。

使用/compileembedded限定符进行编译

可以通过使用$SYSTEM.OBJ类的编译类方法并在qspec参数中指定/ compileembedded = 1限定符来验证嵌入式SQL代码。
- $SYSTEM.OBJ.Compile()编译指定的类以及该类中的所有例程。
- $SYSTEM.OBJ.CompileList()编译指定类的列表以及这些类中的所有例程。
- $SYSTEM.OBJ.CompilePackage()编译指定包(架构)中的所有类/例程。
- $SYSTEM.OBJ.CompileAll()编译当前名称空间中的所有类/例程。
- $SYSTEM.OBJ.CompileAllNamespaces()编译所有命名空间中的所有类/例程。

要显示qspec限定词(包括/compileembedded)的列表,请调用:

  DO $SYSTEM.OBJ.ShowQualifiers()

使用Show Plan进行测试

可以使用Management Portal SQL界面来验证嵌入式SQL代码,而无需执行该代码。此操作既可以验证SQL语法,也可以检查指定的SQL实体是否存在。

从Management Portal System Explorer选项中,选择SQL选项以显示Execute Query code区域。

  1. 输入嵌入式SQL查询。例如,SELECT Name INTO:n from Sample.MyTest或DECLARE MyCursor CURSOR FOR SELECT Name,Age INTO:n,:a FROM Sample.MyTest,age> 21,仅供只读。
  2. 按下显示计划按钮以检查代码。如果代码有效,则“显示计划”将显示一个查询计划。如果代码无效,则“显示计划”将显示SQLCODE错误值和消息。

image

请注意,如果缺少INTO子句,Show Plan验证将不会发出错误,因为可以在FETCH语句中指定INTO子句。如果INTO子句包含错误或位于错误的位置,则Show Plan将发出适当的错误。

不能使用“执行”按钮执行嵌入式SQL代码。

审核嵌入式SQL

InterSystems IRIS支持对嵌入式SQL语句的可选审核。满足以下两个要求时,将执行嵌入式SQL审核:

  1. %System /%SQL / EmbeddedStatement系统审核事件在系统范围内启用。默认情况下,未启用此系统审核事件。要启用,请依次转到管理门户,系统管理,安全性,审核,然后配置系统事件。
  2. 包含嵌入式SQL语句的例程必须包含#SQLCompile Audit宏预处理程序指令。如果此伪指令设置为ON,则在执行时将审核编译例程中跟在其后的任何嵌入式SQL语句。

审核将信息记录在审核数据库中。要查看审核数据库,请依次转到管理门户,系统管理,选择安全性,审核,然后查看审核数据库。可以将“事件名称”过滤器设置为Embedded Statement,以将“查看审核数据库”限制为“嵌入式SQL”语句。审核数据库列出了时间(本地时间戳记),用户,PID(进程ID)和描述,它们指定了嵌入式SQL语句的类型。例如,SQL SELECT语句。

image

通过选择事件的详细信息链接,可以列出其他信息,包括事件数据。事件数据包括执行的SQL语句和该语句的任何输入参数的值。例如:

SELECT TOP :n Name,ColorPreference INTO :name,:color FROM Sample.Stuff WHERE Name %STARTSWITH :letter 
Parameter values: 
n=5 
letter="F"

InterSystems IRIS还支持对动态SQL语句(事件名称= DynamicStatement)以及ODBC和JDBC语句(事件名称= XDBCStatement)进行审核。

00
1 0 0 22
Log in or sign up to continue