#!racket
 
(require db)
 
;; sqlite3へ接続し、"myfriend.sqlite3"と言う名前のデータベースファイルを作成
(define slc
  (sqlite3-connect #:database "myfriend.sqlite3"
                   #:mode 'create))
 
;; query-excec で接続したデータベースへとSQLを転送する
(query-exec
 slc
 "create table user(id integer, name text, old integer, address text)")
(for-each (lambda (x)
            (query-exec slc x))
          '("insert into user values(1, 'Yamada', 19, 'Tokyo')"
            "insert into user values(3, 'Mori', 32, 'Kyoto')"
            "insert into user values(5, 'Ueda', 27, 'Tokyo')"
            "insert into user values(6, 'Mitsui', 20, 'Nagoya')"))
(query slc "select * from user;")
 
;; sqlite3との接続を停止する。
(disconnect slc)
 

IyFyYWNrZXQKCihyZXF1aXJlIGRiKQoKOzsgc3FsaXRlM+OBuOaOpee2muOBl+OAgSJteWZyaWVuZC5zcWxpdGUzIuOBqOiogOOBhuWQjeWJjeOBruODh+ODvOOCv+ODmeODvOOCueODleOCoeOCpOODq+OCkuS9nOaIkAooZGVmaW5lIHNsYwogIChzcWxpdGUzLWNvbm5lY3QgIzpkYXRhYmFzZSAibXlmcmllbmQuc3FsaXRlMyIKICAgICAgICAgICAgICAgICAgICM6bW9kZSAnY3JlYXRlKSkKCjs7IHF1ZXJ5LWV4Y2VjIOOBp+aOpee2muOBl+OBn+ODh+ODvOOCv+ODmeODvOOCueOBuOOBqFNRTOOCkui7oumAgeOBmeOCiwoocXVlcnktZXhlYwogc2xjCiAiY3JlYXRlIHRhYmxlIHVzZXIoaWQgaW50ZWdlciwgbmFtZSB0ZXh0LCBvbGQgaW50ZWdlciwgYWRkcmVzcyB0ZXh0KSIpCihmb3ItZWFjaCAobGFtYmRhICh4KQogICAgICAgICAgICAocXVlcnktZXhlYyBzbGMgeCkpCiAgICAgICAgICAnKCJpbnNlcnQgaW50byB1c2VyIHZhbHVlcygxLCAnWWFtYWRhJywgMTksICdUb2t5bycpIgogICAgICAgICAgICAiaW5zZXJ0IGludG8gdXNlciB2YWx1ZXMoMywgJ01vcmknLCAzMiwgJ0t5b3RvJykiCiAgICAgICAgICAgICJpbnNlcnQgaW50byB1c2VyIHZhbHVlcyg1LCAnVWVkYScsIDI3LCAnVG9reW8nKSIKICAgICAgICAgICAgImluc2VydCBpbnRvIHVzZXIgdmFsdWVzKDYsICdNaXRzdWknLCAyMCwgJ05hZ295YScpIikpCihxdWVyeSBzbGMgInNlbGVjdCAqIGZyb20gdXNlcjsiKQoKOzsgc3FsaXRlM+OBqOOBruaOpee2muOCkuWBnOatouOBmeOCi+OAggooZGlzY29ubmVjdCBzbGMpCg==