load tclodbc.dll
  database db mysql-test poenisch xxx
  db "create table test1 (name char(20), vorname char(20), geboren int)"
  db "insert insert into test1 values ('Meier','Max',1963)"
  db "insert insert into test1 values ('Müller','Maria',1966)"
  set answerlist [db "select * from test1"]
  # ==> {Meier Max 1963} {Müller Maria 1966}
  foreach entry $answerlist {
    puts $entry
  }