[JM] Dec-20-2010.
The [Tclodbc] package includes some demos which creates and populate a database (testdb.mdb).
This time, I put together this simple script which reads the table (Table1) and creates a chart out of the result using BLT.
Just copy this script in the tclodb's "samples" folder, launch it and you will get the following output:

[tclodbcPlusBLT]

 package require tclodbc
 package require BLT

 console show

 proc fmt {graph sec} {
   global x y
   return [clock format $sec -format {%m/%d}]   
 }

 proc makeGraph {w x y} {
 global Data dbfile lstColors lstSymbols
  
 $w element create "IntData" -xdata x -ydata y -pixels 8
 $w grid configure -hide no
 $w configure -title $dbfile
 $w axis configure x -majorticks [x range 0 end]

 # Format the x-axis tick labels as Month/Day
 $w axis configure x -command fmt

 }

 proc connectToDatabase {} {
        global db driver dbfile
        if {[file exists $dbfile]} {
              #database connect db "DRIVER=$driver;DBQ=$dbfile;SystemDB=$mdw;UID=$user;PWD=$password"
              database connect db "DRIVER=$driver;DBQ=$dbfile"
        } else {
              tk_messageBox -message "no existe path"
               exit
        }
        puts "connected to $dbfile"
 }

 proc GetTheData {} {
 global db verboseLog hrsScope Data x y
 blt::vector create x
 blt::vector create y

 db statement stmt "SELECT DateData,IntData FROM Table1 WHERE IntData > 990;"

 set allRcds [stmt run]
 set cuantos [llength $allRcds]

 stmt execute

 while {[set row [stmt fetch]] != {}} {
        
        foreach param {fecha entero} v $row {
                            if {$param == "entero"} {
                                    set y(++end) $v
                            }
                            if {$param == "fecha"} {
                                    set x(++end) [clock scan $v]
                            }
                    
    }
 }


 }

 console show
 #1.-driver
 set driver "Microsoft Access Driver (*.mdb)"
 #2.-Path de la BDD
 set dbfile "testdb.mdb"

 ::blt::graph .g -title "Yield: $dbfile" -width 600 -height 400
 pack .g

 connectToDatabase
 GetTheData
 makeGraph .g x y
 stmt drop
 db disconnect


<<categories>> GUI | Graphics | Plotting | BLT