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; 还要指定下面的参数值: 
|