####################################################################
#
# loaddata.tcl
#
# Loads data from every table of the database from a file. 
# 
# Uses utility procedure LoadTable in file datautil.tcl
#

# Create the db, if not yet created.
source createdb.tcl

####################################################################
#
# Execution starts here
#

set tables [db tables]

foreach i $tables {
  # exclude system tables
  if {![string compare [lindex $i 3] TABLE]} {
    # delete old data
    db "DELETE FROM Table1"

    # load data from file
    tclodbc::LoadTable db [lindex $i 2]
  }
}