88 |
|
|
89 |
|
{Database connections} |
90 |
|
function OpenDatabase(DatabaseName: string; DPB: IDPB; RaiseExceptionOnConnectError: boolean=true): IAttachment; |
91 |
< |
function CreateDatabase(DatabaseName: string; DPB: IDPB; RaiseExceptionOnError: boolean=true): IAttachment; |
92 |
< |
|
91 |
> |
function CreateDatabase(DatabaseName: string; DPB: IDPB; RaiseExceptionOnError: boolean=true): IAttachment; overload; |
92 |
> |
function CreateDatabase(sql: string; aSQLDialect: integer; RaiseExceptionOnError: boolean=true): IAttachment; overload; |
93 |
|
{Start Transaction against multiple databases} |
94 |
|
function StartTransaction(Attachments: array of IAttachment; |
95 |
|
TPB: array of byte; DefaultCompletion: TTransactionCompletion): ITransaction; overload; |
273 |
|
if not Result.IsConnected then |
274 |
|
Result := nil; |
275 |
|
end; |
276 |
+ |
|
277 |
+ |
function TFB30ClientAPI.CreateDatabase(sql: string; aSQLDialect: integer; |
278 |
+ |
RaiseExceptionOnError: boolean): IAttachment; |
279 |
+ |
begin |
280 |
+ |
Result := TFB30Attachment.CreateDatabase(sql,aSQLDialect, RaiseExceptionOnError); |
281 |
+ |
if not Result.IsConnected then |
282 |
+ |
Result := nil; |
283 |
+ |
end; |
284 |
|
|
285 |
|
function TFB30ClientAPI.StartTransaction(Attachments: array of IAttachment; |
286 |
|
TPB: array of byte; DefaultCompletion: TTransactionCompletion): ITransaction; |