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
|
# Test multiple connections:
load ../sql.so
set conn1 [sql connect]
set junk [sql connect]
set punk [sql connect]
sql disconnect $punk
set conn2 [sql connect]
sql disconnect $junk
puts "conn1 = $conn1, conn2 = $conn2, junk = $junk, punk = $punk"
sql selectdb $conn1 test
sql selectdb $conn2 test
catch {sql exec $conn1 "drop table foofoo"}
sql exec $conn1 "create table foofoo (i integer, r real, s char(10))"
catch {sql exec $conn2 "drop table joojoo"}
sql exec $conn2 "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 $conn2 "insert into joojoo values ([expr 100+$i])"
}
sql query $conn1 "select * from foofoo"
sql query $conn2 "select * from joojoo"
puts "Printing results:"
while {1} {
set row [sql fetchrow $conn1]
set row2 [sql fetchrow $conn2]
if {$row == ""} break
puts "##row = $row"
puts "--row = $row2"
}
sql endquery $conn2
sql endquery $conn1
sql disconnect $conn2
sql disconnect $conn1
|
