[Instantobjects-cvscommit] Source/Brokers/ADO InstantADO.pas,1.9,1.10

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

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

Modified Files:
	InstantADO.pas 
Log Message:
small change due to the database evolution refactorings

Index: InstantADO.pas
===================================================================
RCS file: /cvsroot/instantobjects/Source/Brokers/ADO/InstantADO.pas,v
retrieving revision 1.9
retrieving revision 1.10
diff -C2 -d -r1.9 -r1.10
*** InstantADO.pas	22 Feb 2005 10:53:50 -0000	1.9
--- InstantADO.pas	17 Jun 2005 19:11:53 -0000	1.10
***************
*** 424,430 ****
    Catalog := CoCatalog.Create;
    Catalog.Set_ActiveConnection(Connection.ConnectionObject);
!   with Scheme do
!     for I := 0 to Pred(TableMetadataCount) do
!       AddTable(Catalog, TableMetadatas[I]);
  end;
  
--- 424,429 ----
    Catalog := CoCatalog.Create;
    Catalog.Set_ActiveConnection(Connection.ConnectionObject);
!   for I := 0 to Pred(Scheme.TableMetadataCount) do
!     AddTable(Catalog, Scheme.TableMetadatas[I]);
  end;