Delphi FIREDAC TFDCONNECTION连接MYSQL数据库

本文整理自网络，侵删。

 
FIREDAC 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;

还要指定下面的参数值：
来源：https://www.cnblogs.com/hnxxcxg/p/6265297.html
 

相关阅读 >>

Delphi 每年、月、周、日的开始与结束的时间

Delphi xe6 android 实现base64字符串的解析

Delphi fdconnection1获取查询语句的第一个值

Delphi 10 seattle android应用程序使用toast

Delphi 高权限进程实现拖曳文件操作

Delphi中禁止webbrowser右键的方法

Delphi richedit选中文字右键菜单的实现

Delphi xe10 安卓设备信息

Delphi 如何在数据表中存取图片

Delphi 获取任意月份总共有多少天数

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

转载请注明出处：木庄网络博客 » Delphi FIREDAC TFDCONNECTION连接MYSQL数据库