Posted to tcl by jdc at Tue Apr 12 11:31:01 GMT 2011view raw
- package require sqlite3 3.7.5
- package require tdbc::sqlite3
- puts "Create the database"
- sqlite3 db test.db
- db eval {CREATE VIRTUAL TABLE fts USING fts4(id, content)}
- db eval {INSERT INTO fts VALUES (1, "test")}
- db close
- puts "SQLITE"
- sqlite3 db test.db
- set res [db eval {SELECT id FROM fts WHERE content MATCH "test"}]
- puts $res
- db close
- puts "TDBC"
- tdbc::sqlite3::connection create db test.db
- set stmt [db prepare {SELECT id FROM fts WHERE content MATCH "test"}]
- set rs [$stmt execute]
- while {[$rs nextdict d]} {
- puts $d
- }
- $stmt close
- db close