Diff of tclado

The added line is THIS COLOR.
The deleted line is THIS COLOR.
Go to tclado.
Deleting diff of tclado
 # Sample:
 #
 # tclado db "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\temp\test.mdb"
 # puts [db run "select * from Table1"]
 #
 # db configure -outputtype dict ;# dict or list(default)
 # puts [db run "select * from Table1"]
 #
 package provide tclado 0.1
 
 package require Itcl
 namespace import ::itcl::*
 
 package require tcom
 ::tcom::import "C:\Program Files\Common Files\System\ado\msado26.tlb"
 
 class tclado {
     private variable _connectionString ""
     private variable con {}
     public variable nullString {}
     # list, dict
     public variable outputtype list
     
     constructor {connectionString} {
         set con [::tcom::ref createobject "ADODB.Connection"]
         set _connectionString $connectionString
         $con Open $connectionString
     }
 
     destructor {
         $con Close
     }
     
     public method run {sql} {
         set rst [$con Execute $sql]
         
         set rows [list]
         while {[$rst EOF] == 0} {
             switch -- $outputtype {
                 list  { set row [list] }
                 dict  { set row [dict create] }
                 default {error "unknown type $outputtype"}
             }
 
             set fieldCount [[$rst Fields] Count]
             for {set i 0} {$i < $fieldCount} {incr i} {
                 set f [[$rst Fields] Item $i]
                 set name  [$f Name]
                 set value [$f Value]
                 if {$value eq "::tcom::NULL"} {
                     set value $nullString
                 } else {
                     if {[$f Type] == 7} {
                         set datetime [expr {int(-2209194000 + ($value * 86400))}]
                         set value [clock format $datetime -format "%Y-%m-%d %H:%M:%S"]
         if {[$rst State] == 1} {
             while {[$rst EOF] == 0} {
                 switch -- $outputtype {
                     list  { set row [list] }
                     dict  { set row [dict create] }
                     default {error "unknown type $outputtype"}
                 }
     
                 set fieldCount [[$rst Fields] Count]
                 for {set i 0} {$i < $fieldCount} {incr i} {
                     set f [[$rst Fields] Item $i]
                     set name  [$f Name]
                     set value [$f Value]
                     if {$value eq "::tcom::NULL"} {
                         set value $nullString
                     } else {
                         if {[$f Type] == 7} {
                             set datetime [expr {int(-2209194000 + ($value * 86400))}]
                             set value [clock format $datetime -format "%Y-%m-%d %H:%M:%S"]
                         }
                     }
     
                     switch -- $outputtype {
                         list  { lappend row $value }
                         dict  { dict set row $name $value }
                     }
                 }
 
                 switch -- $outputtype {
                     list  { lappend row $value }
                     dict  { dict set row $name $value }
                 }
                 lappend rows $row
                 $rst MoveNext
             }
             lappend rows $row
             $rst MoveNext
         }
         return $rows
     }
 
     public method disconnect {} {
         $con Close
     }
 }



--------------------------------------------------------------------------------
[[CategoryTclTk]]