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?