C_FD_PhysRDBMSKinds

C_FD_PhysRDBMSKinds

function DateValueToFDSQLStringProc(ADataSet: TDataSet; AValue: Variant): String;
begin
  Result := DateValueToDataBaseSQLString(    C_FD_PhysRDBMSKinds[TFDAdaptedDataSet(ADataSet).PointedConnection.RDBMSKind], AValue);
end;

xe7

FireDAC.Phys.Intf.pas

 const
  C_FD_PhysRDBMSKinds: array[TFDRDBMSKind] of String =
    ('', 'ORACLE', 'MSSQL', 'MSACCESS', 'MYSQL', 'DB2', 'ASA', 'ADS', 'INTRBASE',
     'FIREBIRD', 'SQLITE', 'POSTGRESQL', 'NEXUS', 'DS', 'INFORMIX', 'OTHER');
  C_FD_PhysRDBMSIds: array[TFDRDBMSKind] of String =
    ('', S_FD_OraId, S_FD_MSSQLId, S_FD_MSAccId, S_FD_MySQLId, S_FD_DB2Id,
     S_FD_ASAId, S_FD_ADSId, S_FD_IBId, S_FD_FBId, S_FD_SQLiteId, S_FD_PGId,
     S_FD_NexusId, S_FD_DSId, S_FD_InfxId, '');

xe7

mkMySQL  defint FireDAC.Stan.Intf.pas

  TFDRDBMSKind = (mkUnknown, mkOracle, mkMSSQL, mkMSAccess, mkMySQL,
    mkDB2, mkASA, mkADS, mkInterbase, mkFirebird, mkSQLite, mkPostgreSQL,
    mkNexus, mkDS, mkInformix, mkOther);

oConn.RDBMSKind =mkMySQL

xe8

  TFDRDBMSKinds = class
  public const
    Unknown = 0;
    Oracle = 1;
    MSSQL = 2;
    MSAccess = 3;
    MySQL = 4;
    DB2 = 5;
    SQLAnywhere = 6;
    Advantage = 7;
    Interbase = 8;
    Firebird = 9;
    SQLite = 10;
    PostgreSQL = 11;
    NexusDB = 12;
    DataSnap = 13;
    Informix = 14;
    Teradata = 15;
    Other = 16;
  end;
  TFDRDBMSKind = type Integer;

oConn.RDBMSKind =TFDRDBMSKinds.MySQL