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")