diff options
Diffstat (limited to 'src/clojure/contrib/sql')
| -rw-r--r-- | src/clojure/contrib/sql/test.clj | 8 |
1 files changed, 8 insertions, 0 deletions
diff --git a/src/clojure/contrib/sql/test.clj b/src/clojure/contrib/sql/test.clj index 314a1c40..d33db81b 100644 --- a/src/clojure/contrib/sql/test.clj +++ b/src/clojure/contrib/sql/test.clj @@ -80,6 +80,14 @@ (doseq [rec res] (println rec)))))) +(defn db-get-tables [] + (sql/with-connection db + (into [] + (resultset-seq + (.getTables + (.getMetaData (sql/connection)) + nil nil nil (into-array ["TABLE" "VIEW"])))))) + (defn db-exception [] (sql/with-connection db (sql/transaction |