0

使用 Clojure 和 hugsql。我这样定义我的查询。

-- :name query-should-return-one-but-returns-multiple
-- :result one
-- :command :query
SELECT v.id FROM some_table v;

using 之后，这将在我的命名空间中def-db-fns创建一个函数。query-should-return-one-but-returns-multiple

但是，如果我有不止一行some_table，此函数将简单地返回任意行，并且不会发出错误信号。

:one如果数据库返回多个结果，我如何强制定义的查询函数返回抛出异常？

4

1 回答 1

1

-- :result :one只需获取查询返回结果集的第一行，因此无法验证您的查询是否恰好返回 1 条记录（哈希图）。

但是，HugSQL 使用 Clojure 多方法来定义其结果类型，因此您可以创建自己的方法或覆盖现有方法以满足您的需求。

我们定义了一个函数result-exactly-one，当结果计数不为 1 时将抛出异常。hugsql-result-fn然后我们用:exactly-one关键字定义多方法。请注意引用user我们创建的函数的命名空间（在这种情况下）符号。

(require '[hugsql.core :as hugsql]
         '[hugsql.adapter])

(defn result-exactly-one
  [this result options]
  (let [rs (hugsql.adapter/result-many this result options)]
    (if (= 1 (count rs)) 
        rs 
        (throw (ex-info "Oops!" {})))))

(defmethod hugsql/hugsql-result-fn :exactly-one [sym] 'user/result-exactly-one)

-- :name return-exactly-one
-- :result :exactly-one
-- :command :query
SELECT v.id FROM t1 v;

以及返回 0 条或多条记录时的结果：

user=> (return-exactly-one db)

ExceptionInfo Oops!  clojure.core/ex-info (core.clj:4617)
于 2016-09-26T21:20:33.953 回答