ActiveTCL的Mysqltcl学习笔记

1.包引入：

package require mysqltcl

?

2.中文乱码：

设置mysql数据库和数据表的字符集为gbk

连接数据库后设置系统参数mysqlexec $handle "SET NAMES 'gb2312'"

?

?

?

测试代码如下：

package require mysqltclset port 3306set host 127.0.0.1set user rootset password xxxset mysql_handler [mysqlconnect -host $host -port $port -user $user -password $password]mysqlexec $mysql_handler "SET NAMES 'gb2312'"mysqluse $mysql_handler "test"#mysqlexec $mysql_handler {insert into test values(NULL,'123中文','promotion',now(),1000,100,now(),now(),2)}set res [mysqlsel $mysql_handler {select * from traffic} -list]puts stdout $resmysqlclose $mysql_handler