有许多不起作用

时间:2016-09-04 19:25:09

标签: clojure korma

我有2张桌子

CREATE TABLE public.user_account
(
  id integer NOT NULL DEFAULT nextval('user_account_id_seq'::regclass),
  email character(50) NOT NULL,
  password character(100) NOT NULL,
  CONSTRAINT user_account_pkey PRIMARY KEY (id)
)

CREATE TABLE public.recipe
(
  id integer NOT NULL DEFAULT nextval('recipe_id_seq'::regclass),
  user_account_id integer NOT NULL,
  name text NOT NULL,
  description text NOT NULL,
  CONSTRAINT recipe_pkey PRIMARY KEY (id),
  CONSTRAINT recipe_user_account_id_fkey FOREIGN KEY (user_account_id)
      REFERENCES public.user_account (id) MATCH SIMPLE
      ON UPDATE NO ACTION ON DELETE NO ACTION
)

这是我的clojure声明

(declare user_account recipe)

(kc/defentity user_account
           (kc/entity-fields :email :password)
           (kc/has-many recipe {:fk :user_account_id})
           )

(kc/defentity recipe
              (kc/entity-fields :user_account_id :name :description)
              (kc/belongs-to user_account {:fk :user_account_id})
              )

我无法使用user_account

选择recipe表格
user=> (sql-only (kc/select user_account  (with recipe) (where {:id 1})))
"SELECT \"user_account\".\"email\", \"user_account\".\"password\" FROM \"user_account\" WHERE (\"user_account\".\"id\" = ?)"

1 个答案:

答案 0 :(得分:1)

我遇到了同样的问题。解决方案是将pk字段添加到父实体中的entity-fields列表中。它真的不直观,似乎问题在于文档很差。所以解决方案应该是:

(declare user_account recipe)

(kc/defentity user_account
           (kc/entity-fields :id :email :password)
;                            ^^^ fix is here 
           (kc/has-many recipe {:fk :user_account_id})
           )

(kc/defentity recipe
              (kc/entity-fields :user_account_id :name :description)
              (kc/belongs-to user_account {:fk :user_account_id})
              )