Test: ### #!/usr/bin/tclsh8.5 package require sqlite3 sqlite3 db :memory: db function elog elog proc elog {args} { puts [join $args] }
db eval { CREATE TABLE test (id INTEGER PRIMARY KEY); CREATE VIRTUAL TABLE fts3 USING fts3(name); CREATE VIRTUAL TABLE fts4 USING fts4(name); select elog('regular table - OK'); insert into test (rowid) values (1); select elog('last_insert_rowid = ',last_insert_rowid()); delete from test; select elog('last_insert_rowid = ',last_insert_rowid()); select elog('FTS3 table - OK'); insert into fts3 (rowid) values (1); select elog('last_insert_rowid = ',last_insert_rowid()); delete from fts3; select elog('last_insert_rowid = ',last_insert_rowid()); select elog('FTS4 table - FAIL'); insert into fts4 (rowid) values (1); select elog('last_insert_rowid = ',last_insert_rowid()); delete from fts4; select elog('last_insert_rowid = ',last_insert_rowid()); } ### Result: ### regular table - OK last_insert_rowid = 1 last_insert_rowid = 1 FTS3 table - OK last_insert_rowid = 1 last_insert_rowid = 1 FTS4 table - FAIL last_insert_rowid = 1 last_insert_rowid = 0 -- Best regards, Alexey Pechnikov. http://pechnikov.tel/ _______________________________________________ sqlite-users mailing list sqlite-users@sqlite.org http://sqlite.org:8080/cgi-bin/mailman/listinfo/sqlite-users