[Instantobjects-cvscommit] Source/Brokers/NexusDb InstantNexusDB.pas,1.2,1.3

[Steven M. <sr...@us...>]

Update of /cvsroot/instantobjects/Source/Brokers/NexusDb
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv31808

Modified Files:
	InstantNexusDB.pas 
Log Message:
Updated to use the new IO core, generic 6 step statement SQL command class (TInstantDBBuildAlterFieldGenericSQLCommand) for evolving table fields.
Fix for SF Bug Tracker issue #1343250.

Index: InstantNexusDB.pas
===================================================================
RCS file: /cvsroot/instantobjects/Source/Brokers/NexusDb/InstantNexusDB.pas,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -d -r1.2 -r1.3
*** InstantNexusDB.pas	4 Sep 2005 23:15:53 -0000	1.2
--- InstantNexusDB.pas	31 Oct 2005 23:54:11 -0000	1.3
***************
*** 45,50 ****
  {$ENDIF}
    Classes, DB, InstantPersistence, InstantCommand,
!   nxllTransport, nxsdServerEngine, nxdb, nxsdDataDictionary
!   ;
  
  type
--- 45,49 ----
  {$ENDIF}
    Classes, DB, InstantPersistence, InstantCommand,
!   nxllTransport, nxsdServerEngine, nxdb, nxsdDataDictionary;
  
  type
***************
*** 204,207 ****
--- 203,207 ----
    InstantConsts,
    InstantUtils,
+   InstantDBBuild,
    InstantNexusDBConnectionDefEdit,
    nxllTypes,
***************
*** 211,216 ****
    nxtnNamedPipeTransport,
    nxreRemoteServerEngine,
!   InstantNexusDBCatalog, 
!   InstantDBBuild;
  
  const
--- 211,215 ----
    nxtnNamedPipeTransport,
    nxreRemoteServerEngine,
!   InstantNexusDBCatalog;
  
  const
***************
*** 777,781 ****
      Result := TInstantDBBuildAddFieldSQLCommand.Create(CommandType, Connector)
    else if CommandType = ctAlterField then
!     Result := TInstantDBBuildAlterFieldSQLCommand.Create(CommandType, Connector)
    else if CommandType = ctDropField then
      Result := TInstantDBBuildDropFieldSQLCommand.Create(CommandType, Connector)
--- 776,780 ----
      Result := TInstantDBBuildAddFieldSQLCommand.Create(CommandType, Connector)
    else if CommandType = ctAlterField then
!     Result := TInstantDBBuildAlterFieldGenericSQLCommand.Create(CommandType, Connector)
    else if CommandType = ctDropField then
      Result := TInstantDBBuildDropFieldSQLCommand.Create(CommandType, Connector)