delphi FIREDAC数据库引擎连接MYSQL


本文整理自网络,侵删。

 

IREDAC TFDCONNECTION连接MYSQL数据库

procedure TfrmDB.ConnectDB;
begin
FDMoniFlatFileClientLink1.FileName := ExtractFilePath(Application.ExeName) + 'sql'+ FormatDateTime('yyyymmdd', now)+'.txt';
con.Close;
con.Params.Clear;
con.Params.Add('DriverID=' + DatabaseParams.driveId);
con.Params.Add('Server=' + DatabaseParams.ip);
con.Params.Add('Database=' + DatabaseParams.database);
con.Params.Add('User_Name=' + DatabaseParams.user);
con.Params.Add('Password=' + DatabaseParams.password);
if SameText(DatabaseParams.driveId, 'MySQL') then   // 指定数据库的字符集,否则中文乱码
con.Params.Add('CharacterSet=gb2312');
con.Params.Add('MonitorBy=FlatFile');
try
con.Connected := True;
Log.WriteLog(DatabaseParams.database + ' database connect ok');
except
on e: Exception do
Log.WriteLog('TfrmDB.ConnectDB ' + e.Message);
end;
end;

还要指定下面的参数值:

相关阅读 >>

Delphi xe5下android中调用条码的方法

Delphi 读写文本文件

Delphi fmx 同时使用longtap和tap

Delphi fdmemtable内存表操作

Delphi 改变进程优先级

Delphi 获取进程列表及相关信息

Delphi 随便找个网站获取格林威治时间, 并转换到北京时间

Delphi ioutils单元3查找并搜索文件夹信息

Delphi 10 seattle中使用本地通知,请使用tnotificationcenter组件

Delphi 提取字符中的数字

更多相关阅读请进入《Delphi》频道 >>



打赏

取消

感谢您的支持,我会继续努力的!

扫码支持
扫码打赏,您说多少就多少

打开支付宝扫一扫,即可进行扫码打赏哦

分享从这里开始,精彩与您同在

评论

管理员已关闭评论功能...