Como Crear una base de datos Firebird desde delphi

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

[pmtzg]

despues de tantos intentos y gracias a la ayuda de mis compañeros
que me hicieron el favor de guiarme

use Delphi 7, FireBird 2.1
componentes IBX a la versión 7.04

Que encontre por ahi navegando en la red.

NOTA IMPORTANTE: Hay algunas versiones de Delphi 7 que tienen un error en los componentes IBExpress (IBX) que hacen que los componentes ClientDataSet no funcionen correctamente. Recomiendo actualizar los componentes IBX a la versión 7.04 que podeis encontrarla en:

http://codecentral.borland.com/Item.aspx?id=18893

importante que se olvido y que lo hice copie el archivo dgs32.dll
en donde estaba mi aplicación
use este codigo para crear mi base de datos FireBird

Código Delphi [-]
IBDatabase1.DatabaseName := 'D:\base.fdb';
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');

y listo probe la base de datos con IBExpert
y me funciono

Lo dejo aqui para otros de mis compañeros que apenas incursionan
como yo que soy totalmente nuevo en esto se guien

ahora por ahi alguien me puede decir como crear las tablas jejejeej

Saludos y gracias a todos

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

[sebastian0606]

he seguido las instrucciones para crear la base de datos desde delphi y no pude...
Uso actualmente delphi 7 con firebird 2.0.1, actualicé los componentes IBX según lo recomendado en mensajes anteriores; realizo cualquiera de los procedimientos que funcionan para ustedes pero a mí me saca el error:

"Your user name and password are not defined. Ask your database administrator to set up an firebird login"

verifiqué el usuario SYSDBA y está con con masterkey... me parece muy extraño, si alguien me puede colaborar... muchas gracias...

[sebastian0606]

Encontré mi error:

No se trata de los usuarios definidos en firebird; al parecer es la forma de establecer los parámetros al IBDatabase...

En mi problema deseaba crear la base de datos y luego conectarme a ella... utilizando el mismo IBDatabase primero debí asignar los parámetros a la base de datos para crearla así:

******* CONFIGURACIÓN 1 *********

IBDatabase.Params.Clear;
IBDatabase.Params.Add('user ''SYSDBA''');
IBDatabase.Params.Add('password ''masterkey''');
IBDatabase.Params.Add('PAGE_SIZE = 4096');
IBDatabase.SQLDialect := 3;
IBDatabase.CreateDatabase;

Luego para verificar la conexión con la base de datos debí cambiar los parámetros a esta forma:

******* CONFIGURACIÓN 2 *********

IBDatabase.Close;
IBDatabase.Params.Clear;
IBDatabase.Params.Add('user_name=SYSDBA');
IBDatabase.Params.Add('password=masterkey');
If IBDatabase.TestConnected Then
Conectado
Else NoConectado

si trataba de ejecutar TestConnected con la configuración 1 me salia que no había conexión... no entiendo la diferencia.. es como si la creación la realizara el IBDatabase a través de una unidad diferente a la de conexión.