(update-values :users ;; table name is 'users'
["fname=?" "guest"] ;; this is same that
{:fname "ezcocoa"})) ;; update users set fname='ezcocoa' where fname='guest'
Source
clojure/contrib/sql.clj:168
top
(defn update-values
"Updates values on selected rows in a table. where-params is a vector
containing a string providing the (optionally parameterized) selection
criteria followed by values for any parameters. record is a map from
strings or keywords (identifying columns) to updated values."
[table where-params record]
(let [[where & params] where-params
column-strs (map as-str (keys record))
columns (apply str (concat (interpose "=?, " column-strs) "=?"))]
(do-prepared
(format "UPDATE %s SET %s WHERE %s"
(as-str table) columns where)
(concat (vals record) params))))
Comments top
No comments for update-values. Log in to add a comment.