如何正确定义 SQLKorma 实体的外键？

Question

当我运行使用以下实体配置进行简单查询时。 SqlKorma 生成查询并尝试将 table_b 与 table_a 连接起来，但它使用的字段不存在？

SELECT "table_a"."token", "table_a"."first-name", "table_a"."last-name", "table_b"."item" FROM ("table_a" LEFT JOIN "table_b" ON "table_b"."table_a_id" = "table_b"."token"

我已经在配置中指定了正确的外键，但 sqlKorma 仍然尝试加入 table_a_id?

(declare table_a table_b)

(korma/defentity table_a
                 (korma/pk :token)
                 (korma/database db)
                 (korma/table :table_a)
                 (korma/has-one table_b))

(korma/defentity table_b
                 (korma/pk :token)
                 (korma/database db)
                 (korma/table :table_b)
                 (korma/belongs-to table_a {:fk :token}))

如果我将 table_b PK 设置为 table_a_id 那么查询将工作，但我想使用令牌作为 PK。

Answer 1

我需要像这样在另一边添加外键：

(declare table_a table_b)

(korma/defentity table_a
                 (korma/pk :token)
                 (korma/database db)
                 (korma/table :table_a)
                 (korma/has-one table_b {:fk :token}))

(korma/defentity table_b
                 (korma/pk :token)
                 (korma/database db)
                 (korma/table :table_b)
                 (korma/belongs-to table_a {:fk :token}))

如何正确定义 SQLKorma 实体的外键？

How to I correctly define a foreign key for a SQLKorma entity?

clojure

sqlkorma