Cita:
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.