Posted to tcl by aspect at Sat Mar 05 01:05:54 GMT 2016view pretty
package require sqlite3 sqlite3 db "" set n 2 set s 2 expr {$n} string length $s db eval {create table t (t, c text); insert into t values ('text','2'), ('numeric',2);} puts [db eval {select t from t where c=$s}] ;# text numeric puts [db eval {select t from t where c=$n}] ;# text numeric puts [db eval {select t from t where c>$s}] ;# puts [db eval {select t from t where c>$n}] ;# db eval {drop table t} db eval {create table t (t, c numeric); insert into t values ('text','2'), ('numeric',2);} puts [db eval {select t from t where c=$s}] ;# text numeric puts [db eval {select t from t where c=$n}] ;# text numeric puts [db eval {select t from t where c>$s}] ;# puts [db eval {select t from t where c>$n}] ;# db eval {drop table t} db eval {create table t (t, c); insert into t values ('text','2'), ('numeric',2);} puts [db eval {select t from t where c=$s}] ;# text puts [db eval {select t from t where c=$n}] ;# numeric # '2' > 2 puts [db eval {select t from t where c>$s}] ;# puts [db eval {select t from t where c>$n}] ;# text db eval {drop table t}