diff options
| author | scgilardi <scgilardi@gmail.com> | 2009-01-04 22:33:49 +0000 |
|---|---|---|
| committer | scgilardi <scgilardi@gmail.com> | 2009-01-04 22:33:49 +0000 |
| commit | 4b7ca1275029a6de7aa4f57e693da6e74f54e162 (patch) | |
| tree | 8ed010169c4d5d97b0adb36fdcba6fe35c48a174 /src/clojure/contrib/sql | |
| parent | 47ca09aff121cbf2cba6efe2405294b9931faadc (diff) | |
sql: add db-get-tables
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 |