加入收藏 | 设为首页 | 会员中心 | 我要投稿 李大同 (https://www.lidatong.com.cn/)- 科技、建站、经验、云计算、5G、大数据,站长网!
当前位置: 首页 > 百科 > 正文

postgresql – Postgres和Clojure JDBC中的外键和字符限制

发布时间:2020-12-13 15:59:42 所属栏目:百科 来源:网络整理
导读:我只是为了好玩而把自己变成了一个facebook / twitter组合的东西,但我并不是100%肯定一些带有JDBC东西的语义.我不确定如何将字段设置为外键或如何限制varchar字段中的字符数. 我的代码(带有评论以显示我需要帮助的地方)如下 (ns twitface.models.migration
我只是为了好玩而把自己变成了一个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)"]))))

(编辑:李大同)

【声明】本站内容均来自网络,其相关言论仅代表作者个人观点,不代表本站立场。若无意侵犯到您的权利,请及时与联系站长删除相关内容!

    推荐文章
      热点阅读