问题描述
我正在尝试在 CLsql 中使用简单的 SELECT。我尝试了很多排列,如下图:
(clsql:select 'dept_name
:from 'dept
:where (= 'dept_id 1))
;; Error
;; DEPT_ID is not of type NUMBER
;; though dept_id is of type INTEGER
(clsql:select 'dept_name
:from 'dept
:where [= id 'dept_id])
;; Error
;; The variable [= is unbound.
;; [Condition of type UNbound-variable]
(clsql:select [dept.dept_name]
:from [dept]
:where [= [dept.dept_id] 2])
;; Error
;; The variable [DEPT.DEPT_NAME] is unbound.
(clsql:select 'dept
:where [= [slot-value 'dept 'dept-id] 1])
;; Error
;; The variable [= is unbound.
;; [Condition of type UNbound-variable]
但是,查询
(clsql:select 'dept_name
:from 'dept)
返回包含一个元素 (dept_name)
列表的列表中的所有部门名称。
我已经声明了一个视图类。
(clsql:def-view-class dept ()
((dept-id
:db-kind :key
:db-constraints :not-null
:type integer
:initarg :dept-id)
(dept-name
:accessor dept-name
:type (string 10)
:initarg :dept-name))
(:base-table dept))
对应具有两个属性的表dept
。
我也启用了
(clsql:locally-enable-sql-reader-Syntax)
我不知道我缺少什么以及如何让它发挥作用。
解决方法
我认为我所有的实验都是错误的。首先,我们需要使用 (clsql:locally-enable-sql-reader-syntax)
而不是使用 (clsql:enable-sql-reader-syntax)
。 Locally 仅适用于文件内。请参阅 Reddit 论坛中的此 comment。