我只是为了好玩而把自己变成了一个facebook / twitter组合的东西,但我并不是100％肯定一些带有JDBC东西的语义.我不确定如何将字段设置为外键或如何限制varchar字段中的字符数.
(ns twitface.models.migration (:require [clojure.java.jdbc :as sql])) (defn create-tables [] (sql/with-connection (System/getenv "DATABASE_URL") (do (sql/create-table :users [:id :serial "PRIMARY KEY"] [:email :varchar "NOT NULL"] [:password :varchar "NOT_NULL"] [:full-name :varchar "NOT NULL"] [:pref-name :varchar] [:created_at :timestamp "NOT NULL" "DEFAULT CURRENT_TIMESTAMP"]) (sql/create-table :relations [:id :serial "PRIMARY KEY"] [:relating-user :numeric] ; foreign key [:related-user :numeric] ; foreign key [:status :varchar]) (sql/create-table :posts [:id :serial "PRIMARY KEY"] [:user :numeric "NOT NULL"] ; foreign key [:destination-user :numeric "NOT NULL"] ; foreign key [:message :varchar "NOT NULL"] ; 180 char limit [:created_at :timestamp "NOT NULL" "DEFAULT CURRENT_TIMESTAMP"]) (sql/create-table :comments [:id :serial "PRIMARY KEY"] [:user :numeric "NOT NULL"] ; foreign key [:message :varchar "NOT NULL"] ; 180 char limit [:created_at :timestamp "NOT NULL" "DEFAULT CURRENT_TIMESTAMP"]))))
任何帮助,将不胜感激！提前致谢！
解决方法
对于外键,使用引用作为sql：
(defn create-tables [] (sql/with-connection (System/getenv "DATABASE_URL") (do (sql/create-table :users [:id :serial "PRIMARY KEY"] [:email "varchar(50)" "NOT NULL"] [:password "varchar(30)" "NOT NULL"]) (sql/create-table :relations [:id :serial "PRIMARY KEY"] [:related_user :serial "references users (id)"] [:status "varchar(10)"]))))
