如何解决Delphi连接Mysql5.0出现乱码的问题

+---------------------------------------------------------+
+ 以下内容为本人原创,共享以赏读者,转帖时请保留该信息 +
+ yeyanbo ye.yanbo@gmail.com +
+---------------------------------------------------------+

使用Delphi7, MyODBC 3.5连接MySQL 5.0, 数据库字符集设置为GBK, 居然出现乱码!!!
解决方法:
1)设置ODBC中, Advanced-->Flag 3-->Read Options From my.cnf
2)将以下内容保存为%windir%\my.cnf(注意:是WINDOWS系统目录)
你可以将下面的内容复制保存成文件即可.

[client]
default-character-set=gbk(gb2312)

以上是利用一个配置文件进行的处理.在发布程序的时候比较难处理.

---------------------------------------------------------------------------------------

下面这个方法不用利用配置文件,可以在创建完数据连接之后执行.

//"SET NAMES GB2312"的作用相当于
//SET character_set_client = GB2312;
//SET character_set_results = GB2312;
//SET character_set_connection = GB2312;
ADOQuery1.Close();
ADOQuery1.SQL.Text := 'SET NAMES GB2312;';
ADOQuery1.ExecSQL();

//当将此句注释掉的话,存入数据库的内容变为乱码
ADOQuery1.Close();
ADOQuery1.SQL.Text := 'SET character_set_client = GB2312;';
ADOQuery1.ExecSQL();

//当将此句注释掉得话,从数据库中读取的内容为乱码
ADOQuery1.Close();
ADOQuery1.SQL.Text := 'SET character_set_results = GB2312;';
ADOQuery1.ExecSQL();

//当将此句注释掉的话,存入数据库的内容变为乱码
ADOQuery1.Close();
ADOQuery1.SQL.Text := 'SET character_set_connection = GB2312;';
ADOQuery1.ExecSQL();