Update of /cvsroot/instantobjects/Source/Brokers/ADO
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv22153/Source/Brokers/ADO
Modified Files:
InstantADO.pas
Log Message:
InstantRTTI bug fixing, InstantADO bug-fixing, PerformanceView changed
Index: InstantADO.pas
===================================================================
RCS file: /cvsroot/instantobjects/Source/Brokers/ADO/InstantADO.pas,v
retrieving revision 1.3
retrieving revision 1.4
diff -C2 -d -r1.3 -r1.4
*** InstantADO.pas 4 Aug 2004 22:43:39 -0000 1.3
--- InstantADO.pas 23 Aug 2004 09:55:20 -0000 1.4
***************
*** 172,179 ****
function GetSQLQuote: Char; override;
function InternalCreateQuery: TInstantQuery; override;
! procedure PrepareQuery(DataSet : TDataSet); override; //CB
! procedure UnprepareQuery(DataSet : TDataSet); override; //CB
! function ExecuteQuery(DataSet : TDataSet) : integer; override; //CB
! procedure AssignDataSetParams(DataSet : TDataSet; AParams: TParams); override; //CB
public
function CreateDataSet(const Statement: string; Params: TParams): TDataSet; override;
--- 172,179 ----
function GetSQLQuote: Char; override;
function InternalCreateQuery: TInstantQuery; override;
! procedure PrepareQuery(DataSet : TDataSet); override;
! procedure UnprepareQuery(DataSet : TDataSet); override;
! function ExecuteQuery(DataSet : TDataSet) : integer; override;
! procedure AssignDataSetParams(DataSet : TDataSet; AParams: TParams); override;
public
function CreateDataSet(const Statement: string; Params: TParams): TDataSet; override;
***************
*** 622,626 ****
begin
if Assigned(Scheme) then
! Scheme.BlobStreamFormat := BlobStreamFormat; //CB
case BuildMethod of
bmDefault:
--- 622,626 ----
begin
if Assigned(Scheme) then
! Scheme.BlobStreamFormat := BlobStreamFormat;
case BuildMethod of
bmDefault:
***************
*** 716,720 ****
Scheme: TInstantScheme);
begin
! Scheme.BlobStreamFormat := BlobStreamFormat; //CB
DoBuildDatabase(Scheme, bmDefault);
end;
--- 716,720 ----
Scheme: TInstantScheme);
begin
! Scheme.BlobStreamFormat := BlobStreamFormat;
DoBuildDatabase(Scheme, bmDefault);
end;
***************
*** 801,805 ****
begin
LocateSet := RecordSet.Clone(adLockReadOnly);
! Criteria := Format('%s=''%s''', [InstantIdFieldName, AObjectId]);
SkipCount := 0;
Result := False;
--- 801,805 ----
begin
LocateSet := RecordSet.Clone(adLockReadOnly);
! Criteria := Format('%s=%s', [InstantIdFieldName, InstantQuote(AObjectId,'''')]);
SkipCount := 0;
Result := False;
***************
*** 1121,1126 ****
Query := TADOQuery.Create(nil);
try
! Query.SQL.Text := Statement;
! AssignParameters(Params, Query.Parameters);
Query.CursorType := ctOpenForwardOnly;
Query.LockType := ltReadOnly;
--- 1121,1126 ----
Query := TADOQuery.Create(nil);
try
! Query.SQL.Text := AStatement;
! AssignParameters(AParams, Query.Parameters);
Query.CursorType := ctOpenForwardOnly;
Query.LockType := ltReadOnly;
|