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
