2011年12月24日

clsql で MySQL 接続簡易サンプル

マニュアルはhttp://clsql.b9.com/manual/にある。結構丁寧に書いてある。

(eval-when (:compile-toplevel :load-toplevel :execute)
  (require :clsql))

;; DB に接続
(clsql:connect '("localhost" "cclsample" "root" "")
                   :database-type :mysql)

;; field-names を nil にすると column は返ってこないようにする
(clsql:query "select * from sample" :field-names nil)

;; insert 文発行
(clsql:execute-command "insert into course value('1','sample')")

;; clsql:do-query ループ
(clsql:do-query ((no name)
  "select no,name from sample")
  (format t "~a,~a~%" no name))

;; 接続を切る
(clsql:disconnect)

環境によって文字化けするかも。

blog comments powered by Disqus