diff options
| -rwxr-xr-x | libBasicTableOperations.tcl | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/libBasicTableOperations.tcl b/libBasicTableOperations.tcl index 134dc18..81f85b3 100755 --- a/libBasicTableOperations.tcl +++ b/libBasicTableOperations.tcl @@ -38,7 +38,7 @@ proc colList2sqlColStr { col_list } { proc SelectColvalueFromTable { table column_of_interest col row_value } { # select value of 'column_of_interest' from 'table' where 'col'='row_value' set value {} - set eval_str "SELECT \"$column_of_interest\" FROM \'$table\' WHERE \"$col\"=\"$row_value\"" + set eval_str "SELECT \"$column_of_interest\" FROM \'$table\' WHERE $col=:row_value" set err [catch { db eval $eval_str v { set value $v($column_of_interest) |