myodbc设置字符集

关键字: Delphi MySql 乱码

---

+------------------------------------------------------+
+ 以下内容为本人原创,共享以赏读者,转帖时请保留该信息 +
+ yeyanbo yeyanbo@hotmail.com +
+ http://yeyanbo.spaces.live.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();