0

我第一次尝试在 、 和 中luminus执行h2hugsql操作clojure

insert语句在连接到h2数据库的 SQL 客户端中输入时工作正常,但在代码中失败。似乎它与查询的WHERE id = :id子句有关get-assessor,但找不到这样做的方法。

在文件中./resources/sql/queries.sql

-- :name get-assessor :? :1
-- :doc retrieve a assessor given the id.
SELECT * FROM assessores
WHERE id = :id

-- :name save-assessor! :n
-- :doc creates new assessor
INSERT INTO assessores
    (first_name,
    last_name,
    email,
    phone,
    address1,
    address2,
    post_code,
    post_code_city,
    birth_date,
    tax_number,
    to_buy,
    to_sell,
    to_career,
    first_message,
    is_active)
VALUES (:first_name,
    :last_name,
    :email,
    :phone,
    :address1,
    :address2,
    :post_code,
    :post_code_city,
    :birth_date,
    :tax_number,
    :to_buy,
    :to_sell,
    :to_career,
    :first_message,
    :is_active)

在文件中:./test/db/core.clj

(deftest test-assessores
  (jdbc/with-db-transaction [t-conn *db*]
    (jdbc/db-set-rollback-only! t-conn)
    (let [timestamp (java.util.Date.)]
      (is (= 1 (db/save-assessor!
                 t-conn
                 {:first_name "Bob"
          :last_name            "Singer"
          :email                "lpe@gmail.com"
          :phone                "888232418"
          :address1             "10 st"
          :address2             "VNC"
          :post_code            "9990-990"
          :post_code_city       "Cer"
          :birth_date           "1962-06-06"
          :tax_number           204559449
          :to_buy               true
          :to_sell              false
          :to_career            false
          :first_message        "how to buy?"
          :is_active            true}
                 {:connection t-conn})))

      (is (=
           {:first_name "Bob"
          :last_name            "Singer"
          :email                "lpe@gmail.com"
          :phone                "888232418"
          :address1             "10 st"
          :address2             "VNC"
          :post_code            "9990-990"
          :post_code_city       "Cer"
          :birth_date           "1962-06-06"
          :tax_number           204559449
          :to_buy               true
          :to_sell              false
          :to_career            false
          :first_message        "how to buy?"
          :is_active            true}
           (-> (db/get-assessor t-conn {})
               (first)
               (select-keys [:first_name ])))))))

返回(截断)的消息是:

org.h2.jdbc.JdbcSQLException: Method is only allowed for a query. Use execute or executeUpdate instead of executeQuery; SQL statement:
                              INSERT INTO assessores
                                (first_name,
                                last_name,
                                email,
                                phone,
                                address1,
                                address2,
                                post_code,
                                post_code_city,
                                birth_date,
                                tax_number,
                                to_buy,
                                to_sell,
                                to_career,
                                first_message,
                                is_active)
                              VALUES ( ? ,
                                ? ,
                                ? ,
                                ? ,
                                ? ,
                                ? ,
                                ? ,
                                ? ,
                                ? ,
                                ? ,
                                ? ,
                                ? ,
                                ? ,
                                ? ,
                                ? ) [90002-192]
                SQL: "INSERT INTO assessores\n\t(first_name,\n\tlast_name,\n\temail,\n\tphone,\n\taddress1,\n\taddress2,\n\tpost_code,\n\tpost_code_city,\n\tbirth_date,\n\ttax_number,\n\tto_buy,\n\tto_sell,\n\tto_career,\n\tfirst_message,\n\tis_active)\nVALUES ( ? ,\n\t? ,\n\t? ,\n\t? ,\n\t? ,\n\t? ,\n\t? ,\n\t? ,\n\t? ,\n\t? ,\n\t? ,\n\t? ,\n\t? ,\n\t? ,\n\t? )"
           SQLState: "90002"
          errorCode: 90002
    originalMessage: "Method is only allowed for a query. Use execute or executeUpdate instead of executeQuery"

ERROR in (test-assessores) (core.clj:4617)

clojure.lang.ExceptionInfo: Parameter Mismatch: :id parameter data not found.

Testing orio.test.handler
(...)
Ran 2 tests containing 4 assertions.
0 failures, 2 errors.
Tests failed.

如何解决这个问题?

4

1 回答 1

1
-- :name save-assessor! :n

应该

-- :name save-assessor! :! :n

见: https ://www.hugsql.org/#command

该命令默认为:?表示它是一个非修改查询。对于插入/更新语句,:!应在定义中使用 a。

编辑:在提供了更多信息之后——看起来(get-assessor)正在寻找一个参数:id(从你在 HUGSql 文件中的定义可以看出)。

我会在该文件中创建一个新查询。就像是(get-first-assessor)

-- :name get-first-assessor :? :1 -- :doc get the first assessor in the system, ordred by id SELECT * FROM assessores ORDER BY id ASC LIMIT 1

然后在你的测试中(get-assessor t-conn {})替换你的调用(get-first-assessor t-conn {})

于 2018-05-07T19:37:58.837 回答