若我想批量插入，该怎么操作？是这样拼多个？还是有更简便的写法？

Question

Clojure 新手求教(sql/with-connection mysql-db   (sql/insert-records :fruit     {:name "Apple" :appearance "rosy" :cost 24}     {:name "Orange" :appearance "round" :cost 49}     {:name "Orange" :appearance "round" :cost 49}     .     .     .     ))

Answer 1

一般来说可以直接使用insert!函数，比如

(defn insert-rows-fruit  "Insert complete rows"
  [db]
  (j/insert! db
    :fruit
    nil ; column names not supplied
    [1 "Apple" "red" 59 87]
    [2 "Banana" "yellow" 29 92.2]
    [3 "Peach" "fuzzy" 139 90.0]
    [4 "Orange" "juicy" 89 88.6]))

也可以这样使用：

(defn insert-records-fruit
  "Insert records, maps from keys specifying columns to values"
  [db]
  (j/insert! db    :fruit
    {:name "Pomegranate" :appearance "fresh" :cost 585}
    {:name "Kiwifruit" :grade 93}))

有需要逐条插入的话可以使用doseq 比如

(doseq [to-insert [{:name "Apple" :appearance "rosy" :cost 24}
                   {:name "Orange" :appearance "round" :cost 49}
                   {:name "Orange" :appearance "round" :cost 49}]]
  (sql/insert-records :fruit to-insert))

你还可以使用zipmap函数， zipmap函数接受一组键和一组值，返回一个hash-map，相当于

(apply hash-map (apply concat (interleave [:k1 :k2 :k3] [v1 v2 v3])))

所以你可以这样写：

(sql/with-connection mysql-db
  (let [coll-to-insert (map (partial zipmap [:name :appearance :cost])
                            [["Apple" "rosy" 24]
                             ["Orange" "round" 49]
                             ["Orange" "round" 49]
                             .
                             .
                             .
                             ])]
    (apply (partial sql/insert-records :fruit) coll-to-insert)))