1 package require sqlite3
3 set db
[sqlite3.
open :memory:]
4 $db query
{CREATE TABLE plays
(id
, author
, title
)}
5 $db query
{INSERT INTO plays
(id
, author
, title
) VALUES
(1, 'Goethe'
, 'Faust'
);}
6 $db query
{INSERT INTO plays
(id
, author
, title
) VALUES
(2, 'Shakespeare'
, 'Hamlet'
);}
7 $db query
{INSERT INTO plays
(id
, author
, title
) VALUES
(3, 'Sophocles'
, 'Oedipus Rex'
);}
8 set res
[$db query
"SELECT * FROM plays"]
10 foreach r
$res {puts $r(author
)}
