Posted to tcl by colin at Mon Sep 19 02:37:12 GMT 2011view raw

  1. ---- errorInfo: Function sequence error: result set is exhausted.
  2. while executing
  3. "my columns"
  4. (class "::tdbc::resultset" method "allrows" line 29)
  5. invoked from within
  6. "::oo::Obj14::ResultSet::1 allrows -as dicts"
  7. ("uplevel" body line 1)
  8. invoked from within
  9. "uplevel 1 $cmd"
  10. (class "::tdbc::statement" method "allrows" line 31)
  11. invoked from within
  12. "[my prep $schema] allrows -as dicts"
  13. (class "::Store" constructor line 49)
  14. invoked from within
  15. "Store create store file $dbfile primary phonebook schema {
  16. PRAGMA foreign_keys = on;
  17. CREATE TABLE phonebook (
  18.  
  19. Schema is:
  20.  
  21. PRAGMA foreign_keys = on;
  22. CREATE TABLE phonebook (
  23. id INTEGER PRIMARY KEY AUTOINCREMENT,
  24. name TEXT UNIQUE NOT NULL COLLATE NOCASE,
  25. phone TEXT,
  26. busy INTEGER DEFAULT 0,
  27. nada TEXT
  28. );
  29. CREATE UNIQUE INDEX name ON phonebook(name);