cx_Oracle-подобный пакет для Clojure

Лучше всего использовать Clojure самую идиоматическую библиотеку баз данных clojure.java.jdbc.

Во-первых, поскольку драйвер Oracle недоступен из репозитория maven, нам нужно загрузить последнюю версию и установить ее в нашем локальном репозитории, используя плагин lein-localrepo:

lein localrepo install -r D:\Path\To\Repo\
                          D:\Path\To\ojdbc6.jar
                          oracle.jdbc/oracledriver "12.1.0.1"

Теперь мы можем ссылаться на него в нашем проекте.clj вместе с clojure.java.jdbc.

(defproject oracle-connect "0.1.0-SNAPSHOT"
  :dependencies [[org.clojure/java.jdbc "0.3.3"]
                 [oracle.jdbc/oracledriver "12.1.0.1"]])

После запуска REPL мы можем подключиться к базе данных через соединение по умолчанию/порт/SID по умолчанию

(ns oracle-connect
  (:require [clojure.java.jdbc :as jdbc]))

(def db
  {:classname    "oracle.jdbc.OracleDriver"
   :subprotocol  "oracle:thin"
   :subname      "//@hostname:port:sid"
   :user         "username"
   :password     "password"}))

(jdbc/query db ["select ? as one from dual" 1])

db - это просто базовая карта, называемая db-spec. Это не реальная связь, но есть вся информация, необходимая для ее создания. Clojure.java.jdbc делает один, когда это необходимо, например in (query db..).

Нам нужно ввести имя класса вручную, потому что clojure.java.jdbc не имеет сопоставления по умолчанию между подпротоколом и именем класса для Oracle. Вероятно, это связано с тем, что драйвер JDBC Oracle имеет как тонкие, так и OCI JDBC-соединения.

Чтобы установить соединение с базой данных с именем TNS, драйверу требуется расположение файла tnsnames.ora. Это делается путем установки системного свойства, называемого oracle.net.tns_admin.

(System/setProperty "oracle.net.tns_admin"
                    "D:/oracle/product/12.1.0.1/db_1/NETWORK/ADMIN")

После того, как это установлено, все, что нам нужно для subname, это tnsname базы данных.

(def db
  {:classname    "oracle.jdbc.OracleDriver"
   :subprotocol  "oracle:thin"
   :subname      "@tnsname"
   :user         "username"
   :password     "password"}))

(jdbc/query db ["select ? as one from dual" 1])

Теперь о том, "как работают соединения". Как указано ранее, clojure.java.jdbc создает соединения, когда это необходимо, например, в функции запроса.

Если все, что вы хотите сделать, это преобразовать результаты запроса, вы можете :result-set-fn два дополнительных необязательных именованных параметра :row-fn и :result-set-fn. Каждая строка преобразуется в строку-fn, после чего весь набор результатов преобразуется с помощью результата-fn.

Оба они выполняются в контексте соединения, поэтому гарантируется, что соединение будет открыто до тех пор, пока все эти действия не будут выполнены, если эти функции не возвратят ленивые последовательности.

По умолчанию: result-set-fn определяется как doall гарантирующий, что все результаты реализованы, но если вы переопределите его, обязательно выполните все ленивые результаты. Обычно, когда вы получаете соединение или результат закрытого исключения при использовании результатов вне области видимости, проблема в том, что вы этого не сделали.

Соединение существует только в рамках функции query. В конце он закрыт. Это означает, что каждый запрос приводит к соединению. Если вы хотите, чтобы в одном соединении выполнялось несколько запросов, их можно связать with-db-connection:

(jdbc/with-db-connection [c db]
  (doall (map #(jdbc/query c ["select * from EMP where DEPTNO = ?" %])
               (jdbc/query c ["select * from DEPT"] :row-fn :DEPTNO))))

В связывании with-db-connection вы привязываете db-spec к var и используете этот var вместо операторов db-spec в пределах области привязки. Он создает соединение и добавляет его в var. Другие заявления будут использовать это соединение. Это особенно удобно при создании динамических запросов на основе результатов других запросов.

То же самое происходит with-db-transaction. Он имеет ту же семантику, что и with-db-connection, однако здесь область действия не только гарантирует одно и то же соединение, но также и то, что либо все операторы, либо не удаются, обертывая их в блок транзакций. Как with-db-connection и with-db-transaction -db with-db-transaction являются вложенными.

Существуют также более продвинутые параметры, такие как создание пулов соединений, а не query и др. создавать или повторно использовать отдельные соединения, заставить их нарисовать соединение из пула. См. Документацию clojure-doc.org.