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;

Delphi 连接mysql 的功能, 去除乱码, 需要设置字符集的更多相关文章

  1. delphi 连接mysql

    Delphi连接MySQL真麻烦,研究了一天,从网上找了无数文章,下载了无数插件都没解决.最后返璞归真,老老实实用ADO来连接,发现也不是很顺利,但最终还是连接成功了.多少有点心得:ADO各个组件的作 ...

  2. delphi连接mysql (通过libmysql.dll连接)

    首先在窗体上拖拽sqlconnection和sqlquery两个控件: 然后在测试连接中,写入以下代码(注意exe生成目录下需要有dbxopenmysql50.dll和libmysql.dll) SQ ...

  3. mybatis连接mysql数据库插入中文乱码

    对于MySQL数据库的乱码问题,有两种情况: 1. mysql数据库编码问题(建库时设定). 2. 连接mysql数据库的url编码设置问题. 对于第一个问题,目前个人发现只能通过重新建库解决,建库的 ...

  4. Delphi连接MySql(待测试验证,使用mysql.pas未通过)

    要在一个Delphi程序中调用Mysql数据库,查到有个资料如下,待验证,验证后会给出结果.暂时做个标记 已经验证,验证日期:2018.6.18 验证结果:不可行 验证工具:XE7,mysql5.5. ...

  5. delphi连接mysql不用添加DSN(mysql connector odbc 5.1版)

    一.下载安装mysql驱动http://mysql.com/downloads/connector/odbc/二.添加adoconnection,adoquery,使用以下连接字符串http://ww ...

  6. delphi 连接MYSQL 的方法

    需要的控件:(view as form) 1.SQLConnection1: TSQLConnection ConnectionName = 'MYSQLCONNECTION' DriverName ...

  7. CentOS6.5解决中文乱码与设置字符集

    [ CleverCode发表在csdn博客中的原创作品,请勿转载,原创地址:http://blog.csdn.net/clevercode/article/details/46377577] 1)说明 ...

  8. Delphi 7连接MySql 5.5.15

    原文:http://blog.csdn.net/akof1314/article/details/6822902/ 网上有很多关于Delphi连接MySql数据库的文章,在这里,我只记录下自己测试过的 ...

  9. Delphi 7连接MySql 5.5.15(转)

    网上有很多关于Delphi连接MySql数据库的文章,在这里,我只记录下自己测试过的方法,以备所需.系统环境:Windows XP SP3软件环境:Delphi 7 .mysql-installer- ...

随机推荐

  1. linux服务之varnish

    https://www.varnish-cache.org/installation/redhatvarnish是现在很流行的一个HTTP(80)缓存加速解决方案,varnish是基于内存的缓存加速. ...

  2. OpenJudge就算概论-统计字符数

    /*===================================== 统计字符数 总时间限制: 1000ms 内存限制: 65536kB 描述 判断一个由a-z这26个字符组成的字符串中哪个 ...

  3. 【转】WinForm不同版本覆盖安装

    vs2005为winform程序做的安装包.在以有程序旧版本的机子上用新版本的安装包安装软件时提示 “以经安装该产品的另一个版本.无法继续安装此版本........” 在安装部署项目中设“Remove ...

  4. svn忽略target

    搞了很久,以前好像在菜单里搞了不管用,这次见到了个简单的方法: ---team--与资源库同步--右击target--在右键菜单中选择(添加至svn:ignore)

  5. Format可能存在的坑

    import java.text.MessageFormat; public class TestFormat { public static void main(String[] args) { / ...

  6. Innodb 表修复(转)

    摘要:      突然收到MySQL报警,从库的数据库挂了,一直在不停的重启,打开错误日志,发现有张表坏了.innodb表损坏不能通过repair table 等修复myisam的命令操作.现在记录下 ...

  7. ArrayList和LinkedList遍历方式及性能对比分析

    ArrayList和LinkedList的几种循环遍历方式及性能对比分析 主要介绍ArrayList和LinkedList这两种list的五种循环遍历方式,各种方式的性能测试对比,根据ArrayLis ...

  8. OData services入门----使用ASP.NET Web API描述

    http://www.cnblogs.com/muyoushui/archive/2013/01/27/2878844.html ODate 是一种应用层协议,设计它的目的在于提供一组通过HTTP的交 ...

  9. HackerRank "Favorite sequence"

    Typical topological sorting problem .. why is it 'difficult'? #include <iostream> #include < ...

  10. POJ #2479 - Maximum sum

    Hi, I'm back. This is a realy classic DP problem to code. 1. You have to be crystal clear about what ...