软件简介

mysqltcl 是 TCL 语言连接并操作 MySQL 数据库的接口。

示例代码：

::mysql::sel $db {  
    select lname, fname, area, phone from friends order by lname, fname  
}  
::mysql::map $db {ln fn - phone} {  
   if {$phone == {}} continue  
   puts [format "%16s %-8s %s" $ln $fn $phone]  
}