¿Cómo creo una base de datos desde Delphi?

[[José Luis Garcí]]

Hola Thoma, yo lo que hago es lo siguiente, selecciono la ruta de la siguiente manera

Código Delphi [-]
procedure TFCreadorTablas.Button1Click(Sender: TObject);
//------------------------------------------------------------------------------
//****************************************************[ Cargamos la ruta ]******
//------------------------------------------------------------------------------
begin
  if SaveDialog1.Execute then
  begin
    Label1.Caption:=ExtractFilePath(SaveDialog1.FileName);
  end;
end;

en un edit pongo el nombre y sólo el nombre de la BD, sin extensión y pulso el boton crear BD, con el siguiente código

Código Delphi [-]
procedure TFCreadorTablas.Button3Click(Sender: TObject);
//------------------------------------------------------------------------------
//********************************************[ CReamos La Base De Datos ]******
//------------------------------------------------------------------------------
var VarSRut:string;
begin
  if Label1.Caption='' then VarSRut:='C:\'+Edit1.Text+'.FDB'
                       else VarSRut:=Label1.Caption+Edit1.Text+'.FDB';
  IBDatabase1.DatabaseName := VarSRut;
  IBDatabase1.Params.Clear;
  IBDatabase1.Params.Add('user ''SYSDBA''');
  IBDatabase1.Params.Add('password ''masterkey''');
  IBDatabase1.Params.Add('PAGE_SIZE = 4096');
  IBDatabase1.SQLDialect := 3;
  IBDatabase1.CreateDatabase;
  showMessage ('Base de Datos Creada'+#13+ #13+
               'Grabado en la ruta: '+VarSRut);
end;

Como vez sólo uso un Ibdataset, para su creación, claro que mi programa tiene más funciones, pero para crear la BD, espero sea lo que buscas.