Firebird y ADO/ODBC en D2010

[Estifmauin]

Empezado por cesarsoftware

Hola de nuevos compis.
¿Como puedo crear la base de datos desde codigo?, ya sabeis que no me gusta usar otras aplicaciones, hasta ahora usaba ibaccess para crearlas, pero me empieza a dar problemas y prefiero crearlas yo.

SQLConnection, al igual que ADOConnection necesita una base de datos a la que conectarse para poder "actuar", así que no puede crear ella misma una desde cero.
Yo uso el componente TIBDatabase, de las IBX de Delphi, ya que la creación de una bbdd Firebird es igual a una Interbase (al menos por ahora).

Código Delphi [-]
function CrearBDFB(path :string; ps :integer; cs :string):boolean;
var
    db :TIBDatabase;
    r :string;
begin
result:=false;
if ps <= 0 then ps:=4096;
if cs = '' then cs:='ISO8859_1';
db:=TIBDatabase.Create(nil);
try
    with db.Params do begin
        Clear;
        Add('user ''sysdba''');
        Add('password ''masterkey''');
        Add('page_size = '+IntToStr(ps));
        Add('default character set '+cs);
    end;
    db.SQLDialect:=3;
    db.DatabaseName:=path;
    try
        db.CreateDatabase;
        result:=true;
    except
        on e:exception do
            ShowMessage('No se ha podido crear la base de datos.'+#13+'Motivo: '+e.Message);
    end;
finally
    FreeAndNil(db);
end;
end;

Requiere uses ibdatabase

Espero que te ayude.