[Instantobjects-cvscommit] Source/Brokers/ADO InstantADO.pas,1.3,1.4

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

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;