第十二章 使用嵌入式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.



