File: simple_test.tcl

package info (click to toggle)
tcl-sql 20000621-1
  • links: PTS
  • area: main
  • in suites: woody
  • size: 612 kB
  • ctags: 81
  • sloc: cpp: 399; makefile: 60; tcl: 19; csh: 2
file content (21 lines) | stat: -rwxr-xr-x 484 bytes parent folder | download 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
 
#!/usr/local/bin/tclsh8.0

  load ./sql.so
  set conn [sql connect]
  sql selectdb $conn test
  catch {
    sql exec $conn "drop table junk_test"
  }
  set stmt "create table junk_test (x int)"
  sql exec $conn $stmt
  for {set x 1} {$x < 10} {incr x} {
    set stmt "insert into junk_test values ($x)"
    sql exec $conn $stmt
  }
  set stmt "select * from junk_test"
  sql query $conn $stmt

  while {[set row [sql fetchrow $conn]] != ""} {
    puts $row
  }
  sql disconnect $conn