Gestinux Forum

Code: Select all

procedure TGDbConnection.CreateDatabase_PgSql(const aDatabaseName: string);

var
  OldTransactIsolationLevel: TZTransactIsolationLevel;

begin
  try
    OldTransactIsolationLevel := TransactIsolationLevel;
    TransactIsolationLevel := tiNone;
    // create database, connected to server
    If InTransaction then
      Commit;
    ExecSqlDataDefinition('CREATE DATABASE ' + aDatabaseName +
      ' WITH ENCODING=''UTF8'' CONNECTION LIMIT=-1', aDatabaseName, 'ErrorCreatingDatabase');
    // must connect to the created database, not to the server
    Connected := False;
    Database := aDatabaseName;
    Connected := True;
    // create language if not existing
    if not ExistingQuery('SELECT 1 FROM pg_language WHERE lanname = ' +
      StringSql('plpgsql')) then
      ExecSqlRaise(SqlCreateLanguage_PgSql);
    // create a function to Update field UpdateDate
    ExecSqlDataDefinition(SqlCreateFunction_Upd_row_PgSql, 'upd_row',
      'ErrorCreatingFunction');
  finally
    TransactIsolationLevel := OldTransactIsolationLevel;
  end;
end;