From b1906aca3e39b81e6b39db5dd1dce98996e3df76 Mon Sep 17 00:00:00 2001
From: Carlo Zancanaro <carlo@clearboxsystems.com.au>
Date: Thu, 20 Jun 2013 18:15:43 +1000
Subject: Fix updates, add "use-jdbc!" function to core.

---
 src/clojure_sql/core.clj | 22 +++++++++++++++-------
 1 file changed, 15 insertions(+), 7 deletions(-)

(limited to 'src/clojure_sql/core.clj')

diff --git a/src/clojure_sql/core.clj b/src/clojure_sql/core.clj
index f10d968..e77eeb0 100644
--- a/src/clojure_sql/core.clj
+++ b/src/clojure_sql/core.clj
@@ -58,11 +58,19 @@
 
 (q/set-query-deref-behaviour! run-query)
 
-(let [users (-> (table :users)
-                (project [:id :username :password-hash]))]
-  (insert! (-> users
-               (project [:username]))
-           {:username "john"}
-           {:username "not-john"}
-           {:username "bleep bloop"}))
+
+
+(try
+  (require '[clojure.java.jdbc :as jdbc])
+  (defn use-jdbc! [connection-string]
+    (set-query-executor! (fn [type query] 
+                           (jdbc/with-connection connection-string
+                             (case type
+                               :query (jdbc/with-query-results results query
+                                        (vec results))
+                               :insert (jdbc/do-prepared-return-keys (first query) (next query))
+                               (jdbc/do-prepared (first query) (next query)))))))
+
+  (catch Exception e
+    ))
 
-- 
cgit v1.2.3