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

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

# Line 179 | Line 179 | type
179      {Database connections}
180      function AllocateDPB: IDPB;
181      function OpenDatabase(DatabaseName: string; DPB: IDPB; RaiseExceptionOnConnectError: boolean=true): IAttachment;
182 <    function CreateDatabase(DatabaseName: string; DPB: IDPB; RaiseExceptionOnError: boolean=true): IAttachment;
182 >    function CreateDatabase(DatabaseName: string; DPB: IDPB; RaiseExceptionOnError: boolean=true): IAttachment;  overload;
183 >    function CreateDatabase(sql: string; aSQLDialect: integer; RaiseExceptionOnError: boolean=true): IAttachment; overload;
184  
185      {Start Transaction against multiple databases}
186      function AllocateTPB: ITPB;
# Line 455 | Line 456 | begin
456     if (Result <> nil) and not Result.IsConnected then
457       Result := nil;
458   end;
459 +
460 + function TFB25ClientAPI.CreateDatabase(sql: string; aSQLDialect: integer;
461 +  RaiseExceptionOnError: boolean): IAttachment;
462 + begin
463 +  Result := TFB25Attachment.CreateDatabase(sql,aSQLDialect, RaiseExceptionOnError );
464 +   if (Result <> nil) and not Result.IsConnected then
465 +     Result := nil;
466 + end;
467  
468   function TFB25ClientAPI.AllocateSPB: ISPB;
469   begin

Diff Legend

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