Como Crear una base de datos Firebird desde delphi

[[enecumene]]

También esta es otra forma de hacerlo:

Con el Componente IBDatabase tenemos que darle los siguientes datos:

A IBDatabase1->DatabaseName le tenemos que decir su ubicación

Código Delphi [-]
//Ubicación local:
IBDatabase1.DatabaseName="C:\\BD\\PRUEBA.GDB";
Ubicación en otro PC
IBDatabase1.DatabaseName="IP:C:\\BD\\PRUEBA.FDB";

//Luego en los parametros del IBDatabase1 le decimos el usuario, password //y si queremos el page_size de esta forma
IBDatabase1.Params.Clear();
IBDatabase1.Params.Add("USER 'SYSDBA'");
IBDatabase1.Params.Add("PASSWORD ''");
IBDatabase1.Params.Add("PAGE_SIZE = 4096");

//le decimos el dialecto
IBDatabase1.SQLDialect:=1;

//CREAMOS LA BASE DE DATOS
IBDatabase1.CreateDatabase();

Saludos.

[pmtzg]

disculpa en la opción de Add
es con doble comilla ? porque estoy haciendo la prueba y me marca error

[[enecumene]]

Empezado por pmtzg

disculpa en la opción de Add
es con doble comilla ? porque estoy haciendo la prueba y me marca error

Prueba con una sola Comilla o Apóstrofe.

Saludos.

[pmtzg]

disculpame soy nuevo en esto y estoy haciendo pruebas
pero me creeras que no me sale
me da error :
unavailable database

[[maeyanes]]

Hola...

Verifica que el servidor de bases de datos esté ejecutándose o que los parámetros de conexión estén correctos...


Saludos...

[[enecumene]]

Hola, Intentalo así:

Código Delphi [-]
IBDatabase1.DatabaseName := 'C:\base.FDB';
IBDatabase1.Params.Clear;
IBDatabase1.Params.Add('USER '+QuotedStr('SYSDBA')+'');
IBDatabase1.Params.Add('PASSWORD '+QuotedStr('masterkey')+'');
IBDatabase1.Params.Add('PAGE_SIZE = '4096'');
IBDatabase1.SQLDialect := 3;
IBDatabase1.CreateDatabase;

Saludos.

[[maeyanes]]

Hola...

enecumene, los parámetros están mal puestos. Debería ir así:

Código Delphi [-]
IBDatabase1.Params.Add('user_name=SYSDBA');
IBDatabase1.Params.Add('password=masterkey');
IBDatabase1.Params.Add('page_size=4096');
// etc...

Saludos...

[pmtzg]

disculpa tu lo has hecho ?
por que ya lo puse como tu indicas y me marca error

[[enecumene]]

Empezado por maeyanes

Hola...

enecumene, los parámetros están mal puestos. Debería ir así:

Código Delphi [-]IBDatabase1.Params.Add('user_name=SYSDBA');
IBDatabase1.Params.Add('password=masterkey');
IBDatabase1.Params.Add('page_size=4096');
// etc...



Saludos...

Así es como lo tengo yo, y me funciona sin problemas :

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
begin
IBDatabase1.DatabaseName := Base.Text;
IBDatabase1.Params.Clear;
IBDatabase1.Params.Add('USER '+QuotedStr(User.Text)+'');
IBDatabase1.Params.Add('PASSWORD '+QuotedStr(pass.Text)+'');
IBDatabase1.Params.Add('PAGE_SIZE = '+page.Text+'');
IBDatabase1.SQLDialect := StrToInt(Dialecto.Text);
IBDatabase1.CreateDatabase;
end;

Saludos.