Version 2 of BWidget example: sqlite progress bar

Updated 2006-07-05 09:25:22

To display the progress of a longer sqlite-query you can use BWidget::ProgressBar (or ProgressDlg).

 package require Tk
 package require BWidget
 load tclsqlite3.dll

 ProgressBar .p -type infinite -variable value
 pack .p

 # connect to a database
 sqlite db ":memory:"

 # add data to your database
 db eval "INSERT ..."

 # register the callback that which will be invoked every $opcodeNumber opcodes
 # test to find the best opcodeNumber for your application
 # without the update-command an error (callback requested query abort) occurs
 set opcodeNumber 1000
 db progress $opcodeNumber  {
  set value 1
  update
 }

 db eval $longRunningQuery