ViewVC Help
View File | Revision Log | Show Annotations | Download File | View Changeset | Root Listing
root/public/ibx/trunk/fbintf/client/2.5/FB25Attachment.pas
(Generate patch)

Comparing ibx/trunk/fbintf/client/2.5/FB25Attachment.pas (file contents):
Revision 349 by tony, Fri Apr 17 10:26:08 2020 UTC vs.
Revision 350 by tony, Wed Oct 20 14:58:56 2021 UTC

# Line 68 | Line 68 | type
68      function StartTransaction(TPB: array of byte; DefaultCompletion: TTransactionCompletion): ITransaction; override;
69      function StartTransaction(TPB: ITPB; DefaultCompletion: TTransactionCompletion): ITransaction; override;
70      procedure ExecImmediate(transaction: ITransaction; sql: AnsiString; aSQLDialect: integer); override;
71 <    function Prepare(transaction: ITransaction; sql: AnsiString; aSQLDialect: integer): IStatement; override;
71 >    function Prepare(transaction: ITransaction; sql: AnsiString; aSQLDialect: integer; CursorName: AnsiString=''): IStatement; override;
72      function PrepareWithNamedParameters(transaction: ITransaction; sql: AnsiString;
73                         aSQLDialect: integer; GenerateParamNames: boolean=false;
74 <                       CaseSensitiveParams: boolean=false): IStatement; override;
74 >                       CaseSensitiveParams: boolean=false; CursorName: AnsiString=''): IStatement; override;
75      function GetEventHandler(Events: TStrings): IEvents; override;
76      function CreateBlob(transaction: ITransaction; BlobMetaData: IBlobMetaData; BPB: IBPB=nil): IBlob; overload; override;
77      function CreateBlob(transaction: ITransaction; SubType: integer; aCharSetID: cardinal=0; BPB: IBPB=nil): IBlob; overload;
# Line 273 | Line 273 | begin
273   end;
274  
275   function TFB25Attachment.Prepare(transaction: ITransaction; sql: AnsiString;
276 <  aSQLDialect: integer): IStatement;
276 >  aSQLDialect: integer; CursorName: AnsiString): IStatement;
277   begin
278    CheckHandle;
279    Result := TFB25Statement.Create(self,transaction,sql,aSQLDialect);
# Line 281 | Line 281 | end;
281  
282   function TFB25Attachment.PrepareWithNamedParameters(transaction: ITransaction;
283    sql: AnsiString; aSQLDialect: integer; GenerateParamNames: boolean;
284 <  CaseSensitiveParams: boolean): IStatement;
284 >  CaseSensitiveParams: boolean; CursorName: AnsiString): IStatement;
285   begin
286    CheckHandle;
287    Result := TFB25Statement.CreateWithParameterNames(self,transaction,sql,aSQLDialect,
288 <         GenerateParamNames,CaseSensitiveParams);
288 >         GenerateParamNames,CaseSensitiveParams,CursorName);
289   end;
290  
291   function TFB25Attachment.GetEventHandler(Events: TStrings): IEvents;

Diff Legend

– Removed lines
+ Added lines
< Changed lines
> Changed lines