package require sql set conn [sql connect] sql selectdb $conn test set select "select * from recipe where id=1" set nrows [sql query $conn $select] set row [sql fetchrow $conn] # get the fields out of the returned row. set idx 0 foreach field {id course calories name description} { set $field [lindex $row $idx] incr idx }

puts $name

puts $description

Ingredients:

    set select "select * from ingredients where rec_id=1" set nrows [sql query $conn $select] while {[set row [sql fetchrow $conn]] != ""} { set quantity [lindex $row 1] set name [lindex $row 2]
  • puts $nameputs $quantity
    # end of while loop for ingredients }

Preparation:

    set select "select * from prep where rec_id=1 order by step_num" set nrows [sql query $conn $select] while {[set row [sql fetchrow $conn]] != ""} { set descr [lindex $row 2]
  1. puts $descr # end of while loop for ingredients }