Delphi 连接mysql 的功能, 去除乱码, 需要设置字符集
2016-10-31 16:56
477 查看
vDataBaseName := aConfiginiFile.ReadString('DataBaseConfig', 'DataBase', CH_IPC712Db);
vServer := aConfiginiFile.ReadString('DataBaseConfig', 'Server', CH_Server);
vPort := aConfiginiFile.ReadString('DataBaseConfig', 'Port', CH_Port);
vUserName := aConfiginiFile.ReadString('DataBaseConfig', 'Username', CH_UserName);
vPassword := aConfiginiFile.ReadString('DataBaseConfig', 'PassWord', CH_PassWord);
G_SaveDebug := (aConfiginiFile.ReadString('Debug', 'Debug', '1') = '1');
G_SQLitePath := vPath + vDataBaseName;
//在创建时连上数据库
// UniConnection1.ProviderName := 'SQLite';//这里确定为interbase 但是可以支持firebird
// UniConnection1.Password := '';//数据库密码
// UniConnection1.Username := '';//数据库密码
// UniConnection1.Server := '';
// UniConnection1.Database := G_SQLitePath;//数据库文件的位置,这里在当前目录
// UniConnection1.Connected := True;
// UniConnection1.Connect;
// 在创建时连上数据库
UniConnection1.ProviderName := CH_ProviderName;//这里确定为interbase 但是可以支持firebird
UniConnection1.Password := vPassword;//数据库密码
UniConnection1.Username := vUserName;//数据库密码
UniConnection1.Server := vServer;
UniConnection1.Database := vDataBaseName;//数据库文件的位置,这里在当前目录
UniConnection1.Connected := True;
UniConnection1.Connect;
UniQuery1.Close();
UniQuery1.SQL.Text := 'SET NAMES GB2312;';
UniQuery1.ExecSQL();
//当将此句注释掉的话,存入数据库的内容变为乱码
UniQuery1.Close();
UniQuery1.SQL.Text := 'SET character_set_client = GB2312;';
UniQuery1.ExecSQL();
//当将此句注释掉得话,从数据库中读取的内容为乱码
UniQuery1.Close();
UniQuery1.SQL.Text := 'SET character_set_results = GB2312;';
UniQuery1.ExecSQL();
//当将此句注释掉的话,存入数据库的内容变为乱码
UniQuery1.Close();
UniQuery1.SQL.Text := 'SET character_set_connection = GB2312;';
UniQuery1.ExecSQL();
RunSQL := TRunSQL.Create;
RunSQL.NewProvider := True;
RunSQL.ZConnection := UniConnection1;
vServer := aConfiginiFile.ReadString('DataBaseConfig', 'Server', CH_Server);
vPort := aConfiginiFile.ReadString('DataBaseConfig', 'Port', CH_Port);
vUserName := aConfiginiFile.ReadString('DataBaseConfig', 'Username', CH_UserName);
vPassword := aConfiginiFile.ReadString('DataBaseConfig', 'PassWord', CH_PassWord);
G_SaveDebug := (aConfiginiFile.ReadString('Debug', 'Debug', '1') = '1');
G_SQLitePath := vPath + vDataBaseName;
//在创建时连上数据库
// UniConnection1.ProviderName := 'SQLite';//这里确定为interbase 但是可以支持firebird
// UniConnection1.Password := '';//数据库密码
// UniConnection1.Username := '';//数据库密码
// UniConnection1.Server := '';
// UniConnection1.Database := G_SQLitePath;//数据库文件的位置,这里在当前目录
// UniConnection1.Connected := True;
// UniConnection1.Connect;
// 在创建时连上数据库
UniConnection1.ProviderName := CH_ProviderName;//这里确定为interbase 但是可以支持firebird
UniConnection1.Password := vPassword;//数据库密码
UniConnection1.Username := vUserName;//数据库密码
UniConnection1.Server := vServer;
UniConnection1.Database := vDataBaseName;//数据库文件的位置,这里在当前目录
UniConnection1.Connected := True;
UniConnection1.Connect;
UniQuery1.Close();
UniQuery1.SQL.Text := 'SET NAMES GB2312;';
UniQuery1.ExecSQL();
//当将此句注释掉的话,存入数据库的内容变为乱码
UniQuery1.Close();
UniQuery1.SQL.Text := 'SET character_set_client = GB2312;';
UniQuery1.ExecSQL();
//当将此句注释掉得话,从数据库中读取的内容为乱码
UniQuery1.Close();
UniQuery1.SQL.Text := 'SET character_set_results = GB2312;';
UniQuery1.ExecSQL();
//当将此句注释掉的话,存入数据库的内容变为乱码
UniQuery1.Close();
UniQuery1.SQL.Text := 'SET character_set_connection = GB2312;';
UniQuery1.ExecSQL();
RunSQL := TRunSQL.Create;
RunSQL.NewProvider := True;
RunSQL.ZConnection := UniConnection1;
相关文章推荐
- mysql5.5字符集设置的一点变化(对于中文乱码问题,需要设置mysql字符集)
- MySQL连接字符串设置了字符集,写入数据还出现乱码
- mysql5.5字符集设置的一点变化(对于中文乱码问题,需要设置mysql字符集)
- mysql中的乱码总结之mysql5中四个设置字符集的系统变量
- 设置mysql在linux下字符集为utf8,解决可能出现的乱码
- PHP 设置MySQL连接字符集的方法
- PHP 设置MySQL连接字符集的方法
- mysql设置utf8_unicode_ci字符集php页面输出??乱码的解决方法
- 设置MySQL客户端连接使用的字符集
- MySQL字符集编码设置与PHP显示乱码的解决办法
- MySQL字符集编码设置与PHP显示乱码的解决办法
- mysql设置utf8_unicode_ci字符集php页面输出??乱码的解决方法
- mysql中的乱码总结之mysql5中四个设置字符集的系统变量
- mysql连接中文乱码设置
- MySQL字符集设置—MySQL数据库乱码问题 本篇文章来源于 Linux公社网站(www.linuxidc.com) 原文链接:http://www.linuxidc.com/Linux/2011-01/31531.htm
- MYSQL字符集设置,解决乱码问题
- mysql odbc字符集设置(中文显示乱码)
- mysql中的乱码总结之mysql5中四个设置字符集的系统变量
- mysql中的乱码总结之mysql5中四个设置字符集的系统变量
- MySQL字符集设置及中文乱码