|
From: <na...@us...> - 2010-01-27 08:33:15
|
Revision: 891
http://instantobjects.svn.sourceforge.net/instantobjects/revision/?rev=891&view=rev
Author: nandod
Date: 2010-01-27 08:33:07 +0000 (Wed, 27 Jan 2010)
Log Message:
-----------
+ Support for native D2010 Firebird DBX driver.
Modified Paths:
--------------
trunk/Source/Brokers/DBX/InstantDBX.pas
Modified: trunk/Source/Brokers/DBX/InstantDBX.pas
===================================================================
--- trunk/Source/Brokers/DBX/InstantDBX.pas 2010-01-03 04:02:13 UTC (rev 890)
+++ trunk/Source/Brokers/DBX/InstantDBX.pas 2010-01-27 08:33:07 UTC (rev 891)
@@ -172,6 +172,13 @@
function GetDBMSName: string; override;
end;
+ { Firebird through the native D2010 driver }
+
+ TInstantDBXFirebirdBroker = class(TInstantDBXInterBaseFirebirdBroker)
+ protected
+ function GetDBMSName: string; override;
+ end;
+
{ MS SQL Server }
TInstantDBXMSSQLSQLGenerator = class(TInstantSQLGenerator)
@@ -321,6 +328,8 @@
Result := TInstantDBXMySQLBroker.Create(Self)
else if SameText(Connection.DriverName, 'FirebirdUIB') then
Result := TInstantDBXFirebirdUIBBroker.Create(Self)
+ else if SameText(Connection.DriverName, 'FIREBIRD') then
+ Result := TInstantDBXFirebirdBroker.Create(Self)
else if SameText(Connection.DriverName, 'DevartInterbase') then
Result := TInstantDBXDevartInterbaseBroker.Create(Self)
else
@@ -962,6 +971,13 @@
end;
{$ENDIF}
+{ TInstantDBXFirebirdBroker }
+
+function TInstantDBXFirebirdBroker.GetDBMSName: string;
+begin
+ Result := 'Firebird';
+end;
+
initialization
RegisterClass(TInstantDBXConnectionDef);
TInstantDBXConnector.RegisterClass;
|