do-commands
के लिए स्रोत लें (यहां ) और कॉल को transaction
. पर हटा दें :
(defn drop-database [name]
(sql/with-connection db
(with-open [s (.createStatement (sql/connection))]
(.addBatch s (str "drop database " name))
(seq (.executeBatch s)))))