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

Comparing ibx/trunk/runtime/IBDatabase.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 240 | Line 240 | type
240      procedure CloseDataSets;
241      procedure CheckActive;
242      procedure CheckInactive;
243 <    procedure CreateDatabase;
243 >    procedure CreateDatabase; overload;
244 >    procedure CreateDatabase(createDatabaseSQL: string); overload;
245      procedure DropDatabase;
246      procedure ForceClose;
247      procedure GetFieldNames(const TableName: string; List: TStrings);
# Line 609 | Line 610 | begin
610    Connected := true;
611   end;
612  
613 + procedure TIBDataBase.CreateDatabase(createDatabaseSQL: string);
614 + var info: IDBInformation;
615 +    ConnectionType: integer;
616 +    SiteName: string;
617 + begin
618 +  CheckInactive;
619 +  FAttachment := FirebirdAPI.CreateDatabase(createDatabaseSQL,FSQLDialect);
620 +  info := FAttachment.GetDBInformation(isc_info_db_id);
621 +  info[0].DecodeIDCluster(ConnectionType,FDBName,SiteName);
622 +  if assigned(FOnCreateDatabase) and (FAttachment <> nil) then
623 +    OnCreateDatabase(self);
624 + end;
625 +
626   procedure TIBDataBase.DropDatabase;
627   begin
628    CheckActive;

Diff Legend

Removed lines
+ Added lines
< Changed lines
> Changed lines