All pastes #472482 Raw Edit

Vadtec

public text v1 · immutable
·published 2007-05-05 16:47 UTC
rendered paste body
package require sqlite3

set test 0

# sql DB
sqlite3 dbs $db

proc test { } {
  global test
  set sql "SELECT * FROM test;"
  set result [dbs eval $sql]
  if {$test} {
    putlog "$result"
  }
}

test