conexion a Firebird

[pmtzg]

hola amigos tengo el siguiente dilema

en una pequeña aplicacion tengo form1 y 1 datamodule llamados Dmdatos

si desde el form1 creao mando crear una base de datos me marcaba error

bueno pues puse el IBDatabase en el form1 y ya pude crear la base

pero si la deseo crear desde el form1 hasta el data module me tira el error de:

Código Delphi [-]
Access violation at adress  005cab7b in module  programa.exe read of  addresss 00000074

y ade ahi ya no paso

pero bueno si creo la base desde form1 como dije la crea sin problema pero ahora si deso abrir la misma base de datos ya creada me vuelve a sacar el mismo error

codigo para abrir base de datos ya creada :
me arroja el error desde la primera linea IBDatabase1.params.clear

es un procedure que lo mando llamar desde el form1

Código Delphi [-]
DmDatos.open_bdfb;

Código Delphi [-]
procedure TDmDatos.open_bdfb;                         { ABRE LA BD DATOS FIREBIRD}
begin
  IBDatabase1.Params.Clear;
  IBDatabase1.DatabaseName:=RutaBdFb;
  IBDatabase1.Params.Add('user_name=SYSDBA');
  IBDatabase1.Params.Add('password=masterkey');
  IBDatabase1.DefaultTransaction:=IBTran1;
  IBTran1.DefaultDatabase:=IBDatabase1;
  if not IBDatabase1.Connected then
    begin
      IBDatabase1.Connected:=true;
      IBDatabase1.Open;
    end;

  if not IBTran1.Active then
      IBTran1.Active:=true;

end;

me pueden hechar una manita

uso delphi 2007, firebird 2.1 y acceso con IBdatabase de interbase
la variable ruta tiene la ruta exacta donde crear

repito este codigo no me funciona en el datamodule pero si lo copia y lo hago desde el form1 si corre

gracias

[[duilioisola]]

este codigo no me funciona en el datamodule pero si lo copia y lo hago desde el form1 si corre

Esto parece indicar que además de mover el código, deberás mover los componentes a los que hace referencia
- IBDataBase1
- IBTran1

Supongo que luego, las tablas que tiren de esta base, también deberás apuntarlas a DmDatos.IBDataBase1

[ecfisa]

Hola.

Pone el TDataModule en Autocreate-forms y de esta forma te tiene que conectar. (Siempre que sean correctas la ruta y la contraseña)

Código Delphi [-]
...
implementation 
{$R *.dfm}

procedure TDataModule1.DataModuleCreate(Sender: TObject);
begin
  IBDatabase1.DatabaseName:= RutaBdFb;
  IBDatabase1.LoginPrompt:= False;
  IBDatabase1.Params.Clear;
  IBDatabase1.Params.Add('user_name=sysdba');
  IBDatabase1.Params.Add('password=masterkey');
  try
    IBDatabase1.Open;
    IBTransaction1.DefaultDatabase:= IBDatabase1;
    IBTransaction1.Active:= True
  except
    raise Exception.Create('No se puede establecer la conexión con la base de datos');
    Application.Terminate
  end
end;

procedure TDataModule1.DataModuleDestroy(Sender: TObject);
begin
  if IBDatabase1.TestConnected then
    IBTransaction1.Commit
end;
end.

Saludos.

[pmtzg]

Gracias a todos por sus comentarios

mi pregunta es la siguiente:

¿ que estoy haciendo mal ?

por que no puedo crear mi base de datos desde mi datamodule

y por lo mismo , por que no puedo abrirla


ese es mi problema , !!!!!!!!!!!!!!!!!!!!!!????????

una orientadita amigo quiza omiti algo que no lo vizualizo

[ecfisa]

Hola pmtzg.

por que no puedo crear mi base de datos desde mi datamodule

Ahora que reparo en lo que comentás arriba, a ver si te estoy interpretando mal...

Previamente a intentar conectarte, ¿ Estas haciendo algo como

Código Delphi [-]
var
  IBDatabase1: TIBDatabase;
begin
  IBDatabase1:= TIBDatabase.Create(Self);
  ....
end;

?

Saludos.

[pmtzg]

hola mi estimado eficsa

en mi data module lo tengo asi:

Código Delphi [-]
procedure TDmDatos.open_bdfb;                         { ABRE LA BD DATOS FIREBIRD}
begin
  IBDatabase1.Params.Clear;
  IBDatabase1.DatabaseName:=RutaBdFb;
  IBDatabase1.Params.Add('user_name=SYSDBA');
  IBDatabase1.Params.Add('password=masterkey');
  IBDatabase1.DefaultTransaction:=IBTran1;
  IBTran1.DefaultDatabase:=IBDatabase1;
  if not IBDatabase1.Connected then
    begin
      IBDatabase1.Connected:=true;
      IBDatabase1.Open;
    end;

  if not IBTran1.Active then
      IBTran1.Active:=true;

end;

y desde otro form por decir form1, lo ejecuto asi:

Código Delphi [-]
DmDatos.open_bdfb;

y me manda el error que aqui describo, eso es en principio para crear no puedo error y si lo creo de otra forma por decir desde un form1 si medeja

ahora bien si desde el Datamodule deseo abrir como lo describo arriba no me deja me lanza error

espero poder darme a entender

saludos