sql - Clojure:读取数据库的元数据

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"])))))))

这给了我一个 map 列表，其中包含关于数据库中表格的元数据。但是，如果我尝试迭代此列表(使用“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)

跟进:创建了一个测试数据库，已连接，一切都应该像这样工作。

莱宁根

  (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"])))

回复

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，我会遇到同样的错误。