create-table带有自动增量列？

Question

CREATE TABLE的sql模块为Racket的sql语句提供了抽象的create-table。

我应该如何提供列的规范(即id)与AUTO INCREMENT？

当我尝试的时候

(create-table numbers
  #:columns [n integer #:not-null #:auto-increment] [t text]
  #:constraints (primary-key n))

然后它会显示错误：

create-table: unexpected term
  parsing context: 
    while parsing ColumnDef
    while parsing CreateTableInner in: #:auto-increment

是否可以在create-table中指定自动增量列

Answer 1

据我所知，sql包中的create-table不处理auto-increment。相反，可以考虑直接使用query-exec。这是Rosetta Code的一个片段。

#lang at-exp racket

(require db)
(define postal (sqlite3-connect #:database "/tmp/postal.db" #:mode 'create))

(define (add! name street city state zip)
  (query-exec postal
    @~a{INSERT INTO addresses (name, street, city, state, zip)
        VALUES (?, ?, ?, ?, ?)}
    name street city state zip))

(unless (table-exists? postal "addresses")
  (query-exec postal
    @~a{CREATE TABLE addresses(
          id INTEGER PRIMARY KEY,
          name   TEXT NOT NULL,
          street TEXT NOT NULL,
          city   TEXT NOT NULL,
          state  TEXT NOT NULL,
          zip    TEXT NOT NULL)}))

点击此处查看更多信息：https://rosettacode.org/wiki/Table_creation/Postal_addresses#Racket