Question

我正在尝试从sqlite数据库中获取元数据。目前的主要目的是获得一个表格列表。

下面的代码（从这里：link）：

(defn db-get-tables
"Demonstrate getting table info"
[]
(sql/with-connection db
   (into []
      (resultset-seq
       (-> (sql/connection)
           (.getMetaData)
           (.getTables nil nil nil (into-array ["TABLE" "VIEW"])))))))

这给了我一张地图列表，其中包含有关数据库中表格的元数据。但是，如果我尝试迭代这个列表（使用'for'或'first'），它会给我：

"Don't know how to create ISeq from proj00.operations.database$tables-list"

我相信必须有一个简单的方法来做到这一点。但我无法在网上找到合适的信息。此外，我无法理解错误的来源。

Answer 1

可能是因为与数据库的连接仅在“sql / with connection db”范围内打开。如果我使用Microsoft SQL迭代这样的集合，我会收到连接关闭的错误。

如果将resultset-seq包装在doall中，则应该修复此问题。这打破了懒惰，但有利于将所有结果存入内存并能够关闭连接。如果你想保持懒惰，你应该把迭代放在“with-connection”范围内，但是你要保持连接打开直到你完成。

此外，您可以通过制作宏来支持所有元数据方法来概括此功能（感谢VerneriÅberg对我的问题的回答）：

(defmacro get-sql-metadata [db method & args] 
  `(with-connection 
    ~db 
    (doall 
      (resultset-seq 
        (~method 
          (.getMetaData (connection)) 
          ~@args)))))

所以现在你可以使用元数据方法和它自己的参数调用元数据，如下所示：

(get-sql-metadata db .getTables nil nil nil (into-array ["TABLE" "VIEW"]))
or
(get-sql-metadata db .getColumns nil nil nil nil)

<强>跟进：创建了一个连接的测试数据库，一切都应该像这样工作。

Leiningen

  (defproject sqlitetest "1.0.0-SNAPSHOT"
    :description "FIXME: write description"
    :dependencies [[org.clojure/clojure "1.3.0"]
                   [org.xerial/sqlite-jdbc "3.6.16"]
                   [org.clojure/java.jdbc "0.1.0"]])

程序

(ns sqlitetest
  (:use [clojure.java.jdbc]))

(def db { :classname "org.sqlite.JDBC"
          :subprotocol "sqlite"
          :subname "E:/temp/chinook.db"})

(defmacro get-sql-metadata [db method & args]
  `(with-connection
    ~db
    (doall
      (resultset-seq
        (~method
          (.getMetaData (connection))
          ~@args)))))

(def tables-list
  (get-sql-metadata db .getTables nil nil nil (into-array ["TABLE" "VIEW"])))

REPL

sqlitetest=>(map :table_name tables-list)
("SQLITE_SEQUENCE" "ALBUM" "ARTIST" "CUSTOMER" "EMPLOYEE" "GENRE" "INVOICE" "INVOICELINE" "MEDIATYPE" "PLAYLIST" "PLAYLISTTRACK" "TRACK")

sqlitetest=>(first tables-list)   
{:self_referencing_col_name nil, :table_name "SQLITE_SEQUENCE", :type_schem nil, :ref_generation nil, :table_type "TABLE", :table_schem nil, :table_cat nil, :type_cat nil, :type_name nil, :remarks nil}

评论您的评论并回答问题 这个错误是由你的注释中的defn而不是def表格列表引起的。如果我使用defn，我会遇到同样的错误。

Clojure：读取数据库的元数据

1 个答案: