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
|
####################################################################
#
# 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.
set dir [file dirname [info script]]
source $dir/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]
}
}
|
