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

Comparing ibx/trunk/fbintf/client/3.0/FB30ClientAPI.pas (file contents):
Revision 46 by tony, Tue Dec 6 10:33:46 2016 UTC vs.
Revision 47 by tony, Mon Jan 9 15:31:51 2017 UTC

# Line 88 | Line 88 | type
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;
# Line 273 | Line 273 | begin
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;

Diff Legend

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