package require tdbc::mysql
tdbc::mysql::connection create db1 -database accident_db -user root -password coursework
# Without preparing a statement:
db1 allrows {insert into person (driver_id, name) values ('ccvv44', 'Tommy')}
# Using a prepared statement
set stmt [db1 prepare { select * from person}]
set results [$stmt allrows]
foreach row $results {
 foreach {col_name col_val} $row {
 puts -nonewline [format "%-30s %-30s" $col_name $col_val]
 }
 puts ""
}
# Delete the rows that I added
db1 allrows {delete from person where driver_id = 'ccvv44'}
db1 close