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
|
# Test multiple queries on the same connection.
load ../sql.so
set conn1 [sql connect]
puts "Connected using connection \[$conn1\]"
sql selectdb $conn1 test
catch {sql exec $conn1 "drop table foofoo"}
sql exec $conn1 "create table foofoo (i integer, r real, s char(10))"
catch {sql exec $conn1 "drop table joojoo"}
sql exec $conn1 "create table joojoo (x integer)"
for {set i 0} {$i < 10} {incr i} {
sql exec $conn1 "insert into foofoo values ($i, $i.01, 'xx $i xx')"
sql exec $conn1 "insert into joojoo values ([expr 100+$i])"
}
set res1 [sql query $conn1 "select * from foofoo"]
set res2 [sql query $conn1 "select * from joojoo"]
puts "Printing results:"
while {1} {
set row [sql fetchrow $conn1 $res1]
set row2 [sql fetchrow $conn1 $res2]
if {$row == ""} break
puts "##row = $row"
puts "--row = $row2"
}
sql endquery $conn1 $res1
sql endquery $conn1 $res2
sql disconnect $conn1
|
