Hello,
I'm trying to deal with sqlite on scheme.
I can create new table and insert new notes, but i can't delete records from
table.
#lang racket
(require (prefix-in sqlite: (planet jaymccarthy/sqlite:4)))
(define-struct notepad (db))
(define-struct note (notepad id))
(define (initialize-notepad! home)
(define db (sqlite:open home))
(define the-notepad (make-notepad db))
(with-handlers ([exn? void])
(sqlite:exec/ignore db
(string-append
"CREATE TABLE notes "
"(id INTEGER PRIMARY KEY,"
"description TEXT)")))
(sqlite:insert db (format "INSERT INTO notes (description) VALUES
('~a')" "Some text"))
the-notepad)
this works fine.
(define (delete-entry! a-notepad id)
(sqlite:exec/ignore (notepad-db a-notepad)
(format "DELETE FROM notes WHERE id = '~a'" id)))
but this doesn't remove anythng.
Where i'm wrong?
Thanks.
_________________________________________________
For list-related administrative tasks:
http://lists.racket-lang.org/listinfo/users
