ViewVC Help

View File | Revision Log | Show Annotations | Download File | View Changeset | Root Listing

root/public/ibx/branches/journaling/fbintf/client/3.0/FB30Attachment.pas

Comparing ibx/trunk/fbintf/client/3.0/FB30Attachment.pas (file contents):
Revision 345 by tony, Mon Aug 23 14:22:29 2021 UTC vs.
Revision 350 by tony, Wed Oct 20 14:58:56 2021 UTC

#	Line 74 | Line 74 | type
74		function StartTransaction(TPB: array of byte; DefaultCompletion: TTransactionCompletion): ITransaction; override;
75		function StartTransaction(TPB: ITPB; DefaultCompletion: TTransactionCompletion): ITransaction; override;
76		procedure ExecImmediate(transaction: ITransaction; sql: AnsiString; aSQLDialect: integer); override;
77	<	function Prepare(transaction: ITransaction; sql: AnsiString; aSQLDialect: integer): IStatement; override;
77	>	function Prepare(transaction: ITransaction; sql: AnsiString; aSQLDialect: integer; CursorName: AnsiString=''): IStatement; override;
78		function PrepareWithNamedParameters(transaction: ITransaction; sql: AnsiString;
79		aSQLDialect: integer; GenerateParamNames: boolean=false;
80	<	CaseSensitiveParams: boolean=false): IStatement; override;
80	>	CaseSensitiveParams: boolean=false; CursorName: AnsiString=''): IStatement; override;
81
82		{Events}
83		function GetEventHandler(Events: TStrings): IEvents; override;
#	Line 335 | Line 335 | begin
335		end;
336
337		function TFB30Attachment.Prepare(transaction: ITransaction; sql: AnsiString;
338	<	aSQLDialect: integer): IStatement;
338	>	aSQLDialect: integer; CursorName: AnsiString): IStatement;
339		begin
340		CheckHandle;
341	<	Result := TFB30Statement.Create(self,transaction,sql,aSQLDialect);
341	>	Result := TFB30Statement.Create(self,transaction,sql,aSQLDialect,CursorName);
342		end;
343
344		function TFB30Attachment.PrepareWithNamedParameters(transaction: ITransaction;
345		sql: AnsiString; aSQLDialect: integer; GenerateParamNames: boolean;
346	<	CaseSensitiveParams: boolean): IStatement;
346	>	CaseSensitiveParams: boolean; CursorName: AnsiString): IStatement;
347		begin
348		CheckHandle;
349		Result := TFB30Statement.CreateWithParameterNames(self,transaction,sql,aSQLDialect,
350	<	GenerateParamNames,CaseSensitiveParams);
350	>	GenerateParamNames,CaseSensitiveParams,CursorName);
351		end;
352
353		function TFB30Attachment.GetEventHandler(Events: TStrings): IEvents;

Diff Legend

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