File: sqlite3test.tcl

package info (click to toggle)
openocd 0.5.0-1
  • links: PTS
  • area: main
  • in suites: wheezy
  • size: 16,716 kB
  • sloc: ansic: 143,239; sh: 15,414; tcl: 5,758; makefile: 922; asm: 535; perl: 20
file content (10 lines) | stat: -rw-r--r-- 450 bytes parent folder | download | duplicates (16) 
1
2
3
4
5
6
7
8
9
10
 
package require sqlite3

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)}