Question

有没有办法使用给定的FDML界面一次插入多个记录？

给定的insert-record语句一次只能处理一个值元组，而且调用这个函数的次数是不可数的，而不是一次，这让我很烦恼，我想（实际上没有进行任何分析）这也不是最快的方法。

Answer 1

这样的事情怎么样？

; SLIME 2013-04-02
CL-USER> (ql:quickload "clsql")
To load "clsql":
  Load 1 ASDF system:
    uffi
  Install 1 Quicklisp release:
    clsql
; Fetching #<URL "http://beta.quicklisp.org/archive/clsql/2013-04-20/clsql-20130420-git.tgz">
; 900.99KB
==================================================
922,610 bytes in 1.92 seconds (468.78KB/sec)
; Loading "clsql"
[package uffi]....................................
[package cmucl-compat]............................
[package clsql-sys]...............................
[package clsql]...................................
[package clsql-user]..............................
..................................................
[package ansi-loop]..............................
("clsql")
CL-USER> (ql:quickload "clsql-sqlite3")
To load "clsql-sqlite3":
  Load 1 ASDF system:
    clsql-sqlite3
; Loading "clsql-sqlite3"
[package clsql-uffi]..............................
[package clsql-sqlite3]...........................
[package sqlite3]........
("clsql-sqlite3")
CL-USER> (clsql:connect '("./test.db") :database-type :sqlite3)
#<CLSQL-SQLITE3:SQLITE3-DATABASE ./test.db OPEN {10080C08E3}>
CL-USER> (clsql:enable-sql-reader-syntax)
; No value
CL-USER> (clsql:create-table [test_insert]
                             '(([id] integer)
                               ([first_name] text)
                               ([last_name] text)))
; No value
CL-USER> (clsql:insert-records :into [test_insert]
                               :attributes '(id first_name last_name)
                               :values '(0 "John" "Neumann"))
; No value
CL-USER> (clsql:select [id] [first_name] [last_name] :from [test_insert])
((0 "John" "Neumann"))
("ID" "FIRST_NAME" "LAST_NAME")
CL-USER> (clsql:insert-records
           :into [test_insert]
           :attributes '(id first_name last_name)
           :query (clsql:sql-expression :string
           "select 1 as id, 'Albert' as first_name, 'Einstein' as last_name
            union select 2, 'Alan', 'Turing'"))
; No value
CL-USER> (clsql:select [id] [first_name] [last_name] :from [test_insert])
((0 "John" "Neumann") (1 "Albert" "Einstein") (2 "Alan" "Turing"))
("ID" "FIRST_NAME" "LAST_NAME")

也许你可以用其他方式构造插入查询（其他数据库可能提供不同的语法）。 clsql已经（或者更确切地说没有）用于列重命名的语法...因此您必须操纵字符串/扩展它以使其使用符号。

如何使用clsql提供的FDML一次插入多个记录

1 个答案: