[Instantobjects-cvscommit] Source/Brokers/NexusDbSQL InstantNexusDbSQL.pas,1.1,1.2

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

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

Modified Files:
	InstantNexusDbSQL.pas 
Log Message:
Changes for IOMETADATA keyword support and NexusDBSQL

Index: InstantNexusDbSQL.pas
===================================================================
RCS file: /cvsroot/instantobjects/Source/Brokers/NexusDbSQL/InstantNexusDbSQL.pas,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** InstantNexusDbSQL.pas	17 Nov 2004 17:53:00 -0000	1.1
--- InstantNexusDbSQL.pas	20 Nov 2004 10:52:31 -0000	1.2
***************
*** 422,434 ****
  procedure TInstantNexusDbSQLConnector.InternalBuildDatabase(Scheme: TInstantScheme);
  begin
!   StartTransaction;
!   try
!     inherited;
!     CommitTransaction;
!     DatabaseBuildFixup;     // Hopefully NexusDb V2 will not need this!
!   except
!     RollbackTransaction;
!     raise;
!   end;
  end;
  
--- 422,429 ----
  procedure TInstantNexusDbSQLConnector.InternalBuildDatabase(Scheme: TInstantScheme);
  begin
!   // Deleted transaction wrapper as DDL actions cannot be rolled back in 
!   // accordance with advice from NexusDb ng. - SRM 09 Oct 2004
!   inherited;
!   DatabaseBuildFixup;     // Hopefully NexusDb V2 will not need this!
  end;
  
***************
*** 488,491 ****
--- 483,488 ----
    Query: TNexusDbQuery;
  begin
+   //CodeSite.EnterMethod('TInstantNexusDbSQLBroker.CreateDataSet');
+   //CodeSite.SendFmtMsg('SQL Statement: %s', [#13 + AStatement]);
    Query := TNexusDbQuery.Create(nil);
    with Query do
***************
*** 497,500 ****
--- 494,498 ----
    end;
    Result := Query;
+   //CodeSite.ExitMethod('TInstantNexusDbSQLBroker.CreateDataSet');
  end;
  
***************
*** 518,524 ****
--- 516,524 ----
      'BLOB');
  begin
+   //CodeSite.EnterMethod('TInstantNexusDbSQLBroker.DataTypeToColumnType');
    Result := Types[DataType];
    if (DataType = dtString) and (Size > 0) then
      Result := Result + InstantEmbrace(IntToStr(Size), '()');
+   //CodeSite.ExitMethod('TInstantNexusDbSQLBroker.DataTypeToColumnType');
  end;
  
***************
*** 526,529 ****
--- 526,530 ----
    AParams: TParams): Integer;
  begin
+   //CodeSite.SendFmtMsg('SQL Statement: %s', [#13 + AStatement]);
    with CreateDataSet(AStatement, AParams) as TNexusDbQuery do
    try
***************
*** 538,541 ****
--- 539,544 ----
  begin
    //don't call inherited!
+   
+   //CodeSite.EnterMethod('TInstantNexusDbSQLBroker.ExecuteQuery');
    with TNexusDbQuery(DataSet) do
    begin
***************
*** 543,546 ****
--- 546,550 ----
      Result := RowsAffected;
    end;
+   //CodeSite.ExitMethod('TInstantNexusDbSQLBroker.ExecuteQuery');
  end;