instantobjects-cvscommit

[Instantobjects-cvscommit] SF.net SVN: instantobjects: [657] trunk/Source/Brokers/DBX/InstantDBX.pas

[<car...@us...>]

Revision: 657
Author:   carlobar
Date:     2006-03-23 00:34:36 -0800 (Thu, 23 Mar 2006)
ViewCVS:  http://svn.sourceforge.net/instantobjects?rev=657&view=rev

Log Message:
-----------
Added DbExpress Corelab Oracle Net driver support

Modified Paths:
--------------
    trunk/Source/Brokers/DBX/InstantDBX.pas
Modified: trunk/Source/Brokers/DBX/InstantDBX.pas
===================================================================
--- trunk/Source/Brokers/DBX/InstantDBX.pas	2006-03-23 00:44:47 UTC (rev 656)
+++ trunk/Source/Brokers/DBX/InstantDBX.pas	2006-03-23 08:34:36 UTC (rev 657)
@@ -240,6 +240,8 @@
     Result := TInstantDBXOracleBroker.Create(Self)
   else if SameText(Connection.DriverName, 'Oracle (Core Lab)') then //For CoreLab driver
     Result := TInstantDBXOracleBroker.Create(Self)
+  else if SameText(Connection.DriverName, 'Oracle Net (Core Lab)') then //For CoreLab driver
+    Result := TInstantDBXOracleBroker.Create(Self)
   else if SameText(Connection.DriverName, 'DB2') then
     Result := TInstantDBXDB2Broker.Create(Self)
   else if SameText(Connection.DriverName, 'MySQL') then

[Instantobjects-cvscommit] SF.net SVN: instantobjects: [659] trunk/Source/Brokers/DBX/InstantDBX.pas

[<na...@us...>]

Revision: 659
Author:   nandod
Date:     2006-03-30 01:14:58 -0800 (Thu, 30 Mar 2006)
ViewCVS:  http://svn.sourceforge.net/instantobjects?rev=659&view=rev

Log Message:
-----------
- Fixed bug # 1461222 - "ORA-01722: invalid number" with DBX broker.

Modified Paths:
--------------
    trunk/Source/Brokers/DBX/InstantDBX.pas
Modified: trunk/Source/Brokers/DBX/InstantDBX.pas
===================================================================
--- trunk/Source/Brokers/DBX/InstantDBX.pas	2006-03-27 11:50:07 UTC (rev 658)
+++ trunk/Source/Brokers/DBX/InstantDBX.pas	2006-03-30 09:14:58 UTC (rev 659)
@@ -602,8 +602,6 @@
   case SourceParam.DataType of
     ftBoolean:
       TargetParam.AsString := IntToStr(Integer(SourceParam.AsBoolean));
-    ftFloat:
-      TargetParam.AsString := FloatToStr(SourceParam.AsFloat);
     ftInteger:
       TargetParam.AsString := IntToStr(SourceParam.AsInteger);
   else

[Instantobjects-cvscommit] SF.net SVN: instantobjects: [781] trunk/Source/Brokers/DBX/InstantDBX.pas

[<and...@us...>]

Revision: 781
          http://instantobjects.svn.sourceforge.net/instantobjects/revision/?rev=781&view=rev
Author:   andreavaccari
Date:     2008-07-08 00:01:41 -0700 (Tue, 08 Jul 2008)

Log Message:
-----------
Modified the TInstantDBXOracleBroker.AssignParam method

Modified Paths:
--------------
    trunk/Source/Brokers/DBX/InstantDBX.pas

Modified: trunk/Source/Brokers/DBX/InstantDBX.pas
===================================================================
--- trunk/Source/Brokers/DBX/InstantDBX.pas	2008-07-07 22:04:57 UTC (rev 780)
+++ trunk/Source/Brokers/DBX/InstantDBX.pas	2008-07-08 07:01:41 UTC (rev 781)
@@ -669,6 +669,10 @@
       TargetParam.AsString := IntToStr(Integer(SourceParam.AsBoolean));
     ftInteger:
       TargetParam.AsString := IntToStr(SourceParam.AsInteger);
+    ftCurrency:
+      TargetParam.AsString := CurrToStr(SourceParam.AsCurrency);
+    ftFloat:
+      TargetParam.AsString := CurrToStr(SourceParam.AsFloat);
   else
     inherited;
   end;