ActiveTCL的Mysqltcl学习笔记
1.包引入：
package require mysqltcl
?
2.中文乱码：
设置mysql数据库和数据表的字符集为gbk
连接数据库后设置系统参数mysqlexec $handle “SET NAMES ‘gb2312′”
?
?
?
测试代码如下：
package require mysqltcl
set port 3306
set host 127.0.0.1
set user root
set password xxx
set 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 $res
mysqlclose $mysql_handler
?
