2012年2月13日月曜日

RacketでSQLite3

RacketでDBアクセスを行ってみます. Windows版だとインストールしただけでSQLite3が使えるようです.


#lang racket
(require (prefix-in db: db))

(define con
(db:sqlite3-connect
#:database "sqlte3-test"
#:mode 'create))

(define (create-table con)
(db:query-exec
con
"create table kv(key text, value text)"))

(define (insert-values con)
(let ((q (db:prepare
con
"insert into kv(key, value) values($1, $2)")))
(db:query-exec con q "A" "1")
(db:query-exec con q "B" "2")))

(define (select-values con key)
(let ((q (db:prepare con "select value from kv where key = $1")))
(db:query-list con q key)))


;; (create-table con)
;; (insert-values con)
;; (select-values con "A") ;; => '("1")

0 件のコメント:

コメントを投稿