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