72 |
|
procedure ExecImmediate(transaction: ITransaction; sql: AnsiString; aSQLDialect: integer); override; |
73 |
|
function Prepare(transaction: ITransaction; sql: AnsiString; aSQLDialect: integer): IStatement; override; |
74 |
|
function PrepareWithNamedParameters(transaction: ITransaction; sql: AnsiString; |
75 |
< |
aSQLDialect: integer; GenerateParamNames: boolean=false): IStatement; override; |
75 |
> |
aSQLDialect: integer; GenerateParamNames: boolean=false; |
76 |
> |
CaseSensitiveParams: boolean=false): IStatement; override; |
77 |
|
|
78 |
|
{Events} |
79 |
|
function GetEventHandler(Events: TStrings): IEvents; override; |
308 |
|
end; |
309 |
|
|
310 |
|
function TFB30Attachment.PrepareWithNamedParameters(transaction: ITransaction; |
311 |
< |
sql: AnsiString; aSQLDialect: integer; GenerateParamNames: boolean): IStatement; |
311 |
> |
sql: AnsiString; aSQLDialect: integer; GenerateParamNames: boolean; |
312 |
> |
CaseSensitiveParams: boolean): IStatement; |
313 |
|
begin |
314 |
|
CheckHandle; |
315 |
|
Result := TFB30Statement.CreateWithParameterNames(self,transaction,sql,aSQLDialect, |
316 |
< |
GenerateParamNames); |
316 |
> |
GenerateParamNames,CaseSensitiveParams); |
317 |
|
end; |
318 |
|
|
319 |
|
function TFB30Attachment.GetEventHandler(Events: TStrings): IEvents; |
407 |
|
procedure TFB30Attachment.getFBVersion(version: TStrings); |
408 |
|
var bufferObj: TVersionCallback; |
409 |
|
begin |
410 |
+ |
version.Clear; |
411 |
|
bufferObj := TVersionCallback.Create(version); |
412 |
|
try |
413 |
|
with FFirebird30ClientAPI do |
414 |
+ |
begin |
415 |
|
UtilIntf.getFbVersion(StatusIntf,FAttachmentIntf,bufferObj); |
416 |
+ |
Check4DataBaseError; |
417 |
+ |
end; |
418 |
|
finally |
419 |
|
bufferObj.Free; |
420 |
|
end; |