CLSQL 中带有 select 函数的子查询

Question

我正在尝试使用 clsql:select 函数创建子查询：

CL-USER> (select [books.bookid] 
         :from [books] 
         :where
           (sql-in [books.bookid]
               (select [bookid] 
                   :from [bookauthors]
                   :where 
                   (sql-= [bookauthors.authorid] 120))))
;; 2015-03-07T06:37:08 /books/ => SELECT BOOKID FROM BOOKAUTHORS WHERE (BOOKAUTHORS.AUTHORID = 120)
;; 2015-03-07T06:37:08 /books/ => SELECT BOOKS.BOOKID FROM BOOKS WHERE (BOOKS.BOOKID IN ((157)))
((157))
("bookid")

它有效，但 clsql 运行两个查询，而不是使用子 select 子句生成一个查询。这不会像让 postgresql 后端处理整个事情那样高效。

CL-USER> (clsql-sys:db-type-has-subqueries? :postgresql)
T

显然 postgresql 连接器支持子查询。有没有办法让 select 函数生成它们？

Answer 1

在你上面的调用中你实际上是运行内部select，然后将结果拼接到外部调用。

您应该使用 sql 表达式而不是函数。如果你 (clsql-sys:file-enable-sql-reader-syntax) 这可以用方括号完成，如下所示。

(select [books.bookid] :from [books] :where [in [books.bookid] [select [bookid] :from [bookauthors] :where [= [bookauthors.authorid] 120]]))

此外，您可能希望使用 :postgresql-socket3 后端，因为它是三个 postgresql clsql 后端中最强大/最新的（它使用 [= postmodern 提供的 13=] 库通过其套接字的第 3 版 api 访问 postgresql。:posgresql-socket 使用 postgres 套接字的第 2 版 api，并且:postgres 通过 C 客户端使用 FFI。

CLSQL 中带有 select 函数的子查询

Subqueries with select function in CLSQL

postgresql

common-lisp

clsql