Clojure学习——使用clojure jdbc操作mysql

一、在mysql库中建需要的test库和users表。

CREATE DATABASE test;
CREATE TABLE `users` (
  `id` int(11) NOT NULL AUTO_INCREMENT,
  `name` varchar(20) DEFAULT NULL,
  `email` varchar(100) DEFAULT NULL,
  PRIMARY KEY (`id`)
);

二、新建lein项目(lein new examples)。

三、编辑examples项目的project.clj文件，添加需要的jdbc依赖包。

(defproject examples "0.1.0-SNAPSHOT"
  :description "FIXME: write description"
  :url "http://example.com/FIXME"
  :license {:name "Eclipse Public License"
            :url "http://www.eclipse.org/legal/epl-v10.html"}
  :dependencies [[org.clojure/clojure "1.4.0"]
                 [org.clojure/java.jdbc "0.2.3"]
                 [mysql/mysql-connector-java "5.1.21"]])

四、下载依赖（lein deps）。（PS:由于我用的IDE是IntelliJ IDEA，且现在的IDE对于lein2支持不是太好。我就只好再打个命令：lein pom 生成pom文件，然后再用IntelliJ IDEA打开pom文件来导入工程了。)

五、编写代码。src/examples/jdbc.clj代码如下：

(ns examples.jdbc
  (:require [clojure.java.jdbc :as sql]))

(def mysql-db {:subprotocol "mysql"
               :subname "//127.0.0.1:3306/test"
               :user "root"
               :password "123456"})

;;;在users表中插入三条记录
(sql/with-connection mysql-db
  (sql/insert-records :users
    {:name "bill" :email "[email protected]" }
    {:name "ken" :email "[email protected]"}
    {:name "lili" :email "lili"}))

;;查询并打印第一条记录的name字段
;;可以在命令行：lein run -m examples.jdbc 查看运行结果
(defn -main []
  (let [name (sql/with-connection mysql-db
    (sql/with-query-results rows
      ["SELECT * FROM users "]
      (:name (first rows))))]
    (prn name)))

我知道的运行上面代码的几种方法：
1、直接使用lein run -m examples.jdbc运行。
2、lein repl命令启动后，拷贝进去跑就是了。
3、通过IntelliJ IDEA来运行。

最后，附上本例子工程的到附件中。

参考资料： https://github.com/technomancy/leiningen/blob/master/doc/TUTORIAL.md
https://github.com/clojure/java.jdbc