Posted to tcl by evilotto at Wed Apr 22 13:10:32 GMT 2015view raw

  1. package require sqlite3
  2.  
  3. sqlite db f.db
  4. sqlite db2 f.db
  5.  
  6. db eval {create table if not exists foo (a,b)}
  7.  
  8. db eval {
  9. insert into foo values (1,2);
  10. insert into foo values (3,4);
  11. }
  12.  
  13. db2 eval {begin}
  14.  
  15. db transaction {
  16. db eval {select a from foo} row {
  17. lappend todel $row(a)
  18. }
  19.  
  20. db2 eval {insert into foo values (5,6) }
  21.  
  22. foreach a $todel {
  23. db eval {delete from foo where a = $a}
  24. }
  25. }
  26.