#! /usr/bin/gosh
;; -*- coding: utf-8 -*-
;; ----------------------------------------------------------------------
;;	sqlite3_update.scm
;;
;;					Sep/30/2010
;;
;; ----------------------------------------------------------------------
(use dbi)
(use gauche.sequence)
;; ----------------------------------------------------------------------
(define (main args)
(define id_in (cadr args))
(define connection (dbi-connect "dbi:sqlite3:/var/tmp/sqlite3/cities.db"))
(define query (dbi-make-query connection))
;;
(print "*** 開始 ***")
(print id_in)
(let* ((query (dbi-prepare connection
	"delete from cities where ID= ?")))
  (dbi-execute query id_in))
(dbi-close connection)
(print "*** 終了 ***")
0
)
;; ----------------------------------------------------------------------