--- ibx/trunk/runtime/IBDatabase.pas	2016/12/06 10:33:46	46
+++ ibx/trunk/runtime/IBDatabase.pas	2017/01/09 15:31:51	47
@@ -240,7 +240,8 @@ type
     procedure CloseDataSets;
     procedure CheckActive;
     procedure CheckInactive;
-    procedure CreateDatabase;
+    procedure CreateDatabase; overload;
+    procedure CreateDatabase(createDatabaseSQL: string); overload;
     procedure DropDatabase;
     procedure ForceClose;
     procedure GetFieldNames(const TableName: string; List: TStrings);
@@ -609,6 +610,19 @@ begin
   Connected := true;
 end;
 
+procedure TIBDataBase.CreateDatabase(createDatabaseSQL: string);
+var info: IDBInformation;
+    ConnectionType: integer;
+    SiteName: string;
+begin
+  CheckInactive;
+  FAttachment := FirebirdAPI.CreateDatabase(createDatabaseSQL,FSQLDialect);
+  info := FAttachment.GetDBInformation(isc_info_db_id);
+  info[0].DecodeIDCluster(ConnectionType,FDBName,SiteName);
+  if assigned(FOnCreateDatabase) and (FAttachment <> nil) then
+    OnCreateDatabase(self);
+end;
+
  procedure TIBDataBase.DropDatabase;
 begin
   CheckActive;