load ../sql.so

set conn [sql connect]

if {[catch {sql selectdb $conn test} msg]} {
        puts "ERROR: $msg."
} else { puts "OK" }

sql exec $conn "drop table foofoo"
sql exec $conn "create table foofoo (i integer, r real, s char(10))"

for {set i 0} {$i < 10} {incr i} {
	sql exec $conn "insert into foofoo values ($i, $i.01, 'xx $i xx')"
}

sql query $conn "select * from foofoo where i < 3" 
sql query $conn "select * from foofoo where i > 3" 

while {1} {
	set row [sql fetchrow $conn]
	if {$row == ""} break
	puts "row = $row"
}

sql endquery $conn
sql disconnect $conn