intersystems-cache - 系统间缓存：嵌入 SQL 始终只返回第一行

Question

我从off复制了代码。文档：

&sql(SELECT *,%ID INTO :tflds()   
        FROM Sample.Person )
   IF SQLCODE=0 {
     SET firstflds=14
     FOR i=0:1:firstflds { 
       IF $DATA(tflds(i)) {
       WRITE "field ",i," = ",tflds(i),! }
     } }
   ELSE {WRITE "SQLCODE error=",SQLCODE,! }

但由于某种原因，它只返回第一行的所有字段，没有别的。这是一个错误，还是我做错了什么？

Answer 1

您需要使用游标来遍历 SQL 查询结果的行。

&sql(declare c1 cursor for SELECT *,%ID INTO :tflds()   
    FROM Sample.Person)

&sql(open c1)
for  {
  &sql(fetch c1)
  quit:SQLCODE'=0
  set firstflds=14
  for i=0:1:firstflds {
      if $Data(tflds(i)) {
          write "field ",i," = ",tflds(i),!
      }
  }
  write "===NEXT ROW===",!
}

&sql(close c1)

有关详细信息，请参阅http://docs.intersystems.com/latest/csp/docbook/DocBook.UI.Page.cls?KEY=GSQL_esql#GSQL_esql_cursor

Answer 2

嵌入式 SQL 是性能敏感操作的好工具，但如果您需要检索多行，则确实很难处理。所有这些光标业务都是一种痛苦。

考虑改用动态 SQL。它有很好的结果集 - 类似界面。