Ver Mensaje Individual
  #1  
Antiguo 06-04-2004
Tomás Tomás is offline
Miembro
 
Registrado: may 2003
Ubicación: Elche
Posts: 140
Reputación: 22
Tomás Va por buen camino
EAccessViotaton al intentar conectar

Hola a todos:

Tengo una tabla IB conectada con IBX. El código para conectarla funciona bien en el evento OnCreate de cualquier form que no sea el principal, e incluso en un procedure del form principal llamado desde una opción del menú, pero da error si lo pongo en el evento OnCreate del form principal.

El error es: ... raised exception class EAccessViolation with message 'Violación de acceso en la dirección 0052B3E2 en módulo 'PComunidad.exe'. Leer de dirección 00000058.

Código:
//en este procedure del form principal da error

procedure TFMenu.FormCreate(Sender: TObject);
begin
  //conectar base de datos, transación
  DM.IBDB.DatabaseName := ExtractFilePath(ExpandFileName(ParamStr(0))) + 'COMUNIDAD.GDB';
  DM.IBDB.Connected := True;
  DM.IBT.Active := True;
end;


// en este procedure del mismo form funciona bien

procedure TFMenu.AbrirperodoClick(Sender: TObject);
begin
  //conectar base de datos, transación
  DM.IBDB.DatabaseName := ExtractFilePath(ExpandFileName(ParamStr(0))) + 'COMUNIDAD.GDB';
  DM.IBDB.Connected := True;
  DM.IBT.Active := True;
end;


//en el evento OnCreate de cualquier otro form llamado desde este principal funciona bien
¿Qué puede ser?

Un saludo. Tomás.
Responder Con Cita