Crear Base de Datos con DbExpress

[[rruz]]

Dbexpress no es capaz de preparar el comando, es una falencia del driver pero puedes usar lo siguiente.

Código Delphi [-]

function isc_dsql_execute_immediate(pstatus: plongint; var db_handlelongint;  var trans_handle: plongint; length: word; SQL: pchar; dialect:
word;  pxsqlda: pointer): longint; stdcall; external 'GDS32.DLL';

Function CreateDataBase:Boolean;
var
  StatusVector : TStatusVector;
  nDBHandle, nTRHandle : plongint;
  SQL : array[0..1024] of char;
  nResult : integer;
begin
  Result := False;
  nDBHandle := 0;
  nTRHandle := 0;
  StrPCopy(SQL, 'CREATE DATABASE "localhost:c:\database\test.gdb"' +
    'page_size 4096 user "SYSDBA" password "masterkey"');
  nResult := isc_dsql_execute_immediate(@StatusVector, nDBHandle, nTRHandle,
0, SQL, 1, nil);
  if nResult <> 0 then
  begin
    MessageDlg('Error al crear la base de datos', mtWarning, [mbOK], 0);
    exit;
  end;
  Result := true;
end;

Saludos