Update of /cvsroot/instantobjects/Source/Brokers/ADO
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv3802/Brokers/ADO
Modified Files:
InstantADO.pas
Log Message:
Fixed inherited call chain in InternalBuildDatabase
Index: InstantADO.pas
===================================================================
RCS file: /cvsroot/instantobjects/Source/Brokers/ADO/InstantADO.pas,v
retrieving revision 1.4
retrieving revision 1.5
diff -C2 -d -r1.4 -r1.5
*** InstantADO.pas 23 Aug 2004 09:55:20 -0000 1.4
--- InstantADO.pas 16 Sep 2004 11:29:22 -0000 1.5
***************
*** 79,83 ****
function GetDatabaseName: string; override;
function GetDBMSName: string; override;
! procedure InternalBuildDatabase(Scheme: TInstantScheme); overload; override;
procedure InternalCommitTransaction; override;
procedure InternalCreateDatabase; override;
--- 79,83 ----
function GetDatabaseName: string; override;
function GetDBMSName: string; override;
! procedure InternalBuildDatabase(Scheme: TInstantScheme); override;
procedure InternalCommitTransaction; override;
procedure InternalCreateDatabase; override;
***************
*** 621,626 ****
BuildMethod: TInstantADOBuildMethod);
begin
- if Assigned(Scheme) then
- Scheme.BlobStreamFormat := BlobStreamFormat;
case BuildMethod of
bmDefault:
--- 621,624 ----
***************
*** 716,720 ****
Scheme: TInstantScheme);
begin
! Scheme.BlobStreamFormat := BlobStreamFormat;
DoBuildDatabase(Scheme, bmDefault);
end;
--- 714,718 ----
Scheme: TInstantScheme);
begin
! inherited;
DoBuildDatabase(Scheme, bmDefault);
end;
|
