如何使用提供的clsql一次插入多條記錄FDML

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已經（或者更恰當地說沒有）列重命名的語法...所以你必須操縱字符串/擴展它來讓它使用符號。