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)
|
