1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
|
load ../sql.so
# Make some connections, close some
set conn1 [sql connect]
sql selectdb $conn1 test
# Create a table and put some data in it.
catch {sql exec $conn1 "drop table mytable"}
sql exec $conn1 "create table mytable (i integer, r real, s char(10))"
for {set i 0} {$i < 10} {incr i} {
sql exec $conn1 "insert into mytable values ($i, $i.01, 'xx $i xx')"
}
set res1 [sql query $conn1 "select i from mytable where i < 3"]
set res2 [sql query $conn1 "select i from mytable where i > 7"]
puts "res1=\[$res1\] , res2=\[$res2\]"
puts "[sql numrows $conn1 $res1] less than 3"
puts "[sql numrows $conn1 $res2] greater than 7"
puts "These should be less than 3:"
while {[set row [sql fetchrow $conn1 $res1]] != ""} {
if {$row == ""} break
puts "$row"
}
puts "These should be more than 7:"
while {[set row [sql fetchrow $conn1 $res2]] != ""} {
if {$row == ""} break
puts "$row"
}
sql endquery $conn1
sql endquery $conn1 $res2
# ------------------
set res1 [sql query $conn1 "select i from mytable where i < 3"]
set res2 [sql query $conn1 "select i from mytable where i > 7"]
sql fetchrow $conn1 $res1
set res3 [sql query $conn1 "select i from mytable where i < 7 and i > 3"]
puts "res1=\[$res1\] , res2=\[$res2\]"
# ------------------
sql disconnect $conn1
|
