RSS订阅 | 匿名投稿
您的位置:网站首页 > 数据库 > 正文

delphi FIREDAC数据库引擎连接MYSQL

作者:admin 来源: 日期:2018/3/11 20:43:43 人气: 标签:

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;

还要指定下面的参数值:


读完这篇文章后,您心情如何?
0
0
0
0
0
0
0
0
本文网址: