2

有谁知道是否可以使用clojure或java通过jdbc从数据库生成“创建表脚本”？

我可以从系统表或信息模式中获取，但每个不同的数据库类型会有所不同。例如，MSSQL 必须是查询才能从信息模式构建创建表（或视图），并从 ibm.systables 构建 db2。希望这个问题以前在 JDBC 世界中已经解决了。

例如，我希望区分源数据库和目标数据库之间的创建表语句。

谢谢，

4

2 回答 2

1

在 MySQL 中，您可以使用show create table：

(require '[clojure.java.jdbc :as jdbc])

(defn gen-script [db table]
  (jdbc/with-connection db
    (jdbc/with-query-results rs [(str "show create table " table)]
      (get (first rs) (keyword "create table")))))

测试：

(def db {:classname "com.mysql.jdbc.Driver"
         :subprotocol "mysql"
         :subname (str "//localhost:3306/testtest")
         :user "root"
         :password "..."})

(println (gen-script db "example"))

=> CREATE TABLE `example` (
     `id` int(11) NOT NULL AUTO_INCREMENT,
     `name` varchar(30) DEFAULT NULL,
     `age` int(11) DEFAULT NULL,
     PRIMARY KEY (`id`)
   ) ENGINE=InnoDB DEFAULT CHARSET=latin1

在其他数据库中，您可以从以下数据库开始：

(defn- gen-script [db table]
  (jdbc/with-connection db
    (let [conn (jdbc/connection)
          meta (.getMetaData conn)]
      (format "create table %s (\n%s\n)"
         table
         (apply str
           (interpose ",\n"
            (map (fn [x]
                   (format "  %s %s(%s)%s%s%s"
                      (:column_name x)
                      (:type_name x)
                      (:column_size x)
                      (if (not= "YES" (:is_nullable x)) " NOT NULL" "")
                      (if (= "YES" (:is_autoincrement x)) " AUTO_INCREMENT""")             
                      (if (= "YES" (:column_def x)) " DEFAULT" "")))
                 (resultset-seq (.getColumns meta nil nil table "%")))))))))

测试：

(println (gen-script db "example"))

=> create table example (
     id INT(10) NOT NULL AUTO_INCREMENT,
     name VARCHAR(30),
     age INT(10)

)

于 2013-03-22T18:23:16.550 回答
0

尝试使用休眠工具项目。它将生成一个休眠映射，您可以从中生成创建语句。

但是，当您的数据库可以为您做到这一点时，为什么要那样做......

于 2013-03-22T13:36:13.540 回答