set a [db onecolumn {SELECT * FROM t1}] puts a=$a a=1
set a [db onecolumn {SELECT * FROM t1}] puts a=$a
a=1
set a [db onecolumn {SELECT a FROM t1}] set a [lindex [db eval {SELECT a FROM t1 LIMIT 1}] 0] db eval {SELECT a FROM t1} break