diff options
| author | Eugeniy E. Mikhailov <evgmik@gmail.com> | 2020-02-09 11:57:03 -0500 |
|---|---|---|
| committer | Eugeniy E. Mikhailov <evgmik@gmail.com> | 2020-02-09 11:57:03 -0500 |
| commit | af4d981f2d851503e8b9a0bcdd3a69ff9bd6366e (patch) | |
| tree | 7115a3b03e06c0835cacf6129011b80d725c544a /libBasicTableOperations.tcl | |
| parent | 4966772ba1ceab5b932992cb6886d2b3e75b5cc1 (diff) | |
| download | GradeBook-af4d981f2d851503e8b9a0bcdd3a69ff9bd6366e.tar.gz GradeBook-af4d981f2d851503e8b9a0bcdd3a69ff9bd6366e.zip | |
limiting rows output when using for column names query
Diffstat (limited to 'libBasicTableOperations.tcl')
| -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(*) |