Crear Base de Datos con DbExpress

[JosepGA]

Empezado por JosepGA

Gracias por vuestros comentarios, aqui os adjunto un ejemplo de como lo he intentado hacer ( tambien lo he realizado con parametros, pero me da el mismo mensaje de error ):

procedure CrearBaseDatos;
Var
SQLstmt : String;
Begin
SQLstmt := 'CREATE DATABASE ' + Chr( 39 ) + 'C:\BASE.FBD' + Chr( 39 );
SQLstmt := SQLstmt + ' PAGE_SIZE 8192';
SQLstmt := SQLstmt + ' USER ' + Chr( 39 ) + 'CODUSUARIO' + Chr( 39 );
SQLstmt := SQLstmt + ' PASSWORD ' + Chr( 39 ) + 'CLAVE' + Chr( 39 );
SQLstmt := SQLstmt + ' DEFAULT CHARACTER SET ISO8859_1';

SQLConexionGeneral.ExecuteDirect( SQLstmt );
End;

El problema es que no se como evitar que prepare el script, y no se como lo gestionan otros programadores que trabajan con dbexpress.

gracias por adelantado a vuestra colaboración

sigo atascado con el tema, nadie se ha encontrado con ese problema ?

[[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

[JosepGA]

Hola, gracias a todos por la ayuda, aunque al final lo he solucionado de otra forma, que es la siguiente:

como no podia atarme a que solo fuera firebird/interbase, he creado una base de datos base, es decir, al crear una empresa la copio con el nombre mas el codigo de la empresa, aunque tambien me ha dado dolores de cabeza, pues al intentar copia me daba error de que no podia encontrar el archivo origen cuando este estaba en una ruta de red, me he repasado los hilos del foro pertinente, y no encontraba la solución, al final me he dado cuenta de que la ruta que se debe indicar es una ruta de red de windows diferente a la que se indica en las bases de datos, ejemplo:

Base de datos: Servidor:\Aplicacion\NombreArchivo.FBD
Ruta para copias: \\Servidor\Disco C(C)\Aplicacion\NombreArchivo.FBD

Espero que os sirva de ayuda

Un saludo a todos