Posted to tcl by colin at Mon Sep 19 02:37:12 GMT 2011view raw
- ---- errorInfo: Function sequence error: result set is exhausted.
- while executing
- "my columns"
- (class "::tdbc::resultset" method "allrows" line 29)
- invoked from within
- "::oo::Obj14::ResultSet::1 allrows -as dicts"
- ("uplevel" body line 1)
- invoked from within
- "uplevel 1 $cmd"
- (class "::tdbc::statement" method "allrows" line 31)
- invoked from within
- "[my prep $schema] allrows -as dicts"
- (class "::Store" constructor line 49)
- invoked from within
- "Store create store file $dbfile primary phonebook schema {
- PRAGMA foreign_keys = on;
- CREATE TABLE phonebook (
- Schema is:
- PRAGMA foreign_keys = on;
- CREATE TABLE phonebook (
- id INTEGER PRIMARY KEY AUTOINCREMENT,
- name TEXT UNIQUE NOT NULL COLLATE NOCASE,
- phone TEXT,
- busy INTEGER DEFAULT 0,
- nada TEXT
- );
- CREATE UNIQUE INDEX name ON phonebook(name);