Posted to tcl by jdc at Tue Apr 12 11:31:01 GMT 2011view raw

  1. package require sqlite3 3.7.5
  2. package require tdbc::sqlite3
  3.  
  4. puts "Create the database"
  5. sqlite3 db test.db
  6. db eval {CREATE VIRTUAL TABLE fts USING fts4(id, content)}
  7. db eval {INSERT INTO fts VALUES (1, "test")}
  8. db close
  9.  
  10. puts "SQLITE"
  11.  
  12. sqlite3 db test.db
  13. set res [db eval {SELECT id FROM fts WHERE content MATCH "test"}]
  14. puts $res
  15. db close
  16.  
  17. puts "TDBC"
  18. tdbc::sqlite3::connection create db test.db
  19. set stmt [db prepare {SELECT id FROM fts WHERE content MATCH "test"}]
  20. set rs [$stmt execute]
  21. while {[$rs nextdict d]} {
  22. puts $d
  23. }
  24. $stmt close
  25. db close