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
