diff options
Diffstat (limited to 'examples/sqlite3.tcl')
-rw-r--r-- | examples/sqlite3.tcl | 8 |
1 files changed, 8 insertions, 0 deletions
diff --git a/examples/sqlite3.tcl b/examples/sqlite3.tcl new file mode 100644 index 0000000..9365cdf --- /dev/null +++ b/examples/sqlite3.tcl @@ -0,0 +1,8 @@ +set db [sqlite3.open :memory:] +$db query {CREATE TABLE plays (id, author, title)} +$db query {INSERT INTO plays (id, author, title) VALUES (1, 'Goethe', 'Faust');} +$db query {INSERT INTO plays (id, author, title) VALUES (2, 'Shakespeare', 'Hamlet');} +$db query {INSERT INTO plays (id, author, title) VALUES (3, 'Sophocles', 'Oedipus Rex');} +set res [$db query "SELECT * FROM plays"] +$db close +foreach r $res {puts $r(author)} |