zoukankan      html  css  js  c++  java
  • Delphi 连接mysql的功能,去除乱码, 需要设置字符集

    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;

  • 相关阅读:
    奇怪的肚疼
    惊喜:vs2005 和 msdn 中文版 已经提供Subscriber 下载,MSDN全球订户可以下中文版爽了
    英语构语法(前、后缀部分)
    TSQL中的递归 作者:Alexander Kozak
    筹划向 Visual Studio 2005 导航控件的迁移 作者:Dave Donaldson Steven DeWalt
    Atlas客服端文件介绍
    Chinese lunar calendar for www.live.com
    帮助解决网页和JS文件中的中文编码问题的小工具
    ADO.NET 2.0 功能一览 作者:Bob Beauchemin
    Prototype.js 1.4中文使用手册PDF版下载
  • 原文地址:https://www.cnblogs.com/acmexyz/p/10511505.html
Copyright © 2011-2022 走看看