diff options
| -rwxr-xr-x | libBasicTableOperations.tcl | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/libBasicTableOperations.tcl b/libBasicTableOperations.tcl index 27451e5..15d45bf 100755 --- a/libBasicTableOperations.tcl +++ b/libBasicTableOperations.tcl @@ -9,7 +9,7 @@ exec tclsh "$0" "$@" # ####################################################### proc getColListFromTable {table} { - set eval_str [concat SELECT * FROM \'$table\'] + set eval_str [concat SELECT * FROM \'$table\' LIMIT 1] set err [catch { db eval $eval_str v { set all_column_names $v(*) |